Prechádzať zdrojové kódy

+ added more tests for SPARC code generator

mazen 22 rokov pred
rodič
commit
8e001b765a

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