3
{ Source provided for Free Pascal Bug Report 4445 }
4
{ Submitted by "lito steel" on 2005-10-17 }
5
{ e-mail: litosteel@yahoo.com }
6
{ those are the definitions }
10
Stack:array[1..StackMax] of double;
11
StackTop: integer = 0;
13
{in this procedure the compiler complains}
19
Stack[StackTop] := Stack[StackTop] and a;