Переглянути джерело

+ added the appropriate startup code names for each memory model

git-svn-id: trunk@24832 -
nickysn 12 роки тому
батько
коміт
f5a9442910
1 змінених файлів з 8 додано та 4 видалено
  1. 8 4
      compiler/systems/t_msdos.pas

+ 8 - 4
compiler/systems/t_msdos.pas

@@ -246,10 +246,14 @@ begin
     DOS command line is limited to 126 characters! }
 
   { add objectfiles, start with prt0 always }
-  if current_settings.x86memorymodel=mm_tiny then
-    LinkRes.Add('file ' + maybequoted(FindObjectFile('prt0t','',false)))
-  else
-    LinkRes.Add('file ' + maybequoted(FindObjectFile('prt0s','',false)));
+  case current_settings.x86memorymodel of
+    mm_tiny:    LinkRes.Add('file ' + maybequoted(FindObjectFile('prt0t','',false)));
+    mm_small:   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
   begin
     s:=ObjectFiles.GetFirst;