paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +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}
{$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);