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 c3717be..514b2c7 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 09ff360..f1e7455 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))