Преглед изворни кода

+ created the msdos internal linker class (empty for now)

git-svn-id: trunk@30810 -
nickysn пре 10 година
родитељ
комит
93ec811c97
2 измењених фајлова са 9 додато и 1 уклоњено
  1. 2 1
      compiler/systems.inc
  2. 7 0
      compiler/systems/t_msdos.pas

+ 2 - 1
compiler/systems.inc

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

+ 7 - 0
compiler/systems/t_msdos.pas

@@ -70,6 +70,12 @@ implementation
          function  MakeExecutable:boolean;override;
       end;
 
+      { TInternalLinkerMsDos }
+
+      TInternalLinkerMsDos=class(tinternallinker)
+
+      end;
+
 
 {****************************************************************************
                                TExternalLinkerMsDosTLink
@@ -385,6 +391,7 @@ end;
 *****************************************************************************}
 
 initialization
+  RegisterLinker(ld_int_msdos,TInternalLinkerMsDos);
 {$if defined(USE_LINKER_TLINK)}
   RegisterLinker(ld_msdos,TExternalLinkerMsDosTLink);
 {$elseif defined(USE_LINKER_ALINK)}