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

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/systems.inc
View File

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

28
compiler/systems/t_win16.pas
View File

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