1999-02-11 Martin Hunt <hunt@cygnus.com>

	* gdbtk-variable.c (variable_format): Enable binary format.

diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk
index c3717be378e6aa5ddc8d33d82784858934706a3e..514b2c7fbcb092f986df6f850bcb43e7c5ad86db 100644 (file)
--- a/gdb/ChangeLog-gdbtk
+++ b/gdb/ChangeLog-gdbtk
@@ -1,5 +1,9 @@
 1999-02-11  Martin Hunt  <hunt@cygnus.com>
 
+       * gdbtk-variable.c (variable_format): Enable binary format.
+
+1999-02-11  Martin Hunt  <hunt@cygnus.com>
+       
        * gdbtk-hooks.c: Change ALL Tcl_Eval calls in hooks to
        call report_error() if there are errors.
 

diff --git a/gdb/gdbtk-variable.c b/gdb/gdbtk-variable.c
index 09ff3609b90adad15232ce9774231f27eea6b3a7..f1e745568dfd17a4de9f7cbd4e5636b053e59e5b 100644 (file)
--- a/gdb/gdbtk-variable.c
+++ b/gdb/gdbtk-variable.c
@@ -1185,7 +1185,7 @@ variable_format (interp, objc, objv, var)
       if (STREQN (fmt, "natural", len))
         var->format = FORMAT_NATURAL;
       else if (STREQN (fmt, "binary", len))
-        var->format = FORMAT_NATURAL;
+        var->format = FORMAT_BINARY;
       else if (STREQN (fmt, "decimal", len))
         var->format = FORMAT_DECIMAL;
       else if (STREQN (fmt, "hexadecimal", len))