paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 20:17:21 +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, globtype,globals,systems,verbose,script,
fmodule,i_msdos, fmodule,i_msdos,
link,aasmbase,cpuinfo, link,aasmbase,cpuinfo,
omfbase,ogomf,owomflib; omfbase,ogbase,ogomf,owomflib;
type type
{ Borland TLINK support } { Borland TLINK support }
@ -75,6 +75,9 @@ implementation
TInternalLinkerMsDos=class(tinternallinker) TInternalLinkerMsDos=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;
@ -394,6 +397,24 @@ end;
TInternalLinkerMsDos 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; procedure TInternalLinkerMsDos.DefaultLinkScript;
var var
s: TCmdStr; s: TCmdStr;