blob: bfefa25d55e34f9d6d801aac324ae4d8f9fd27c0 (
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
29
30
31
32
33
|
{$L+}
unit Test2;
interface
type
PRecord = ^TRecord;
TRecord = record
Field1: longint;
Next : PRecord;
end;
function IsOdd(X: integer): boolean;
var
TEST2_X : real;
implementation
function IsOdd(X: integer): boolean;
var Z: byte;
begin
Z:=0;
X:=Z*X{$ifdef cpui386}*
Test8087{$endif};
IsOdd:=(X mod 2)=1;
end;
procedure static;
begin
end;
END.
|
