From 282f4aa06022f30f1347f161ac44f13a0162f178 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Mon, 31 Mar 2025 13:36:13 +0000
Subject: [PATCH] Add definitions of ALUSInt and ALUUInt types in
 java/jsystemh_types.inc

---
 rtl/java/jsystemh_types.inc | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/rtl/java/jsystemh_types.inc b/rtl/java/jsystemh_types.inc
index 72fe93c106..804d592895 100644
--- a/rtl/java/jsystemh_types.inc
+++ b/rtl/java/jsystemh_types.inc
@@ -365,6 +365,20 @@ Type
   ValUInt = Word;
 {$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
     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