# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 789255118 0
# Node ID 597742bda8b61f4a424b5f68a277f36cbdc906c4
# Parent  a76a89bb6c579ca84b27927dd6f006d3f790ed68
(xcar, xcdr): Use correct shift and mask values.

diff -r a76a89bb6c57 -r 597742bda8b6 src/.gdbinit
--- 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.