paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix a small problem when deciding to call DosExecute directly

Browse Source
This commit is contained in:
pierre 2000-05-02 10:20:40 +00:00
parent 2126a0993e
commit c051e40994
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/text/fpide.pas
View File

@ -752,6 +752,7 @@ end;
function TIDEApp.DoExecute(ProgramPath, Params, InFile,OutFile: string; ExecType: TExecType): boolean; function TIDEApp.DoExecute(ProgramPath, Params, InFile,OutFile: string; ExecType: TExecType): boolean;
var CanRun: boolean; var CanRun: boolean;
posexe : longint;
begin begin
SaveCancelled:=false; SaveCancelled:=false;
CanRun:=AutoSave; CanRun:=AutoSave;
@ -776,7 +777,10 @@ begin
{$else} {$else}
{ DO NOT use COMSPEC for exe files as the { DO NOT use COMSPEC for exe files as the
ExitCode is lost in those cases PM } ExitCode is lost in those cases PM }
if Pos('.EXE',UpCaseStr(ProgramPath))=Length(ProgramPath)-3 then
posexe:=Pos('.EXE',UpCaseStr(ProgramPath));
{ if programpath was three char long => bug }
if (posexe>0) and (posexe=Length(ProgramPath)-3) then
begin begin
if (InFile='') and (OutFile='') then if (InFile='') and (OutFile='') then
DosExecute(ProgramPath,Params) DosExecute(ProgramPath,Params)
@ -992,7 +996,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.59 2000-05-02 08:42:27 pierre Revision 1.60 2000-05-02 10:20:40 pierre
* fix a small problem when deciding to call DosExecute directly
Revision 1.59 2000/05/02 08:42:27 pierre
* new set of Gabor changes: see fixes.txt * new set of Gabor changes: see fixes.txt
Revision 1.58 2000/04/25 08:42:33 pierre Revision 1.58 2000/04/25 08:42:33 pierre