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

* add overload to getenvironmentvariable so that it is also found when windows is before sysutils in the uses list. bug #39448

Browse Source
This commit is contained in:
marcoonthegit 2022-04-25 14:07:43 +02:00
parent 9695dba4d9
commit c203097ec2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/sysutils/osutilsh.inc
View File

@ -23,8 +23,8 @@ Procedure RaiseLastOSError;overload;
Procedure RaiseLastOSError(LastError: Integer);overload; Procedure RaiseLastOSError(LastError: Integer);overload;
procedure CheckOSError(LastError: Integer);platform;{$ifdef SYSTEMINLINE}inline;{$endif} procedure CheckOSError(LastError: Integer);platform;{$ifdef SYSTEMINLINE}inline;{$endif}
Function GetEnvironmentVariable(Const EnvVar : AnsiString) : AnsiString; Function GetEnvironmentVariable(Const EnvVar : AnsiString) : AnsiString; overload;
Function GetEnvironmentVariable(Const EnvVar : UnicodeString) : UnicodeString; Function GetEnvironmentVariable(Const EnvVar : UnicodeString) : UnicodeString; overload;
Function GetEnvironmentString(Index : Integer) : {$ifdef FPC_RTL_UNICODE}UnicodeString{$else}AnsiString{$endif}; Function GetEnvironmentString(Index : Integer) : {$ifdef FPC_RTL_UNICODE}UnicodeString{$else}AnsiString{$endif};
Function GetEnvironmentVariableCount : Integer; Function GetEnvironmentVariableCount : Integer;
{$IFDEF HAS_SLEEP} {$IFDEF HAS_SLEEP}