paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-21 19:36:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added the appropriate startup code names for each memory model

Browse Source 
git-svn-id: trunk@24832 -
This commit is contained in:
nickysn 2013-06-09 12:44:03 +00:00
parent 3280514d2b
commit f5a9442910
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/systems/t_msdos.pas
View File

@ -246,10 +246,14 @@ begin
DOS command line is limited to 126 characters! } DOS command line is limited to 126 characters! }
{ add objectfiles, start with prt0 always } { add objectfiles, start with prt0 always }
if current_settings.x86memorymodel=mm_tiny then case current_settings.x86memorymodel of
LinkRes.Add('file ' + maybequoted(FindObjectFile('prt0t','',false))) mm_tiny: LinkRes.Add('file ' + maybequoted(FindObjectFile('prt0t','',false)));
else mm_small: LinkRes.Add('file ' + maybequoted(FindObjectFile('prt0s','',false)));
LinkRes.Add('file ' + maybequoted(FindObjectFile('prt0s','',false))); mm_medium: LinkRes.Add('file ' + maybequoted(FindObjectFile('prt0m','',false)));
mm_compact: LinkRes.Add('file ' + maybequoted(FindObjectFile('prt0c','',false)));
mm_large: LinkRes.Add('file ' + maybequoted(FindObjectFile('prt0l','',false)));
mm_huge: LinkRes.Add('file ' + maybequoted(FindObjectFile('prt0h','',false)));
end;
while not ObjectFiles.Empty do while not ObjectFiles.Empty do
begin begin
s:=ObjectFiles.GetFirst; s:=ObjectFiles.GetFirst;