paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:09:33 +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;
FreeEnvironmentStrings(p);
end;
{$else defined(win32) or defined(win64)}
{$ifdef wince}
{$elseif defined(wince)}
Function GetEnv(P:string):Pchar;
begin
{ WinCE does not have environment strings.
Add some way to specify heaptrc options? }
GetEnv:=nil;
end;
{$else wince}
{$else}
Function GetEnv(P:string):Pchar;
{
Searches the environment for a string with name p and
@ -1510,8 +1507,7 @@ Begin
else
getenv:=nil;
end;
{$endif wince}
{$endif win32}
{$endif}
procedure LoadEnvironment;
var