From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 4 Jan 1995 21:31:58 +0000 (+0000)
Subject: (xcar, xcdr): Use correct shift and mask values.
X-Git-Tag: emacs-19.34~5519
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a044d8689765097ad3ef5b971a294bd416c2e7c;p=emacs.git

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

diff --git a/src/.gdbinit b/src/.gdbinit
index 317db96aa42..129e0f38ce3 100644
--- 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.