mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-27 00:23:44 +02:00
26 lines
404 B
ObjectPascal
26 lines
404 B
ObjectPascal
{there is no crash when tset or c from unit a are used in OuterProcedure,
|
|
it's only a problem when using them in a nested procedure/function}
|
|
|
|
unit bug0149b;
|
|
|
|
interface
|
|
|
|
uses t2a;
|
|
|
|
implementation
|
|
|
|
Procedure OuterProcedure;
|
|
|
|
function t(a: byte): byte;
|
|
begin
|
|
if a = c then t := a else t := 0;
|
|
if a in tset {probably same bug}
|
|
then t := a
|
|
else t := 0
|
|
end;
|
|
|
|
Begin
|
|
End;
|
|
|
|
end.
|