Browse Source

Add stop on Signals

git-svn-id: trunk@34209 -
pierre 9 years ago
parent
commit
0af402fd1a
1 changed files with 13 additions and 0 deletions
  1. 13 0
      ide/gdbmiint.pas

+ 13 - 0
ide/gdbmiint.pas

@@ -327,6 +327,7 @@ label
   Ignore;
   Ignore;
 var
 var
   StopReason: string;
   StopReason: string;
+  LocalSignalString,LocalSignalName: String;
   FileName: string = '';
   FileName: string = '';
   LineNumber: LongInt = 0;
   LineNumber: LongInt = 0;
   Addr: CORE_ADDR;
   Addr: CORE_ADDR;
@@ -368,6 +369,18 @@ Ignore:
                GDB.ExecAsyncOutput.Parameters['signal-name'].AsString (e.g. 'SIGTERM')
                GDB.ExecAsyncOutput.Parameters['signal-name'].AsString (e.g. 'SIGTERM')
                GDB.ExecAsyncOutput.PArameters['signal-meaning'].AsString (e.g. 'Terminated')
                GDB.ExecAsyncOutput.PArameters['signal-meaning'].AsString (e.g. 'Terminated')
           }
           }
+        LocalSignalName:=GDB.ExecAsyncOutput.Parameters['signal-name'].AsString;
+        LocalSignalString:=GDB.ExecAsyncOutput.PArameters['signal-meaning'].AsString;
+        signal_name:=@LocalSignalName;
+        signal_string:=@LocalSignalString;
+        if (user_screen_shown) then
+          begin
+            DebuggerScreen;
+            DoUserSignal;
+            UserScreen;
+          end
+        else
+          DoUserSignal;
         i_gdb_command('-exec-continue');
         i_gdb_command('-exec-continue');
         if not GDB.ResultRecord.Success then
         if not GDB.ResultRecord.Success then
         begin
         begin