mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 08:08:13 +02:00
29 lines
437 B
ObjectPascal
29 lines
437 B
ObjectPascal
{ Old file: tbs0149b.pp }
|
|
{ }
|
|
|
|
{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 tb0129;
|
|
|
|
interface
|
|
|
|
uses ub0129;
|
|
|
|
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.
|