Bladeren bron

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

git-svn-id: trunk@30810 -
nickysn 10 jaren geleden
bovenliggende
commit
93ec811c97
2 gewijzigde bestanden met toevoegingen van 9 en 1 verwijderingen
  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_linux,
              ld_int_nativent,
              ld_int_nativent,
              ld_int_netware,
              ld_int_netware,
-             ld_int_windows
+             ld_int_windows,
+             ld_int_msdos
        );
        );
 
 
        tar = (ar_none
        tar = (ar_none

+ 7 - 0
compiler/systems/t_msdos.pas

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