From be4e5f240c9cef72e0867de9cf5aada8a564d459 Mon Sep 17 00:00:00 2001
From: Karoly Balogh <karoly@freepascal.org>
Date: Mon, 8 Jan 2024 01:32:49 +0100
Subject: [PATCH] m68k-sinclairql: make heaptrc compile for the QL

---
 rtl/inc/heaptrc.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/inc/heaptrc.pp b/rtl/inc/heaptrc.pp
index 4e1ca2308e..401efe248d 100644
--- a/rtl/inc/heaptrc.pp
+++ b/rtl/inc/heaptrc.pp
@@ -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.