* Update uses of val_print functions with additional language argument.

	generic/gdbtk-cmds.c: Add "language.h" include.
	(gdb_eval): Add current_language as new arg of val_print.
	generic/gdbtk-register.c: Add "language.h" include.
	(get_register): Add current_language as new arg of val_print.
	generic/gdbtk-wrapper.c: Add "language.h" include.
	(wrap_val_print): Add current_language as new arg of val_print.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index e95181f..2645ff4 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,13 @@
+2008-05-12  Pierre Muller  <muller@ics.u-strasbg.fr>
+
+       * Update uses of val_print functions with additional language argument.
+       generic/gdbtk-cmds.c: Add "language.h" include.
+       (gdb_eval): Add current_language as new arg of val_print.
+       generic/gdbtk-register.c: Add "language.h" include.
+       (get_register): Add current_language as new arg of val_print.
+       generic/gdbtk-wrapper.c: Add "language.h" include.
+       (wrap_val_print): Add current_language as new arg of val_print.
+
 2008-04-21  Keith Seitz  <keiths@redhat.com>
 
        * generic/gdbtk-cmds.c (symtab_to_filename): Call gdb's

diff --git a/gdb/gdbtk/generic/gdbtk-cmds.c b/gdb/gdbtk/generic/gdbtk-cmds.c
index fd19028..043da9f 100644 (file)
--- a/gdb/gdbtk/generic/gdbtk-cmds.c
+++ b/gdb/gdbtk/generic/gdbtk-cmds.c
@@ -41,6 +41,7 @@
 #include "value.h"
 #include "varobj.h"
 #include "exceptions.h"
+#include "language.h"
 
 /* tcl header files includes varargs.h unless HAS_STDARG is defined,
    but gdb uses stdarg.h, so make sure HAS_STDARG is defined.  */
@@ -631,7 +632,7 @@ gdb_eval (ClientData clientData, Tcl_Interp *interp,
   make_cleanup_ui_file_delete (stb);
   val_print (value_type (val), value_contents (val),
             value_embedded_offset (val), VALUE_ADDRESS (val),
-            stb, format, 0, 0, 0);
+            stb, format, 0, 0, 0, current_language);
   result = ui_file_xstrdup (stb, &dummy);
   Tcl_SetObjResult (interp, Tcl_NewStringObj (result, -1));
   xfree (result);

diff --git a/gdb/gdbtk/generic/gdbtk-register.c b/gdb/gdbtk/generic/gdbtk-register.c
index 1753120..257b57c 100644 (file)
--- a/gdb/gdbtk/generic/gdbtk-register.c
+++ b/gdb/gdbtk/generic/gdbtk-register.c
@@ -25,6 +25,7 @@
 #include "value.h"
 #include "target.h"
 #include "gdb_string.h"
+#include "language.h"
 
 #include <tcl.h>
 #include "gdbtk.h"
@@ -333,11 +334,11 @@ get_register (int regnum, map_arg arg)
                      gdbarch_register_name (current_gdbarch, regnum)) == 0))
        {
          val_print (FIELD_TYPE (TYPE_FIELD (reg_vtype, 0)), buffer, 0, 0,
-                    stb, format, 1, 0, Val_pretty_default);
+                    stb, format, 1, 0, Val_pretty_default, current_language);
        }
       else
        val_print (reg_vtype, buffer, 0, 0,
-                  stb, format, 1, 0, Val_pretty_default);
+                  stb, format, 1, 0, Val_pretty_default, current_language);
     }
   
   res = ui_file_xstrdup (stb, &dummy);

diff --git a/gdb/gdbtk/generic/gdbtk-wrapper.c b/gdb/gdbtk/generic/gdbtk-wrapper.c
index 7168208..a950fde 100644 (file)
--- a/gdb/gdbtk/generic/gdbtk-wrapper.c
+++ b/gdb/gdbtk/generic/gdbtk-wrapper.c
@@ -24,6 +24,7 @@
 #include "varobj.h"
 #include "block.h"
 #include "exceptions.h"
+#include "language.h"
 #include "gdbtk-wrapper.h"
 
 /*
@@ -218,7 +219,7 @@ wrap_val_print (char *a)
   pretty = (enum val_prettyprint) (*args)->args[7].integer;
 
   val_print (type, valaddr, 0, address, stream, format, deref_ref,
-            recurse, pretty);
+            recurse, pretty, current_language);
   return 1;
 }