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

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

diff --git a/src/.gdbinit b/src/.gdbinit
index be91a100f4993ec5928e0d2631b4bfc19060ac04..ad7b666f18803b46ccff9fefd943bec094767c45 100644 (file)
--- 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 1c303f806ce25fd0cc2efa9a4010e0ea922af2d7..fce3320198823ceaa578122df7a709b287411290 100644 (file)
--- 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.