[PATCH/gdbtk] Make gdbtk compile again

[Roland Schwingel <roland@onevision.com>]

[-- Attachment #1: Type: text/plain, Size: 938 bytes --]

Hi...

Due to recent changes in gdb's signal handling, the addition of dprintf 
and changes to blocks gdbtk was no longer compiling. I committed the 
attached simple patch to fix this.

Changelog:
2012-05-25  Roland Schwingel  <roland.schwingel@onevision.com>

    * generic/gdbtk-bp.c (gdb_set_bp): Add new NULL param
    to call to create_breakpoint() due to changes in gdb.
    * generic/gdbtk-cmds.c (gdb_listfuncs): Iterator param
    in call to ALL_BLOCK_SYMBOLS() now is a pointer to
    struct block_iterator instead of struct dict_iterator.
    * generic/gdbtk-stack.c (gdb_block_vars,gdb_get_blocks)
    (gdb_get_vars_command): Likewise.
    * generic/gdbtk-hooks.c (gdbtk_annotate_signal): Change
    function calls: target_signal_to_name -> gdb_signal_to_name
    target_signal_to_string -> gdb_signal_to_string due to
    recent changes in gdb.

I hope this was ok as it blocked reintegration of my other patches.

Roland




[-- Attachment #2: patch.txt --]
[-- Type: text/plain, Size: 2197 bytes --]

$svn diff
Index: gdbtk-stack.c
===================================================================
--- gdbtk-stack.c       (revision 117583)
+++ gdbtk-stack.c       (working copy)
@@ -92,7 +92,7 @@
                int objc, Tcl_Obj *CONST objv[])
 {
   struct block *block;
-  struct dict_iterator iter;
+  struct block_iterator iter;
   struct symbol *sym;
   CORE_ADDR start, end;

@@ -162,7 +162,7 @@
                int objc, Tcl_Obj *CONST objv[])
 {
   struct block *block;
-  struct dict_iterator iter;
+  struct block_iterator iter;
   int junk;
   struct symbol *sym;
   CORE_ADDR pc;
@@ -282,7 +282,7 @@
   struct symbol *sym;
   struct block *block;
   char *args;
-  struct dict_iterator iter;
+  struct block_iterator iter;
   int i, arguments;

   if (objc > 2)
Index: gdbtk-hooks.c
===================================================================
--- gdbtk-hooks.c       (revision 117583)
+++ gdbtk-hooks.c       (working copy)
@@ -818,8 +818,8 @@
   tp = inferior_thread ();

   buf = xstrprintf ("gdbtk_signal %s {%s}",
-            target_signal_to_name (tp->suspend.stop_signal),
-            target_signal_to_string (tp->suspend.stop_signal));
+            gdb_signal_to_name (tp->suspend.stop_signal),
+            gdb_signal_to_string (tp->suspend.stop_signal));
   if (Tcl_Eval (gdbtk_interp, buf) != TCL_OK)
     report_error ();
   free(buf);
Index: gdbtk-cmds.c
===================================================================
--- gdbtk-cmds.c        (revision 117583)
+++ gdbtk-cmds.c        (working copy)
@@ -1537,7 +1537,7 @@
   struct block *b;
   struct symbol *sym;
   int i;
-  struct dict_iterator iter;
+  struct block_iterator iter;
   Tcl_Obj *funcVals[2];

   if (objc != 2)
Index: gdbtk-bp.c
===================================================================
--- gdbtk-bp.c  (revision 117583)
+++ gdbtk-bp.c  (working copy)
@@ -535,6 +535,7 @@
   TRY_CATCH (e, RETURN_MASK_ALL)
     {
       create_breakpoint (get_current_arch (), address, condition, thread,
+                        NULL,
                         0      /* condition and thread are valid */,
                         temp,
                         bp_breakpoint /* type wanted */,