浏览代码

* fix from r9332 for shared libraries

git-svn-id: trunk@9797 -
Jonas Maebe 17 年之前
父节点
当前提交
56c18c5521
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      compiler/systems/t_bsd.pas

+ 5 - 2
compiler/systems/t_bsd.pas

@@ -713,8 +713,11 @@ begin
   if (success) and not(cs_link_nolink in current_settings.globalswitches) then
   if (success) and not(cs_link_nolink in current_settings.globalswitches) then
     begin
     begin
       DeleteFile(outputexedir+Info.ResName);
       DeleteFile(outputexedir+Info.ResName);
-//      DeleteFile(linkscript.fn);
-      linkscript.free
+      if LdSupportsNoResponseFile Then
+        begin
+          DeleteFile(linkscript.fn);
+          linkscript.free
+        end;
     end;     
     end;     
 
 
   MakeSharedLibrary:=success;   { otherwise a recursive call to link method }
   MakeSharedLibrary:=success;   { otherwise a recursive call to link method }