Browse Source

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

git-svn-id: trunk@25330 -

Jonas Maebe 12 years ago
parent
commit
1af312c129
1 changed files with 6 additions and 4 deletions
  1. 6 4
      compiler/systems/t_bsd.pas

+ 6 - 4
compiler/systems/t_bsd.pas

@@ -295,11 +295,13 @@ var
   startupfile: TCmdStr;
   startupfile: TCmdStr;
 begin
 begin
   startupfile:=GetDarwinCrt1ObjName(isdll);
   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
   else
-    result:=startupfile;
+    result:='';
   result:=maybequoted(result);
   result:=maybequoted(result);
 end;
 end;