paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 14:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added dummy overrides for TInternalLinkerWin16.GetCodeSize, .GetDataSize and

Browse Source 
.GetBssSize, because the default ones crash

git-svn-id: trunk@42554 -
This commit is contained in:
nickysn 2019-08-01 16:49:08 +00:00
parent 5d01d53a96
commit 83afeb2e93
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/systems/t_win16.pas
View File

@ -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;