bug0144.pp 275 B

123456789101112131415161718192021
  1. program done_bug;
  2. type
  3. TObject = object
  4. Constructor Init;
  5. Destructor Done;
  6. end;
  7. PObject = ^TObject;
  8. Constructor TObject.Init;
  9. begin end;
  10. Destructor TObject.Done;
  11. begin end;
  12. var P:PObject;
  13. begin
  14. New(P,Init);
  15. with P^ do Done; { Compiler PANIC here ! }
  16. Dispose(P);
  17. end.