Browse Source

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

git-svn-id: trunk@42554 -

nickysn 6 năm trước cách đây
mục cha
commit
83afeb2e93
1 tập tin đã thay đổi với 21 bổ sung0 xóa
  1. 21 0
      compiler/systems/t_win16.pas

+ 21 - 0
compiler/systems/t_win16.pas

@@ -73,6 +73,9 @@ implementation
 
 
       TInternalLinkerWin16=class(tinternallinker)
       TInternalLinkerWin16=class(tinternallinker)
       protected
       protected
+        function GetCodeSize(aExeOutput: TExeOutput): QWord;override;
+        function GetDataSize(aExeOutput: TExeOutput): QWord;override;
+        function GetBssSize(aExeOutput: TExeOutput): QWord;override;
         procedure DefaultLinkScript;override;
         procedure DefaultLinkScript;override;
       public
       public
         constructor create;override;
         constructor create;override;
@@ -334,6 +337,24 @@ end;
                                TInternalLinkerWin16
                                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;
 procedure TInternalLinkerWin16.DefaultLinkScript;
 var
 var
   s: TCmdStr;
   s: TCmdStr;