From f0e37e3520810adb8cf9ebb7714acd618a531efe Mon Sep 17 00:00:00 2001 From: mazen Date: Wed, 8 Oct 2003 10:59:19 +0000 Subject: [PATCH] - testing sparc is now possible using standard test programs it passed the stage of hello world! --- tests/sparc/asld.sh | 15 --------------- tests/sparc/test0000.pas | 15 --------------- tests/sparc/test0001.pas | 8 -------- tests/sparc/test0002.pas | 10 ---------- tests/sparc/test0003.pas | 20 -------------------- tests/sparc/test0004.pas | 8 -------- tests/sparc/test0005.pas | 9 --------- tests/sparc/test0006.pas | 10 ---------- tests/sparc/test0007.pas | 10 ---------- tests/sparc/test0008.pas | 15 --------------- 10 files changed, 120 deletions(-) delete mode 100644 tests/sparc/asld.sh delete mode 100644 tests/sparc/test0000.pas delete mode 100644 tests/sparc/test0001.pas delete mode 100644 tests/sparc/test0002.pas delete mode 100644 tests/sparc/test0003.pas delete mode 100644 tests/sparc/test0004.pas delete mode 100644 tests/sparc/test0005.pas delete mode 100644 tests/sparc/test0006.pas delete mode 100644 tests/sparc/test0007.pas delete mode 100644 tests/sparc/test0008.pas diff --git a/tests/sparc/asld.sh b/tests/sparc/asld.sh deleted file mode 100644 index 3b3a2c123b..0000000000 --- a/tests/sparc/asld.sh +++ /dev/null @@ -1,15 +0,0 @@ -#!/bin/sh -DoExitAsm () -{ echo "An error occurred while assembling $1"; exit 1; } -DoExitLink () -{ echo "An error occurred while linking $1"; exit 1; } -echo Assembling $1 -/usr/local/bin/sparc-linux/as -o "$1.o" "$1.s" -if [ $? != 0 ]; then DoExitAsm system; fi -echo Assembling system -/usr/local/bin/sparc-linux/as -o system.o system.s -/usr/local/bin/sparc-linux/as -o prt0.o ../../rtl/linux/sparc/prt0.as -if [ $? != 0 ]; then DoExitAsm sparctest; fi -echo Linking sparctest -/usr/local/bin/sparc-linux/ld -s -L. -o "$1" link.res -if [ $? != 0 ]; then DoExitLink sparctest; fi diff --git a/tests/sparc/test0000.pas b/tests/sparc/test0000.pas deleted file mode 100644 index 0c384cf8be..0000000000 --- a/tests/sparc/test0000.pas +++ /dev/null @@ -1,15 +0,0 @@ -{ $Id$ } -{$UNITPATH ../../rtl/linux} -{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc} -PROGRAM SparcTest; -BEGIN -END. -{ - $Log$ - Revision 1.1 2003-02-05 21:54:37 mazen - * changing names of test files to allow traçability and automated NRT - - Revision 1.5 2002/12/06 08:35:50 mazen - + added just to test RTL compilation - -} diff --git a/tests/sparc/test0001.pas b/tests/sparc/test0001.pas deleted file mode 100644 index b0fa3de24b..0000000000 --- a/tests/sparc/test0001.pas +++ /dev/null @@ -1,8 +0,0 @@ -{$UNITPATH ../../rtl/linux} -{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc} -PROGRAM SparcTest; -VAR - x:Cardinal; -BEGIN - x:=0; -END. diff --git a/tests/sparc/test0002.pas b/tests/sparc/test0002.pas deleted file mode 100644 index b72bb62b49..0000000000 --- a/tests/sparc/test0002.pas +++ /dev/null @@ -1,10 +0,0 @@ -{$UNITPATH ../../rtl/linux} -{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc} -PROGRAM SparcTest; -VAR - x,y:Cardinal; -BEGIN - y:=0; - y:=0; - y:=x+1; -END. diff --git a/tests/sparc/test0003.pas b/tests/sparc/test0003.pas deleted file mode 100644 index 739b7a37a1..0000000000 --- a/tests/sparc/test0003.pas +++ /dev/null @@ -1,20 +0,0 @@ -{$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. diff --git a/tests/sparc/test0004.pas b/tests/sparc/test0004.pas deleted file mode 100644 index 1249b9a599..0000000000 --- a/tests/sparc/test0004.pas +++ /dev/null @@ -1,8 +0,0 @@ -{$UNITPATH ../../rtl/linux} -{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc} -PROGRAM SparcTest; -CONST - s:STRING='Hello World!'; -BEGIN - WriteLn(s); -END. diff --git a/tests/sparc/test0005.pas b/tests/sparc/test0005.pas deleted file mode 100644 index cdcc7e888e..0000000000 --- a/tests/sparc/test0005.pas +++ /dev/null @@ -1,9 +0,0 @@ -{$UNITPATH ../../rtl/linux} -{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc} -PROGRAM SparcTest; -VAR - i:Integer; -BEGIN - FOR i:=0 TO MaxInt DO - WriteLn(i); -END. diff --git a/tests/sparc/test0006.pas b/tests/sparc/test0006.pas deleted file mode 100644 index 69c2ae471f..0000000000 --- a/tests/sparc/test0006.pas +++ /dev/null @@ -1,10 +0,0 @@ -{$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. diff --git a/tests/sparc/test0007.pas b/tests/sparc/test0007.pas deleted file mode 100644 index c8b26a1291..0000000000 --- a/tests/sparc/test0007.pas +++ /dev/null @@ -1,10 +0,0 @@ -{$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. diff --git a/tests/sparc/test0008.pas b/tests/sparc/test0008.pas deleted file mode 100644 index 0251bc38df..0000000000 --- a/tests/sparc/test0008.pas +++ /dev/null @@ -1,15 +0,0 @@ -{$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.