Przeglądaj źródła

* fixed definition of the ALUSInt type on 16-bit CPUs

git-svn-id: trunk@30453 -
nickysn 10 lat temu
rodzic
commit
28dc9fe68b
1 zmienionych plików z 1 dodań i 1 usunięć
  1. 1 1
      rtl/inc/systemh.inc

+ 1 - 1
rtl/inc/systemh.inc

@@ -413,7 +413,7 @@ Type
   ALUSInt = ShortInt;
   ALUSInt = ShortInt;
   ALUUInt = Byte;
   ALUUInt = Byte;
 {$elseif defined(CPUINT16)}
 {$elseif defined(CPUINT16)}
-  ALUSInt = ShortInt;
+  ALUSInt = SmallInt;
   ALUUInt = Word;
   ALUUInt = Word;
 {$elseif defined(CPUINT32)}
 {$elseif defined(CPUINT32)}
   ALUSInt = Longint;
   ALUSInt = Longint;