From 1af312c1296dbf14214522ba52ac0517f9b38d97 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 22 Aug 2013 21:37:06 +0000
Subject: [PATCH]   * don't overwrite result of librarysearchpath.FindFile() in
     GetDarwinPrtobjName() if it found something

git-svn-id: trunk@25330 -
---
 compiler/systems/t_bsd.pas | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/compiler/systems/t_bsd.pas b/compiler/systems/t_bsd.pas
index 4325fc9724..91017c1d43 100644
--- a/compiler/systems/t_bsd.pas
+++ b/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;