mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-03-06 05:52:32 -08:00
Don't dereference Vsystem_type's Lisp_Symbol pointer if it is NULL.
This commit is contained in:
parent
7662f8adff
commit
ea5f3ad489
2 changed files with 19 additions and 11 deletions
25
src/.gdbinit
25
src/.gdbinit
|
|
@ -766,18 +766,21 @@ set args -geometry 80x40+0+0
|
|||
|
||||
# People get bothered when they see messages about non-existent functions...
|
||||
xgetptr Vsystem_type
|
||||
set $tem = (struct Lisp_Symbol *) $ptr
|
||||
xgetptr $tem->xname
|
||||
set $tem = (struct Lisp_String *) $ptr
|
||||
set $tem = (char *) $tem->data
|
||||
# $ptr is NULL in temacs
|
||||
if ($ptr != 0)
|
||||
set $tem = (struct Lisp_Symbol *) $ptr
|
||||
xgetptr $tem->xname
|
||||
set $tem = (struct Lisp_String *) $ptr
|
||||
set $tem = (char *) $tem->data
|
||||
|
||||
# Don't let abort actually run, as it will make stdio stop working and
|
||||
# therefore the `pr' command above as well.
|
||||
if $tem[0] == 'w' && $tem[1] == 'i' && $tem[2] == 'n' && $tem[3] == 'd'
|
||||
# The windows-nt build replaces abort with its own function.
|
||||
break w32_abort
|
||||
else
|
||||
break abort
|
||||
# Don't let abort actually run, as it will make stdio stop working and
|
||||
# therefore the `pr' command above as well.
|
||||
if $tem[0] == 'w' && $tem[1] == 'i' && $tem[2] == 'n' && $tem[3] == 'd'
|
||||
# The windows-nt build replaces abort with its own function.
|
||||
break w32_abort
|
||||
else
|
||||
break abort
|
||||
end
|
||||
end
|
||||
|
||||
# x_error_quitter is defined only on X. But window-system is set up
|
||||
|
|
|
|||
|
|
@ -1,3 +1,8 @@
|
|||
2006-01-20 Eli Zaretskii <eliz@gnu.org>
|
||||
|
||||
* .gdbinit: Don't dereference Vsystem_type's Lisp_Symbol pointer
|
||||
if it is NULL.
|
||||
|
||||
2006-01-20 Kenichi Handa <handa@m17n.org>
|
||||
|
||||
* puresize.h (BASE_PURESIZE): Increment to 1190000.
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue