Mercurial > emacs

changeset 11872:a28bd38b2ff3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gdb_lisp_params to get storage layout info. Set and use $valmask and $nonvalbits.
author Karl Heuer <kwzh@gnu.org>
date Mon, 22 May 1995 22:15:45 +0000
parents c3906ad756fc
children 6ac51c0face8
files src/.gdbinit
diffstat 1 files changed, 36 insertions(+), 43 deletions(-) [+]
line wrap: on
line diff
--- a/src/.gdbinit	Mon May 22 22:10:22 1995 +0000
+++ b/src/.gdbinit	Mon May 22 22:15:45 1995 +0000
@@ -1,3 +1,8 @@
+# Set up a mask to use.
+
+set $valmask = (1 << gdb_valbits) - 1
+set $nonvalbits = gdb_emacs_intbits - gdb_valbits
+
 # Set up something to print out s-expressions.
 define pr
 set debug_print ($)
@@ -8,22 +13,10 @@
 Works only when an inferior emacs is executing.
 end
 
-# Set this to the same thing as the DATA_SEG_BITS macro in your
-# machine-description files.
-set $data_seg_bits = 0
-
-define mips
-set $data_seg_bits = 0x10000000
-end
-document mips
-Set up the xfoo macros to deal with the MIPS processor.
-Specifically, this sets $data_seg_bits to the right thing.
-end
-
 define xtype
-output (enum Lisp_Type) (($ >> 28) & 0x7)
+output (enum Lisp_Type) (($ >> gdb_valbits) & 0x7)
 echo \n
-output ((($ >> 28) & 0x7) == Lisp_Misc ? (enum Lisp_Misc_Type) (((struct Lisp_Free *) (($ & 0x0fffffff) | $data_seg_bits))->type) : (($ >> 28) & 0x7) == Lisp_Vectorlike ? ($size = ((struct Lisp_Vector *) (($ & 0x0fffffff) | $data_seg_bits))->size, (enum pvec_type) (($size & PVEC_FLAG) ? $size & PVEC_TYPE_MASK : 0)) : 0)
+output ((($ >> gdb_valbits) & 0x7) == Lisp_Misc ? (enum Lisp_Misc_Type) (((struct Lisp_Free *) (($ & $valmask) | gdb_data_seg_bits))->type) : (($ >> gdb_valbits) & 0x7) == Lisp_Vectorlike ? ($size = ((struct Lisp_Vector *) (($ & $valmask) | gdb_data_seg_bits))->size, (enum pvec_type) (($size & PVEC_FLAG) ? $size & PVEC_TYPE_MASK : 0)) : 0)
 echo \n
 end
 document xtype
@@ -34,7 +27,7 @@
 end
 
 define xvectype
-set $size = ((struct Lisp_Vector *) (($ & 0x0fffffff) | $data_seg_bits))->size
+set $size = ((struct Lisp_Vector *) (($ & $valmask) | gdb_data_seg_bits))->size
 output (enum pvec_type) (($size & PVEC_FLAG) ? $size & PVEC_TYPE_MASK : 0)
 echo \n
 end
@@ -43,7 +36,7 @@
 end
 
 define xmisctype
-output (enum Lisp_Misc_Type) (((struct Lisp_Free *) (($ & 0x0fffffff) | $data_seg_bits))->type)
+output (enum Lisp_Misc_Type) (((struct Lisp_Free *) (($ & $valmask) | gdb_data_seg_bits))->type)
 echo \n
 end
 document xmisctype
@@ -51,21 +44,21 @@
 end
 
 define xint
-print (($ & 0x0fffffff) << 4) >> 4
+print (($ & $valmask) << $nonvalbits) >> $nonvalbits
 end
 document xint
 Print $, assuming it is an Emacs Lisp integer.  This gets the sign right.
 end
 
 define xptr
-print (void *) (($ & 0x0fffffff) | $data_seg_bits)
+print (void *) (($ & $valmask) | gdb_data_seg_bits)
 end
 document xptr
 Print the pointer portion of $, assuming it is an Emacs Lisp value.
 end
 
 define xwindow
-print (struct window *) (($ & 0x0fffffff) | $data_seg_bits)
+print (struct window *) (($ & $valmask) | gdb_data_seg_bits)
 printf "%dx%d+%d+%d\n", $->width, $->height, $->left, $->top
 end
 document xwindow
@@ -74,71 +67,71 @@
 end
 
 define xmarker
-print (struct Lisp_Marker *) (($ & 0x0fffffff) | $data_seg_bits)
+print (struct Lisp_Marker *) (($ & $valmask) | gdb_data_seg_bits)
 end
 document xmarker
 Print $ as a marker pointer, assuming it is an Emacs Lisp marker value.
 end
 
 define xoverlay
-print (struct Lisp_Overlay *) (($ & 0x0fffffff) | $data_seg_bits)
+print (struct Lisp_Overlay *) (($ & $valmask) | gdb_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)
+print (struct Lisp_Free *) (($ & $valmask) | gdb_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)
+print (struct Lisp_Intfwd *) (($ & $valmask) | gdb_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)
+print (struct Lisp_Boolfwd *) (($ & $valmask) | gdb_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)
+print (struct Lisp_Objfwd *) (($ & $valmask) | gdb_data_seg_bits)
 end
 document xobjfwd
 Print $ as an object forwarding pointer, assuming it is an Emacs Lisp Misc value.
 end
 
 define xbufobjfwd
-print (struct Lisp_Buffer_Objfwd *) (($ & 0x0fffffff) | $data_seg_bits)
+print (struct Lisp_Buffer_Objfwd *) (($ & $valmask) | gdb_data_seg_bits)
 end
 document xbufobjfwd
 Print $ as a buffer-local object forwarding pointer, assuming it is an Emacs Lisp Misc value.
 end
 
 define xkbobjfwd
-print (struct Lisp_Kboard_Objfwd *) (($ & 0x0fffffff) | $data_seg_bits)
+print (struct Lisp_Kboard_Objfwd *) (($ & $valmask) | gdb_data_seg_bits)
 end
 document xkbobjfwd
 Print $ as a kboard-local object forwarding pointer, assuming it is an Emacs Lisp Misc value.
 end
 
 define xbuflocal
-print (struct Lisp_Buffer_Local_Value *) (($ & 0x0fffffff) | $data_seg_bits)
+print (struct Lisp_Buffer_Local_Value *) (($ & $valmask) | gdb_data_seg_bits)
 end
 document xbuflocal
 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
+print (struct buffer *) (($ & $valmask) | gdb_data_seg_bits)
+output &((struct Lisp_String *) ((($->name) & $valmask) | gdb_data_seg_bits))->data
 echo \n
 end
 document xbuffer
@@ -147,7 +140,7 @@
 end
 
 define xsymbol
-print (struct Lisp_Symbol *) ((((int) $) & 0x0fffffff) | $data_seg_bits)
+print (struct Lisp_Symbol *) ((((int) $) & $valmask) | gdb_data_seg_bits)
 output &$->name->data
 echo \n
 end
@@ -157,7 +150,7 @@
 end
 
 define xstring
-print (struct Lisp_String *) (($ & 0x0fffffff) | $data_seg_bits)
+print (struct Lisp_String *) (($ & $valmask) | gdb_data_seg_bits)
 output ($->size > 1000) ? 0 : ($->data[0])@($->size)
 echo \n
 end
@@ -167,7 +160,7 @@
 end
 
 define xvector
-print (struct Lisp_Vector *) (($ & 0x0fffffff) | $data_seg_bits)
+print (struct Lisp_Vector *) (($ & $valmask) | gdb_data_seg_bits)
 output ($->size > 50) ? 0 : ($->contents[0])@($->size)
 echo \n
 end
@@ -177,21 +170,21 @@
 end
 
 define xframe
-print (struct frame *) (($ & 0x0fffffff) | $data_seg_bits)
+print (struct frame *) (($ & $valmask) | gdb_data_seg_bits)
 end
 document xframe
 Print $ as a frame pointer, assuming it is an Emacs Lisp frame value.
 end
 
 define xwinconfig
-print (struct save_window_data *) (($ & 0x0fffffff) | $data_seg_bits)
+print (struct save_window_data *) (($ & $valmask) | gdb_data_seg_bits)
 end
 document xwinconfig
 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)
+print (struct Lisp_Vector *) (($ & $valmask) | gdb_data_seg_bits)
 output ($->contents[0])@($->size & 0xff)
 end
 document xcompiled
@@ -199,7 +192,7 @@
 end
 
 define xcons
-print (struct Lisp_Cons *) (($ & 0x0fffffff) | $data_seg_bits)
+print (struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits)
 output *$
 echo \n
 end
@@ -208,21 +201,21 @@
 end
 
 define xcar
-print ((($ >> 28) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & 0x0fffffff) | $data_seg_bits))->car : 0)
+print ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->car : 0)
 end
 document xcar
 Print the car of $, assuming it is an Emacs Lisp pair.
 end
 
 define xcdr
-print ((($ >> 28) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & 0x0fffffff) | $data_seg_bits))->cdr : 0)
+print ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->cdr : 0)
 end
 document xcdr
 Print the cdr of $, assuming it is an Emacs Lisp pair.
 end
 
 define xsubr
-print (struct Lisp_Subr *) (($ & 0x0fffffff) | $data_seg_bits)
+print (struct Lisp_Subr *) (($ & $valmask) | gdb_data_seg_bits)
 output *$
 echo \n
 end
@@ -231,7 +224,7 @@
 end
 
 define xprocess
-print (struct Lisp_Process *) (($ & 0x0fffffff) | $data_seg_bits)
+print (struct Lisp_Process *) (($ & $valmask) | gdb_data_seg_bits)
 output *$
 echo \n
 end
@@ -240,14 +233,14 @@
 end
 
 define xfloat
-print ((struct Lisp_Float *) (($ & 0x0fffffff) | $data_seg_bits))->data
+print ((struct Lisp_Float *) (($ & $valmask) | gdb_data_seg_bits))->data
 end
 document xfloat
 Print $ assuming it is a lisp floating-point number.
 end
 
 define xscrollbar
-print (struct scrollbar *) (($ & 0x0fffffff) | $data_seg_bits)
+print (struct scrollbar *) (($ & $valmask) | gdb_data_seg_bits)
 output *$
 echo \n
 end