(xcar, xcdr): Use correct shift and mask values.

diff --git a/src/.gdbinit b/src/.gdbinit
index 317db96aa42acf54d4d569e6013b03cfb459db4f..129e0f38ce375dd197b2b7c58a007d4d5263e77c 100644 (file)
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -137,14 +137,14 @@ Print the contents of $, assuming it is an Emacs Lisp cons.
 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.