123456789101112131415161718192021 |
- 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.
|