* limit the ZX Spectrum programs address space up to $FDFC, because the RTL now

  installs an interrupt handler at $FDFD



git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@45678 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 20 insertions, 0 deletions

diff --git a/compiler/ogrel.pas b/compiler/ogrel.pas
index bc527f8104..fce7d07cf4 100644
--- a/compiler/ogrel.pas
+++ b/compiler/ogrel.pas
@@ -131,6 +131,13 @@ interface
         constructor create;override;
       end;
 
+      { TZXSpectrumIntelHexExeOutput }
+
+      TZXSpectrumIntelHexExeOutput = class(TIntelHexExeOutput)
+      public
+        constructor create;override;
+      end;
+
 implementation
 
     uses
@@ -1322,6 +1329,19 @@ implementation
       end;
 
 {*****************************************************************************
+                         TZXSpectrumIntelHexExeOutput
+*****************************************************************************}
+
+    constructor TZXSpectrumIntelHexExeOutput.create;
+      begin
+        inherited create;
+        { The ZX Spectrum RTL switches to interrupt mode 2, and install an
+          interrupt handler + table, starting at address $FDFD, so we must limit
+          program size to $FDFC }
+        MaxMemPos:=$FDFC;
+      end;
+
+{*****************************************************************************
                                   Initialize
 *****************************************************************************}
     const