+ added a win16 internal linker class. Not functional yet.

git-svn-id: trunk@42226 -
This commit is contained in:
nickysn 2019-06-14 16:42:45 +00:00
parent d3c3f2742c
commit db1903f45d
2 changed files with 30 additions and 1 deletions

View File

@ -279,7 +279,8 @@
ld_int_nativent, ld_int_nativent,
ld_int_netware, ld_int_netware,
ld_int_windows, ld_int_windows,
ld_int_msdos ld_int_msdos,
ld_int_win16
); );
tar = (ar_none tar = (ar_none

View File

@ -69,6 +69,15 @@ implementation
function MakeExecutable:boolean;override; function MakeExecutable:boolean;override;
end; end;
{ TInternalLinkerWin16 }
TInternalLinkerWin16=class(tinternallinker)
protected
procedure DefaultLinkScript;override;
public
constructor create;override;
end;
{**************************************************************************** {****************************************************************************
TImportLibWin16 TImportLibWin16
****************************************************************************} ****************************************************************************}
@ -312,11 +321,30 @@ begin
end; end;
{****************************************************************************
TInternalLinkerWin16
****************************************************************************}
procedure TInternalLinkerWin16.DefaultLinkScript;
begin
{todo}
end;
constructor TInternalLinkerWin16.create;
begin
inherited create;
CArObjectReader:=TOmfLibObjectReader;
CExeOutput:=TNewExeOutput;
CObjInput:=TOmfObjInput;
end;
{***************************************************************************** {*****************************************************************************
Initialize Initialize
*****************************************************************************} *****************************************************************************}
initialization initialization
RegisterLinker(ld_int_win16,TInternalLinkerWin16);
RegisterLinker(ld_win16,TExternalLinkerWin16WLink); RegisterLinker(ld_win16,TExternalLinkerWin16WLink);
RegisterImport(system_i8086_win16,TImportLibWin16); RegisterImport(system_i8086_win16,TImportLibWin16);
RegisterExport(system_i8086_win16,TExportLibWin16); RegisterExport(system_i8086_win16,TExportLibWin16);