Browse Source

* properly write info if GDB is not found

florian 1 year ago
parent
commit
af01314799
1 changed files with 9 additions and 1 deletions
  1. 9 1
      packages/ide/fp.pas

+ 9 - 1
packages/ide/fp.pas

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