paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 02:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* String -> ansistring

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 12:23:26 +01:00 committed by Michaël Van Canneyt
parent 3aefada11a
commit b9a1a90d6e
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/unix/sysutils.pp
View File

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