Browse Source

+ more test to validate FPC/SPARC

mazen 22 years ago
parent
commit
515af60a33
2 changed files with 40 additions and 0 deletions
  1. 20 0
      tests/sparc/test0002.pas
  2. 20 0
      tests/sparc/test0003.pas

+ 20 - 0
tests/sparc/test0002.pas

@@ -0,0 +1,20 @@
+{$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.

+ 20 - 0
tests/sparc/test0003.pas

@@ -0,0 +1,20 @@
+{$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.