mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
3ce6cae11d
- initialize the returned def to a safe default - correctly reset the found symbol for each loop - reset the result when descending into a record + added test
22 lines
194 B
ObjectPascal
22 lines
194 B
ObjectPascal
{ %NORUN }
|
|
|
|
{$MODESWITCH ADVANCEDRECORDS}
|
|
Program tw39310;
|
|
|
|
Type
|
|
Rec0 = record
|
|
end;
|
|
|
|
Rec1 = record
|
|
r:Rec0;
|
|
Procedure Proc;
|
|
end;
|
|
|
|
Procedure Rec1.Proc;
|
|
begin
|
|
end;
|
|
|
|
Begin
|
|
End.
|
|
|