paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 22:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed findexe to also support already extension in name

Browse Source
This commit is contained in:
peter 2001-01-13 00:03:41 +00:00
parent f0ec03cdc6
commit cac56fc13e
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/globals.pas
View File

@ -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