Bläddra i källkod

+ added dummy overrides for TInternalLinkerWin16.GetCodeSize, .GetDataSize and
.GetBssSize, because the default ones crash

git-svn-id: trunk@42554 -

nickysn 6 år sedan
förälder
incheckning
83afeb2e93
1 ändrade filer med 21 tillägg och 0 borttagningar
  1. 21 0
      compiler/systems/t_win16.pas

+ 21 - 0
compiler/systems/t_win16.pas

@@ -73,6 +73,9 @@ implementation
 
       TInternalLinkerWin16=class(tinternallinker)
       protected
+        function GetCodeSize(aExeOutput: TExeOutput): QWord;override;
+        function GetDataSize(aExeOutput: TExeOutput): QWord;override;
+        function GetBssSize(aExeOutput: TExeOutput): QWord;override;
         procedure DefaultLinkScript;override;
       public
         constructor create;override;
@@ -334,6 +337,24 @@ end;
                                TInternalLinkerWin16
 ****************************************************************************}
 
+function TInternalLinkerWin16.GetCodeSize(aExeOutput: TExeOutput): QWord;
+begin
+  { todo }
+  Result:=0;
+end;
+
+function TInternalLinkerWin16.GetDataSize(aExeOutput: TExeOutput): QWord;
+begin
+  { todo }
+  Result:=0;
+end;
+
+function TInternalLinkerWin16.GetBssSize(aExeOutput: TExeOutput): QWord;
+begin
+  { todo }
+  Result:=0;
+end;
+
 procedure TInternalLinkerWin16.DefaultLinkScript;
 var
   s: TCmdStr;