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

+ adding cardinal definition in system.pas

Browse Source
This commit is contained in:
mazen 2002-10-10 13:42:06 +00:00
parent 08232e556b
commit fca3b1b827
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/sparc/sparc.pas
View File

@ -1,6 +1,6 @@
PROGRAM SparcTest;
VAR
x,y:0..2 SHL 32-1;
x,y:Cardinal;
z:0..255;
FUNCTION Add(a,b:Cardinal):Cardinal;
BEGIN

4
tests/sparc/system.pas
View File

@ -1,9 +1,11 @@
UNIT {SPARC}System;
INTERFACE
CONST
MaxInt=2 SHL 15-1;
MaxInt=1 SHL 16 - 1;
MaxCardinal=1 SHL 32 - 1;
TYPE
Integer=-MaxInt-1..MaxInt;
Cardinal=0..MaxCardinal;
VAR
Input,Output:Text;
IMPLEMENTATION