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

Add ExeExt suffix to GDBProgramName if not specified

Browse Source 
git-svn-id: trunk@34432 -
This commit is contained in:
pierre 2016-09-05 13:09:31 +00:00
parent 97c2067832
commit 6d6da7854c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/gdbmiproc.pas
View File

@ -47,6 +47,9 @@ var
implementation
uses
fputils;
var
DebugLogEnabled: Boolean = False;
@ -92,7 +95,10 @@ begin
end;
FProcess := TProcess.Create(nil);
FProcess.Options := [poUsePipes, poStdErrToOutput];
FProcess.Executable := GdbProgramName;
if (ExeExt<>'') and (pos(ExeExt,LowerCaseStr(GdbProgramName))=0) then
FProcess.Executable := GdbProgramName+ExeExt
else
FProcess.Executable := GdbProgramName;
FProcess.Parameters.Add('--interpreter=mi');
try
FProcess.Execute;