From ab5b3a6e1c47a3d213663ea29a73daad4dc187f1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Fri, 14 Jul 2023 09:17:46 +0200
Subject: [PATCH] * ansichar is the basic type

---
 rtl/java/jsystemh_types.inc | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/rtl/java/jsystemh_types.inc b/rtl/java/jsystemh_types.inc
index f16d7663eb..e216d72dec 100644
--- a/rtl/java/jsystemh_types.inc
+++ b/rtl/java/jsystemh_types.inc
@@ -398,15 +398,16 @@ Type
 {$ENDIF}
 
 { Zero - terminated strings }
-  PChar               = ^Char;
-  PPChar              = ^PChar;
-  PPPChar             = ^PPChar;
-
-  { AnsiChar is equivalent of AnsiChar, so we need
-    to use type renamings }
+  // Ansichar is the basic type
   TAnsiChar           = AnsiChar;
   PAnsiChar           = ^AnsiChar;
   PPAnsiChar          = ^PAnsiChar;
+  PPPAnsiChar         = ^PPAnsiChar;
+  
+  // Char is an alias
+  PChar               = ^Char;
+  PPChar              = ^PChar;
+  PPPChar             = ^PPChar;
 
   UCS4Char            = type 0..$10ffff;
   PUCS4Char           = ^UCS4Char;