diff options
author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-14 16:42:45 +0000 |
---|---|---|
committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-14 16:42:45 +0000 |
commit | e4b2acc8e0912cd4f70fb0c67715a96f6840b68a (patch) | |
tree | 348bcfc5e58778ea01ae522edb3f004cf9ea9678 | |
parent | ba4f7ae0936e13589a0d5ae641b9c232d6314ac6 (diff) | |
download | fpc-e4b2acc8e0912cd4f70fb0c67715a96f6840b68a.tar.gz |
+ added a win16 internal linker class. Not functional yet.
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@42226 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | compiler/systems.inc | 3 | ||||
-rw-r--r-- | compiler/systems/t_win16.pas | 28 |
2 files changed, 30 insertions, 1 deletions
diff --git a/compiler/systems.inc b/compiler/systems.inc index a9b3937cc6..e69fed558f 100644 --- a/compiler/systems.inc +++ b/compiler/systems.inc @@ -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 diff --git a/compiler/systems/t_win16.pas b/compiler/systems/t_win16.pas index 229be8496a..46392ad040 100644 --- a/compiler/systems/t_win16.pas +++ b/compiler/systems/t_win16.pas @@ -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); |