From e7094cf1d6b6e0ffc3950f99ccfaa790bf65d2fc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Sat, 1 Jun 2013 15:21:57 +0000
Subject: [PATCH] fix redundant searches in FindObjectFile, if the object was
 found on the first try

git-svn-id: trunk@24725 -
---
 compiler/link.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/link.pas b/compiler/link.pas
index 2972a2dcd9..a35379f7d8 100644
--- a/compiler/link.pas
+++ b/compiler/link.pas
@@ -210,8 +210,8 @@ Implementation
          begin
            if FileExists(FixFileName(s),false) then
             begin
-              foundfile:=ScriptFixFileName(s);
-              found:=true;
+              findobjectfile:=ScriptFixFileName(s);
+              exit;
             end;
          end;
         if pos('.',s)=0 then