paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 12:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@30810 -
This commit is contained in:
nickysn 2015-05-06 13:45:39 +00:00
parent ced1368221
commit 93ec811c97
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/systems.inc
View File

@ -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
compiler/systems/t_msdos.pas
View File

@ -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)}