瀏覽代碼

* don't overwrite result of librarysearchpath.FindFile() in
GetDarwinPrtobjName() if it found something

git-svn-id: trunk@25330 -

Jonas Maebe 12 年之前
父節點
當前提交
1af312c129
共有 1 個文件被更改,包括 6 次插入4 次删除
  1. 6 4
      compiler/systems/t_bsd.pas

+ 6 - 4
compiler/systems/t_bsd.pas

@@ -295,11 +295,13 @@ var
   startupfile: TCmdStr;
 begin
   startupfile:=GetDarwinCrt1ObjName(isdll);
-  if (startupfile<>'') and
-     not librarysearchpath.FindFile(startupfile,false,result) then
-    result:='/usr/lib/'+startupfile
+  if startupfile<>'' then
+    begin
+     if not librarysearchpath.FindFile(startupfile,false,result) then
+       result:='/usr/lib/'+startupfile
+    end
   else
-    result:=startupfile;
+    result:='';
   result:=maybequoted(result);
 end;