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

* properly write info if GDB is not found

Browse Source
This commit is contained in:
florian 2024-07-23 22:51:03 +02:00
parent ee3ff19312
commit af01314799
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/ide/fp.pas
View File

@ -364,6 +364,9 @@ const bullet='*';
const bullet=#254;
{$endif}
var
_GDBVersion: String;
BEGIN
{$IFDEF HasSignal}
EnableCatchSignals;
@ -381,7 +384,12 @@ BEGIN
ProcessParams(true);
{$ifndef NODEBUG}
writeln(bullet+' GDB Version '+GDBVersion);
_GDBVersion:=GDBVersion;
while pos(#13#3,_GDBVersion)<>0 do
Delete(_GDBVersion,pos(#13#3,_GDBVersion),2);
writeln(bullet+' GDB Version '+_GDBVersion);
{$ifdef Windows}
{$ifndef USE_MINGW_GDB}
{$ifdef GDBMI}