(xbacktrace): Print the arg's address rather than the value

of the first arg, since that value may be a union.

2 files changed, 4 insertions, 1 deletions

diff --git a/src/.gdbinit b/src/.gdbinit
index be91a100f49..ad7b666f188 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -998,7 +998,7 @@ define xbacktrace
     xgettype (*$bt->function)
     if $type == Lisp_Symbol
       xprintsym (*$bt->function)
-      printf " (0x%x)\n", *$bt->args
+      printf " (0x%x)\n", $bt->args
     else
       printf "0x%x ", *$bt->function
       if $type == Lisp_Vectorlike
diff --git a/src/ChangeLog b/src/ChangeLog
index 1c303f806ce..fce33201988 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2007-09-21  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+        * .gdbinit (xbacktrace): Print the arg's address rather than the value
+        of the first arg, since that value may be a union.
+
         * callproc.c (child_setup, getenv_internal): Use the frame's `display'
         parameter rather than Qdisplay_environment_variable.  If all else
         fails, look for DISPLAY in initial-environment.