changeset 10337:597742bda8b6

(xcar, xcdr): Use correct shift and mask values.
author Karl Heuer <kwzh@gnu.org>
date Wed, 04 Jan 1995 21:31:58 +0000
parents a76a89bb6c57
children 305e847ecc5b
files src/.gdbinit
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/.gdbinit	Wed Jan 04 21:28:53 1995 +0000
+++ b/src/.gdbinit	Wed Jan 04 21:31:58 1995 +0000
@@ -137,14 +137,14 @@
 end
 
 define xcar
-print ((($ >> 24) & 0x7f) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & 0x0fffffff) | $data_seg_bits))->car : 0)
+print ((($ >> 28) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & 0x0fffffff) | $data_seg_bits))->car : 0)
 end
 document xcar
 Print the car of $, assuming it is an Emacs Lisp pair.
 end
 
 define xcdr
-print ((($ >> 24) & 0x7f) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & 0x0fffffff) | $data_seg_bits))->cdr : 0)
+print ((($ >> 28) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & 0x0fffffff) | $data_seg_bits))->cdr : 0)
 end
 document xcdr
 Print the cdr of $, assuming it is an Emacs Lisp pair.