Mercurial > emacs
changeset 10483:727cd2061e2a
(xboolfwd, xbuffer_local_value, xbuffer_objfwd, xcompiled, xintfwd, xmiscfree,
xobjfwd, xoverlay, xwindow_configuration): New macros.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Thu, 19 Jan 1995 21:57:20 +0000 |
parents | a15a058ec779 |
children | 08e1b7f85e5e |
files | src/.gdbinit |
diffstat | 1 files changed, 64 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/.gdbinit Thu Jan 19 21:09:50 1995 +0000 +++ b/src/.gdbinit Thu Jan 19 21:57:20 1995 +0000 @@ -80,6 +80,55 @@ Print $ as a marker pointer, assuming it is an Emacs Lisp marker value. end +define xoverlay +print (struct Lisp_Overlay *) (($ & 0x0fffffff) | $data_seg_bits) +end +document xoverlay +Print $ as a overlay pointer, assuming it is an Emacs Lisp overlay value. +end + +define xmiscfree +print (struct Lisp_Free *) (($ & 0x0fffffff) | $data_seg_bits) +end +document xmiscfree +Print $ as a misc free-cell pointer, assuming it is an Emacs Lisp Misc value. +end + +define xintfwd +print (struct Lisp_Intfwd *) (($ & 0x0fffffff) | $data_seg_bits) +end +document xintfwd +Print $ as an integer forwarding pointer, assuming it is an Emacs Lisp Misc value. +end + +define xboolfwd +print (struct Lisp_Boolfwd *) (($ & 0x0fffffff) | $data_seg_bits) +end +document xboolfwd +Print $ as a boolean forwarding pointer, assuming it is an Emacs Lisp Misc value. +end + +define xobjfwd +print (struct Lisp_Objfwd *) (($ & 0x0fffffff) | $data_seg_bits) +end +document xobjfwd +Print $ as an object forwarding pointer, assuming it is an Emacs Lisp Misc value. +end + +define xbuffer_objfwd +print (struct Lisp_Buffer_Objfwd *) (($ & 0x0fffffff) | $data_seg_bits) +end +document xbuffer_objfwd +Print $ as a buffer-local object forwarding pointer, assuming it is an Emacs Lisp Misc value. +end + +define xbuffer_local_value +print (struct Lisp_Buffer_Local_Value *) (($ & 0x0fffffff) | $data_seg_bits) +end +document xbuffer_local_value +Print $ as a buffer-local-value pointer, assuming it is an Emacs Lisp Misc value. +end + define xbuffer print (struct buffer *) (($ & 0x0fffffff) | $data_seg_bits) output &((struct Lisp_String *) ((($->name) & 0x0fffffff) | $data_seg_bits))->data @@ -127,6 +176,21 @@ Print $ as a frame pointer, assuming it is an Emacs Lisp frame value. end +define xwindow_configuration +print (struct save_window_data *) (($ & 0x0fffffff) | $data_seg_bits) +end +document xwindow_configuration +Print $ as a window configuration pointer, assuming it is an Emacs Lisp window configuration value. +end + +define xcompiled +print (struct Lisp_Vector *) (($ & 0x0fffffff) | $data_seg_bits) +output ($->contents[0])@($->size & 0xff) +end +document xcompiled +Print $ as a compiled function pointer, assuming it is an Emacs Lisp compiled value. +end + define xcons print (struct Lisp_Cons *) (($ & 0x0fffffff) | $data_seg_bits) output *$