From fb74ebbf6c641ae3035e198578c0c637e07982df Mon Sep 17 00:00:00 2001
From: Michael VAN CANNEYT <mvancanneyt@tixeo.com>
Date: Fri, 6 Jan 2023 15:20:06 +0100
Subject: [PATCH] * fix PString

---
 rtl/objpas/objpas.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/objpas.pp b/rtl/objpas/objpas.pp
index 5cd257b248..304b22ac2a 100644
--- a/rtl/objpas/objpas.pp
+++ b/rtl/objpas/objpas.pp
@@ -12,12 +12,12 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+unit objpas;
 {$Mode ObjFpc}
 {$I-}
 {$ifndef Unix}
   {$S-}
 {$endif}
-unit objpas;
 
 interface
 
@@ -37,7 +37,11 @@ interface
 {$endif CPU16}
 
        { Ansistring are the default }
+{$IF SIZEOF(Char)=2}
+       PString = PWideString;
+{$ELSE}
        PString = PAnsiString;
+{$ENDIF}
 
        { array types }
 {$ifdef CPU16}