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

+ more msdos internal linker classes added

Browse Source 
git-svn-id: trunk@30811 -
This commit is contained in:
nickysn 2015-05-06 14:49:07 +00:00
parent 93ec811c97
commit 3b288554e7
2 changed files with 45 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/ogomf.pas
View File

@ -117,6 +117,18 @@ interface
destructor Destroy;override;
end;
{ TOmfObjInput }
TOmfObjInput = class(TObjInput)
constructor create;override;
end;
{ TMZExeOutput }
TMZExeOutput = class(TExeOutput)
constructor create;override;
end;
TOmfAssembler = class(tinternalassembler)
constructor create(smart:boolean);override;
end;
@ -868,6 +880,25 @@ implementation
inherited Destroy;
end;
{****************************************************************************
TOmfObjInput
****************************************************************************}
constructor TOmfObjInput.create;
begin
inherited create;
cobjdata:=TOmfObjData;
end;
{****************************************************************************
TMZExeOutput
****************************************************************************}
constructor TMZExeOutput.create;
begin
inherited create;
end;
{****************************************************************************
TOmfAssembler
****************************************************************************}

16
compiler/systems/t_msdos.pas
View File

@ -36,7 +36,8 @@ implementation
cutils,cfileutl,cclasses,
globtype,globals,systems,verbose,script,
fmodule,i_msdos,
link,aasmbase,cpuinfo;
link,aasmbase,cpuinfo,
omfbase,ogomf;
type
{ Borland TLINK support }
@ -73,7 +74,7 @@ implementation
{ TInternalLinkerMsDos }
TInternalLinkerMsDos=class(tinternallinker)
constructor create;override;
end;
@ -386,6 +387,17 @@ begin
Result:=true;
end;
{****************************************************************************
TInternalLinkerMsDos
****************************************************************************}
constructor TInternalLinkerMsDos.create;
begin
inherited create;
CExeOutput:=TMZExeOutput;
CObjInput:=TOmfObjInput;
end;
{*****************************************************************************
Initialize
*****************************************************************************}