mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 01:19:35 +02:00
22 lines
323 B
ObjectPascal
22 lines
323 B
ObjectPascal
unit bug0140;
|
|
|
|
{
|
|
The first compilation runs fine.
|
|
A second compilation (i.e; .ppu files exist already) crashes the compiler !!
|
|
}
|
|
|
|
interface
|
|
type
|
|
TObject = object
|
|
constructor Init(aPar:byte);
|
|
end;
|
|
implementation
|
|
|
|
uses bug0140a;
|
|
|
|
constructor TObject.Init(aPar:byte);
|
|
begin
|
|
if aPar=0 then Message(Self);
|
|
end;
|
|
end.
|