From 996eaf16b36c0517a1985b88adceffc75d86efc5 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Mon, 1 Jun 2020 14:02:10 +0000
Subject: [PATCH] + override TInternalLinkerZXSpectrum.GetCode/Data/BssSize to
 avoid access violation error

git-svn-id: trunk@45550 -
---
 compiler/systems/t_zxspectrum.pas | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/compiler/systems/t_zxspectrum.pas b/compiler/systems/t_zxspectrum.pas
index 04ee81cc26..4a42baa3fb 100644
--- a/compiler/systems/t_zxspectrum.pas
+++ b/compiler/systems/t_zxspectrum.pas
@@ -33,7 +33,7 @@ implementation
        SysUtils,
        cutils,cfileutl,cclasses,
        globtype,globals,systems,verbose,comphook,cscript,fmodule,i_zxspectrum,link,
-       cpuinfo,ogrel,owar;
+       cpuinfo,ogbase,ogrel,owar;
 
     type
 
@@ -63,6 +63,9 @@ implementation
        TInternalLinkerZXSpectrum=class(tinternallinker)
        protected
          procedure DefaultLinkScript;override;
+         function GetCodeSize(aExeOutput: TExeOutput): QWord;override;
+         function GetDataSize(aExeOutput: TExeOutput): QWord;override;
+         function GetBssSize(aExeOutput: TExeOutput): QWord;override;
        public
          constructor create;override;
          procedure InitSysInitUnitName;override;
@@ -358,6 +361,21 @@ procedure TInternalLinkerZXSpectrum.DefaultLinkScript;
     LinkScript.Concat('ENDGROUP');
   end;
 
+function TInternalLinkerZXSpectrum.GetCodeSize(aExeOutput: TExeOutput): QWord;
+  begin
+    Result:=0;
+  end;
+
+function TInternalLinkerZXSpectrum.GetDataSize(aExeOutput: TExeOutput): QWord;
+  begin
+    Result:=0;
+  end;
+
+function TInternalLinkerZXSpectrum.GetBssSize(aExeOutput: TExeOutput): QWord;
+  begin
+    Result:=0;
+  end;
+
 constructor TInternalLinkerZXSpectrum.create;
   begin
     inherited create;