blob: 49f7ed4cc82e832bc16c6e377b351f01e00a4431 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
{ 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.
|
