From 6a044d8689765097ad3ef5b971a294bd416c2e7c Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 4 Jan 1995 21:31:58 +0000 Subject: [PATCH] (xcar, xcdr): Use correct shift and mask values. --- src/.gdbinit | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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. -- 2.39.5