+ adding cardinal definition in system.pas

tests/sparc/sparc.pas

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

tests/sparc/system.pas

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