mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 13:59:29 +02:00
3ce7927096
- lowers build times - ide is not that important anymore than years before - other utils like pastojs are also located in the packages tree git-svn-id: trunk@37926 -
34 lines
392 B
ObjectPascal
34 lines
392 B
ObjectPascal
{$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.
|