2
0
Эх сурвалжийг харах

- removed the GetCode/Data/BssSize overrides in the ZX Spectrum internal linker,
since the default implementation, inherited from parent now works

git-svn-id: trunk@45576 -

nickysn 5 жил өмнө
parent
commit
3023a9f0e2

+ 0 - 18
compiler/systems/t_zxspectrum.pas

@@ -65,9 +65,6 @@ implementation
          FOrigin: Word;
        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;
@@ -379,21 +376,6 @@ procedure TInternalLinkerZXSpectrum.DefaultLinkScript;
     LinkScript.Concat('ENTRYNAME start');
   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;