Explorar o código

+ sparc types added
+ UTF*/UCS* types added

florian %!s(int64=23) %!d(string=hai) anos
pai
achega
758a11f069
Modificáronse 1 ficheiros con 34 adicións e 2 borrados
  1. 34 2
      rtl/inc/systemh.inc

+ 34 - 2
rtl/inc/systemh.inc

@@ -136,6 +136,22 @@ Type
   Comp = Int64;
 {$endif powerpc}
 
+{$ifdef sparc}
+  StrLenInt = LongInt;
+
+  {$define DEFAULT_DOUBLE}
+
+  {$define SUPPORT_SINGLE}
+  {$define SUPPORT_DOUBLE}
+
+  ValSInt = Longint;
+  ValUInt = Cardinal;
+  ValReal = Double;
+
+  { map comp to int64, but this doesn't mean to compile the comp support in! }
+  Comp = Int64;
+{$endif sparc}
+
 { Zero - terminated strings }
   PChar               = ^Char;
   PPChar              = ^PChar;
@@ -145,8 +161,20 @@ Type
   PAnsiChar           = ^TAnsiChar;
   PPAnsiChar          = ^PAnsiChar;
 
-  UCS4Char            = Cardinal;
+// UCS4Char            = type LongWord;
+  UCS4Char            = LongWord;
   PUCS4Char           = ^UCS4Char;
+  TUCS4CharArray      = array[0..$effffff] of UCS4Char;
+  PUCS4CharArray      = ^TUCS4CharArray;
+{$ifndef VER1_0}
+  UCS4String          = array of UCS4Char;
+{$endif VER1_0}
+
+
+//  UTF8String          = type ansistring;
+  UTF8String          = ansistring;
+  PUTF8String         = ^UTF8String;
+
 {$ifndef HASCURRENCY}
   Currency            = Int64;
 {$endif HASCURRENCY}
@@ -626,7 +654,11 @@ const
 
 {
   $Log$
-  Revision 1.59  2002-10-14 19:39:17  peter
+  Revision 1.60  2002-11-16 20:12:22  florian
+    + sparc types added
+    + UTF*/UCS* types added
+
+  Revision 1.59  2002/10/14 19:39:17  peter
     * threads unit added for thread support
 
   Revision 1.58  2002/10/06 13:56:47  carl