瀏覽代碼

* fixed ordering of object and libraries

peter 24 年之前
父節點
當前提交
38770359fe
共有 1 個文件被更改,包括 8 次插入5 次删除
  1. 8 5
      compiler/link.pas

+ 8 - 5
compiler/link.pas

@@ -314,7 +314,7 @@ end;
 
 Procedure TLinker.AddObject(const S,unitpath : String);
 begin
-  ObjectFiles.Insert(FindObjectFile(s,unitpath));
+  ObjectFiles.Concat(FindObjectFile(s,unitpath));
 end;
 
 
@@ -328,8 +328,8 @@ begin
 { remove extension if any }
   if Copy(s,length(s)-length(target_info.sharedlibext)+1,length(target_info.sharedlibext))=target_info.sharedlibext then
    Delete(s,length(s)-length(target_info.sharedlibext)+1,length(target_info.sharedlibext)+1);
-{ ready to be inserted }
-  SharedLibFiles.Insert (S);
+{ ready to be added }
+  SharedLibFiles.Concat(S);
 end;
 
 
@@ -343,7 +343,7 @@ begin
   ns:=FindLibraryFile(s,target_info.staticlibext,found);
   if not(cs_link_extern in aktglobalswitches) and (not found) then
    Message1(exec_w_libfile_not_found,s);
-  StaticLibFiles.Insert(ns);
+  StaticLibFiles.Concat(ns);
 end;
 
 
@@ -482,7 +482,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.19  2001-08-07 18:47:12  peter
+  Revision 1.20  2001-08-13 19:26:03  peter
+    * fixed ordering of object and libraries
+
+  Revision 1.19  2001/08/07 18:47:12  peter
     * merged netbsd start
     * profile for win32