From b9a1a90d6e737b1132b5e3fbc69e580fc4bf9f1c Mon Sep 17 00:00:00 2001
From: Michael VAN CANNEYT <mvancanneyt@tixeo.com>
Date: Fri, 6 Jan 2023 12:23:26 +0100
Subject: [PATCH] * String -> ansistring

---
 rtl/unix/sysutils.pp | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/rtl/unix/sysutils.pp b/rtl/unix/sysutils.pp
index 708b9c2ed0..a72246767d 100644
--- a/rtl/unix/sysutils.pp
+++ b/rtl/unix/sysutils.pp
@@ -18,8 +18,8 @@ interface
 
 {$MODE objfpc}
 {$MODESWITCH OUT}
-{ force ansistrings }
-{$H+}
+{$H+} // will result in unicode string in unicode RTL
+
 {$modeswitch typehelpers}
 {$modeswitch advancedrecords}
 
@@ -1527,11 +1527,8 @@ end;
                               OS utility functions
 ****************************************************************************}
 
-Function GetEnvironmentVariable(Const EnvVar : String) : String;
-
+Function GetEnvironmentVariable(Const EnvVar : AnsiString) : AnsiString;
 begin
-  { no need to adjust the code page of EnvVar to DefaultSystemCodePage, as only
-    ASCII identifiers are supported }
   Result:=BaseUnix.FPGetenv(PAnsiChar(pointer(EnvVar)));
 end;
 
@@ -1541,7 +1538,7 @@ begin
   Result:=FPCCountEnvVar(EnvP);
 end;
 
-Function GetEnvironmentString(Index : Integer) : {$ifdef FPC_RTL_UNICODE}UnicodeString{$else}AnsiString{$endif};
+Function GetEnvironmentString(Index : Integer) : RTLString;
 
 begin
   Result:=FPCGetEnvStrFromP(Envp,Index);