From ad7f4a1f2418415f8beaa3c1b5802b65274b70a8 Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Sun, 22 Mar 2009 10:08:24 +0000
Subject: [PATCH]  * Use ExeSearch instead of FileSearch to find
 compiler/command executable

git-svn-id: trunk@12952 -
---
 packages/fpmkunit/src/fpmkunit.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;