From 8391a696607e11fe7cf84c5d4b6fde0230e6b3b5 Mon Sep 17 00:00:00 2001
From: joost <joost@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Sun, 22 Mar 2009 10:08:24 +0000
Subject:  * Use ExeSearch instead of FileSearch to find compiler/command
 executable

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@12952 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/fpmkunit/src/fpmkunit.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'packages/fpmkunit')

diff --git a/packages/fpmkunit/src/fpmkunit.pp b/packages/fpmkunit/src/fpmkunit.pp
index cda894bcf3..922119f20c 100644
--- a/packages/fpmkunit/src/fpmkunit.pp
+++ b/packages/fpmkunit/src/fpmkunit.pp
@@ -3231,7 +3231,7 @@ begin
             O:=Substitute(C.Options,['SOURCE',C.SourceFile,'DEST',C.DestFile]);
             Cmd:=C.Command;
             If (ExtractFilePath(Cmd)='') then
-              Cmd:=FileSearch(Cmd,GetEnvironmentvariable('PATH'));
+              Cmd:=ExeSearch(Cmd,GetEnvironmentvariable('PATH'));
             ExecuteCommand(Cmd,O,C.IgnoreResult);
             If Assigned(C.AfterCommand) then
               C.AfterCommand(C);
@@ -3583,7 +3583,7 @@ begin
     FCompiler:=Defaults.Compiler;
     If (ExtractFilePath(FCompiler)='') then
       begin
-      S:=FileSearch(FCompiler,GetEnvironmentVariable('PATH'));
+      S:=ExeSearch(FCompiler,GetEnvironmentVariable('PATH'));
       If (S<>'') then
          FCompiler:=S;
       end;
-- 
cgit v1.2.1