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

+ simple function (1 param) added

Browse Source
This commit is contained in:
mazen 2002-11-09 11:31:27 +00:00
parent f088674d6a
commit 945bbee573
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/sparc/sparc.pas
View File

@ -2,6 +2,10 @@ PROGRAM SparcTest;
VAR VAR
x,y:Cardinal; x,y:Cardinal;
z:0..255; z:0..255;
FUNCTION CopyMe(x:Cardinal):Cardinal;
BEGIN
CopyMe:=x;
END;
FUNCTION Add(a,b:Cardinal):Cardinal; FUNCTION Add(a,b:Cardinal):Cardinal;
BEGIN BEGIN
Add:=a+b; Add:=a+b;