@@ -2,9 +2,7 @@
{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
PROGRAM SparcTest;
VAR
- x,y:Cardinal;
+ x:Cardinal;
BEGIN
- y:=0;
- y:=x+1;
+ x:=0;
END.
@@ -3,18 +3,8 @@
x,y:Cardinal;
- z:0..255;
-FUNCTION CopyMe(x:Cardinal):Cardinal;
- BEGIN
- CopyMe:=x;
- END;
-FUNCTION Add(a,b:Cardinal):Cardinal;
- Add:=a+b;
y:=0;
- z:=0;
- x:=1+y;
- x:=Add(x,y);
+ y:=0;
+ y:=x+1;
@@ -1,8 +1,20 @@
{$UNITPATH ../../rtl/linux}
-CONST
- s:STRING='Hello World!';
+VAR
+ x,y:Cardinal;
+ z:0..255;
+FUNCTION CopyMe(x:Cardinal):Cardinal;
+ BEGIN
+ CopyMe:=x;
+ END;
+FUNCTION Add(a,b:Cardinal):Cardinal;
+ Add:=a+b;
- WriteLn(s);
+ z:=0;
+ x:=1+y;
+ x:=Add(x,y);
@@ -0,0 +1,8 @@
+{$UNITPATH ../../rtl/linux}
+{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
+PROGRAM SparcTest;
+CONST
+ s:STRING='Hello World!';
+BEGIN
+ WriteLn(s);
+END.