Browse Source

* added step between old 0000 and 0001 to support var assignment test

mazen 22 years ago
parent
commit
cdcba3d975
4 changed files with 27 additions and 19 deletions
  1. 2 4
      tests/sparc/test0001.pas
  2. 2 12
      tests/sparc/test0002.pas
  3. 15 3
      tests/sparc/test0003.pas
  4. 8 0
      tests/sparc/test0004.pas

+ 2 - 4
tests/sparc/test0001.pas

@@ -2,9 +2,7 @@
 {$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
 {$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
 PROGRAM SparcTest;
 PROGRAM SparcTest;
 VAR
 VAR
-  x,y:Cardinal; 
+  x:Cardinal; 
 BEGIN
 BEGIN
-  y:=0;
-  y:=0;
-  y:=x+1;
+  x:=0;
 END.
 END.

+ 2 - 12
tests/sparc/test0002.pas

@@ -3,18 +3,8 @@
 PROGRAM SparcTest;
 PROGRAM SparcTest;
 VAR
 VAR
   x,y:Cardinal; 
   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
 BEGIN
   y:=0;
   y:=0;
-  z:=0;
-  x:=1+y;
-  x:=Add(x,y);
+  y:=0;
+  y:=x+1;
 END.
 END.

+ 15 - 3
tests/sparc/test0003.pas

@@ -1,8 +1,20 @@
 {$UNITPATH ../../rtl/linux}
 {$UNITPATH ../../rtl/linux}
 {$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
 {$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
 PROGRAM SparcTest;
 PROGRAM SparcTest;
-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;
+  BEGIN
+    Add:=a+b;
+  END;
 BEGIN
 BEGIN
-  WriteLn(s);
+  y:=0;
+  z:=0;
+  x:=1+y;
+  x:=Add(x,y);
 END.
 END.

+ 8 - 0
tests/sparc/test0004.pas

@@ -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.