blob: fd554b2cbd4feb88710f13d35bb27cdd9f61a2a0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{ Old file: tbs0144.pp }
{ problem with 'with object do' OK 0.99.7 (PFV) }
program done_bug;
type
TObject = object
Constructor Init;
Destructor Done;
end;
PObject = ^TObject;
Constructor TObject.Init;
begin end;
Destructor TObject.Done;
begin end;
var P:PObject;
begin
New(P,Init);
with P^ do Done; { Compiler PANIC here ! }
Dispose(P);
end.
|
