Pārlūkot izejas kodu

Add definitions of ALUSInt and ALUUInt types in java/jsystemh_types.inc

Pierre Muller 4 mēneši atpakaļ
vecāks
revīzija
282f4aa060
1 mainītis faili ar 14 papildinājumiem un 0 dzēšanām
  1. 14 0
      rtl/java/jsystemh_types.inc

+ 14 - 0
rtl/java/jsystemh_types.inc

@@ -365,6 +365,20 @@ Type
   ValUInt = Word;
   ValUInt = Word;
 {$endif CPU16}
 {$endif CPU16}
 
 
+{$if defined(CPUINT8)}
+  ALUSInt = ShortInt;
+  ALUUInt = Byte;
+{$elseif defined(CPUINT16)}
+  ALUSInt = SmallInt;
+  ALUUInt = Word;
+{$elseif defined(CPUINT32)}
+  ALUSInt = Longint;
+  ALUUInt = DWord;
+{$elseif defined(CPUINT64)}
+  ALUSInt = Int64;
+  ALUUInt = QWord;
+{$endif defined(CPUINT64)}
+
   { NativeInt and NativeUInt are Delphi compatibility types. Even though Delphi
   { NativeInt and NativeUInt are Delphi compatibility types. Even though Delphi
     has IntPtr and UIntPtr, the Delphi documentation for NativeInt states that
     has IntPtr and UIntPtr, the Delphi documentation for NativeInt states that
     'The size of NativeInt is equivalent to the size of the pointer on the
     'The size of NativeInt is equivalent to the size of the pointer on the