Browse Source

+ added just to test RTL compilation

mazen 23 years ago
parent
commit
edcc7cc4af
2 changed files with 27 additions and 15 deletions
  1. 7 15
      tests/sparc/sparc.pas
  2. 20 0
      tests/sparc/test.pas

+ 7 - 15
tests/sparc/sparc.pas

@@ -1,20 +1,12 @@
+{ $Id$ }
 {$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.
+{
+  $Log$
+  Revision 1.5  2002-12-06 08:35:50  mazen
+  + added just to test RTL compilation
+
+}

+ 20 - 0
tests/sparc/test.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.