paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 01:29:55 +01:00
Code Issues Packages Projects Releases Wiki Activity

* provide msdos-specific dummy overrides for GetCode/Data/BssSize to avoid crash

Browse Source 
when using the (not yet finished) internal linker

git-svn-id: trunk@31323 -
This commit is contained in:
nickysn 2015-08-14 14:36:18 +00:00
parent d4a4b9a57b
commit e1298a035c
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/systems/t_msdos.pas
View File

@ -37,7 +37,7 @@ implementation
globtype,globals,systems,verbose,script,
fmodule,i_msdos,
link,aasmbase,cpuinfo,
omfbase,ogomf,owomflib;
omfbase,ogbase,ogomf,owomflib;
type
{ Borland TLINK support }
@ -75,6 +75,9 @@ implementation
TInternalLinkerMsDos=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;
@ -394,6 +397,24 @@ end;
TInternalLinkerMsDos
****************************************************************************}
function TInternalLinkerMsDos.GetCodeSize(aExeOutput: TExeOutput): QWord;
begin
{ TODO: implement }
Result:=0;
end;
function TInternalLinkerMsDos.GetDataSize(aExeOutput: TExeOutput): QWord;
begin
{ TODO: implement }
Result:=0;
end;
function TInternalLinkerMsDos.GetBssSize(aExeOutput: TExeOutput): QWord;
begin
{ TODO: implement }
Result:=0;
end;
procedure TInternalLinkerMsDos.DefaultLinkScript;
var
s: TCmdStr;