From e4b2acc8e0912cd4f70fb0c67715a96f6840b68a Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Fri, 14 Jun 2019 16:42:45 +0000
Subject: + 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
---
 compiler/systems.inc         |  3 ++-
 compiler/systems/t_win16.pas | 28 ++++++++++++++++++++++++++++
 2 files changed, 30 insertions(+), 1 deletion(-)

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);
-- 
cgit v1.2.1