Explorar o código

+ more test to validate FPC/SPARC

mazen %!s(int64=22) %!d(string=hai) anos
pai
achega
515af60a33
Modificáronse 2 ficheiros con 40 adicións e 0 borrados
  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.