Sfoglia il codice sorgente

* i8086-msdos internal linker: put the static libraries in a group, to enable
multiple passes when resolving symbols

git-svn-id: trunk@31338 -

nickysn 10 anni fa
parent
commit
0dab94e35d
1 ha cambiato i file con 2 aggiunte e 0 eliminazioni
  1. 2 0
      compiler/systems/t_msdos.pas

+ 2 - 0
compiler/systems/t_msdos.pas

@@ -434,12 +434,14 @@ begin
     if s<>'' then
     if s<>'' then
       LinkScript.Concat('READOBJECT ' + maybequoted(s));
       LinkScript.Concat('READOBJECT ' + maybequoted(s));
   end;
   end;
+  LinkScript.Concat('GROUP');
   while not StaticLibFiles.Empty do
   while not StaticLibFiles.Empty do
   begin
   begin
     s:=StaticLibFiles.GetFirst;
     s:=StaticLibFiles.GetFirst;
     if s<>'' then
     if s<>'' then
       LinkScript.Concat('READSTATICLIBRARY '+MaybeQuoted(s));
       LinkScript.Concat('READSTATICLIBRARY '+MaybeQuoted(s));
   end;
   end;
+  LinkScript.Concat('ENDGROUP');
   LinkScript.Concat('ENTRYNAME ..start');
   LinkScript.Concat('ENTRYNAME ..start');
 end;
 end;