Forráskód Böngészése

+ added more tests for SPARC code generator

mazen 22 éve
szülő
commit
8e001b765a
3 módosított fájl, 35 hozzáadás és 0 törlés
  1. 10 0
      tests/sparc/test0006.pas
  2. 10 0
      tests/sparc/test0007.pas
  3. 15 0
      tests/sparc/test0008.pas

+ 10 - 0
tests/sparc/test0006.pas

@@ -0,0 +1,10 @@
+{$UNITPATH ../../rtl/linux}
+{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
+PROGRAM SparcTest;
+VAR
+  i:Integer;
+BEGIN
+  IF(i>0)
+  THEN
+    WriteLn(i);
+END.

+ 10 - 0
tests/sparc/test0007.pas

@@ -0,0 +1,10 @@
+{$UNITPATH ../../rtl/linux}
+{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
+PROGRAM SparcTest;
+VAR
+  c:Char;
+BEGIN
+  IF(c='0')
+  THEN
+    WriteLn(c);
+END.

+ 15 - 0
tests/sparc/test0008.pas

@@ -0,0 +1,15 @@
+{$UNITPATH ../../rtl/linux}
+{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
+PROGRAM SparcTest;
+VAR
+  c:Char;
+BEGIN
+  CASE c OF
+    '0':
+      WriteLn(0);
+    '1':
+      WriteLn(1);
+    '2':
+      WriteLn('2');
+  END;
+END.