paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 22:17:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ added just to test RTL compilation

Browse Source
This commit is contained in:
mazen 2002-12-06 08:35:50 +00:00
parent e0451e6641
commit edcc7cc4af
2 changed files with 27 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/sparc/sparc.pas
View File

@ -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
tests/sparc/test.pas Normal file
View File

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