paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 08:49:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added step between old 0000 and 0001 to support var assignment test

Browse Source
This commit is contained in:
mazen 2003-02-26 22:37:53 +00:00
parent 87c9ee49d9
commit cdcba3d975
4 changed files with 27 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/sparc/test0001.pas
View File

@ -2,9 +2,7 @@
{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
PROGRAM SparcTest;
VAR
x,y:Cardinal;
x:Cardinal;
BEGIN
y:=0;
y:=0;
y:=x+1;
x:=0;
END.

14
tests/sparc/test0002.pas
View File

@ -3,18 +3,8 @@
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);
y:=0;
y:=x+1;
END.

18
tests/sparc/test0003.pas
View File

@ -1,8 +1,20 @@
{$UNITPATH ../../rtl/linux}
{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
PROGRAM SparcTest;
CONST
s:STRING='Hello World!';
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
WriteLn(s);
y:=0;
z:=0;
x:=1+y;
x:=Add(x,y);
END.

8
tests/sparc/test0004.pas Normal file
View File

@ -0,0 +1,8 @@
{$UNITPATH ../../rtl/linux}
{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
PROGRAM SparcTest;
CONST
s:STRING='Hello World!';
BEGIN
WriteLn(s);
END.