From cac56fc13e5f8d643a537c3cc5955c1f21d3cff4 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sat, 13 Jan 2001 00:03:41 +0000
Subject: [PATCH]   * fixed findexe to also support already extension in name

---
 compiler/globals.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/globals.pas b/compiler/globals.pas
index 578ee217e0..838e1ff6c2 100644
--- a/compiler/globals.pas
+++ b/compiler/globals.pas
@@ -899,7 +899,7 @@ implementation
 
    function FindExe(bin:string;var found:boolean):string;
    begin
-     bin:=FixFileName(bin)+source_os.exeext;
+     bin:=FixFileName(AddExtension(bin,source_os.exeext));
 {$ifdef delphi}
      FindExe:=FindFile(bin,'.;'+exepath+';'+dmisc.getenv('PATH'),found)+bin;
 {$else delphi}
@@ -1278,7 +1278,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.22  2000-12-26 15:57:25  peter
+  Revision 1.23  2001-01-13 00:03:41  peter
+    * fixed findexe to also support already extension in name
+
+  Revision 1.22  2000/12/26 15:57:25  peter
     * use system.paramstr()
 
   Revision 1.21  2000/12/25 00:07:26  peter