Browse Source

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

(cherry picked from commit c203097ec2b68fa7b8374797e379ae4351cea575)
marcoonthegit 3 years ago
parent
commit
8c8178443d
1 changed files with 2 additions and 2 deletions
  1. 2 2
      rtl/objpas/sysutils/osutilsh.inc

+ 2 - 2
rtl/objpas/sysutils/osutilsh.inc

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