paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:29:24 +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) 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;