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

* replaced nested ifdefs with an elseif sequence

Browse Source 
git-svn-id: trunk@31957 -
This commit is contained in:
nickysn 2015-10-05 22:08:53 +00:00
parent e15c969cbc
commit 3faf91a270
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/heaptrc.pp
View File

@ -1465,17 +1465,14 @@ begin
end; end;
FreeEnvironmentStrings(p); FreeEnvironmentStrings(p);
end; end;
{$else defined(win32) or defined(win64)} {$elseif defined(wince)}
{$ifdef wince}
Function GetEnv(P:string):Pchar; Function GetEnv(P:string):Pchar;
begin begin
{ WinCE does not have environment strings. { WinCE does not have environment strings.
Add some way to specify heaptrc options? } Add some way to specify heaptrc options? }
GetEnv:=nil; GetEnv:=nil;
end; end;
{$else wince} {$else}
Function GetEnv(P:string):Pchar; Function GetEnv(P:string):Pchar;
{ {
Searches the environment for a string with name p and Searches the environment for a string with name p and
@ -1510,8 +1507,7 @@ Begin
else else
getenv:=nil; getenv:=nil;
end; end;
{$endif wince} {$endif}
{$endif win32}
procedure LoadEnvironment; procedure LoadEnvironment;
var var