From 28dc9fe68b6e6759e6d7774b278935ca1be37dab Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sun, 5 Apr 2015 21:47:32 +0000
Subject: [PATCH] * fixed definition of the ALUSInt type on 16-bit CPUs

git-svn-id: trunk@30453 -
---
 rtl/inc/systemh.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 8a2fd25af0..6b5e5b5d67 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -413,7 +413,7 @@ Type
   ALUSInt = ShortInt;
   ALUUInt = Byte;
 {$elseif defined(CPUINT16)}
-  ALUSInt = ShortInt;
+  ALUSInt = SmallInt;
   ALUUInt = Word;
 {$elseif defined(CPUINT32)}
   ALUSInt = Longint;