procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* src/.gdbinit (xgetptr): Fix the union+lsb case.

Browse source 
(xbacktrace): Fix the union case.
This commit is contained in:
Stefan Monnier 2010-12-27 10:27:52 -05:00
parent 7f42ff40b1
commit cf07311b88
2 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/.gdbinit
View file

@ -1,5 +1,5 @@
# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2001,
# 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
# 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
# Free Software Foundation, Inc.
#
# This file is part of GNU Emacs.
@ -49,7 +49,7 @@ handle SIGALRM ignore
# Using a constant runs into GDB bugs sometimes.
define xgetptr
set $bugfix = $arg0
set $ptr = (gdb_use_union ? $bugfix.u.val : $bugfix & $valmask) | gdb_data_seg_bits
set $ptr = (gdb_use_union ? (gdb_use_lsb ? $bugfix.u.val << gdb_gctypebits : $bugfix.u.val) : $bugfix & $valmask) | gdb_data_seg_bits
end
define xgetint
@ -1130,7 +1130,8 @@ define xbacktrace
xprintsym (*$bt->function)
printf " (0x%x)\n", $bt->args
else
printf "0x%x ", *$bt->function
xgetptr *$bt->function
printf "0x%x ", $ptr
if $type == Lisp_Vectorlike
xgetptr (*$bt->function)
set $size = ((struct Lisp_Vector *) $ptr)->size

5
src/ChangeLog
View file

@ -1,3 +1,8 @@
2010-12-27 Stefan Monnier <monnier@iro.umontreal.ca>
* .gdbinit (xgetptr): Fix the union+lsb case.
(xbacktrace): Fix the union case.
2010-12-26 Stefan Monnier <monnier@iro.umontreal.ca>
* window.c (Fmove_to_window_line): Avoid abort when called in a buffer