paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 22:07:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

m68k-sinclairql: make heaptrc compile for the QL

Browse Source
This commit is contained in:
Karoly Balogh 2024-01-08 01:32:49 +01:00
parent 3b7a347169
commit be4e5f240c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/heaptrc.pp
View File

@ -1684,7 +1684,7 @@ begin
end;
FreeEnvironmentStrings(p);
end;
{$elseif defined(wince)}
{$elseif defined(wince) or defined(sinclairql)}
Function GetEnv(P:string):PAnsichar;
begin
{ WinCE does not have environment strings.