mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-21 22:52:38 +02:00
21 lines
341 B
ObjectPascal
21 lines
341 B
ObjectPascal
{$UNITPATH ../../rtl/linux}
|
|
{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
|
|
PROGRAM SparcTest;
|
|
VAR
|
|
x,y:Cardinal;
|
|
z:0..255;
|
|
FUNCTION CopyMe(x:Cardinal):Cardinal;
|
|
BEGIN
|
|
CopyMe:=x;
|
|
END;
|
|
FUNCTION Add(a,b:Cardinal):Cardinal;
|
|
BEGIN
|
|
Add:=a+b;
|
|
END;
|
|
BEGIN
|
|
y:=0;
|
|
z:=0;
|
|
x:=1+y;
|
|
x:=Add(x,y);
|
|
END.
|