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

also return nil for the empty env vars in the generic implementation in GetEnvPChar

Browse Source 
git-svn-id: trunk@24733 -
This commit is contained in:
Károly Balogh 2013-06-01 17:40:34 +00:00
parent 678fb02f11
commit 76d7527909
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/globals.pas
View File

@ -902,6 +902,11 @@ implementation
{$undef GETENVOK} {$undef GETENVOK}
{$else} {$else}
GetEnvPchar:=StrPNew(GetEnvironmentVariable(envname)); GetEnvPchar:=StrPNew(GetEnvironmentVariable(envname));
if (length(GetEnvPChar)=0) then
begin
FreeEnvPChar(GetEnvPChar);
GetEnvPChar:=nil;
end;
{$endif} {$endif}
end; end;