diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-01-04 21:31:58 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-01-04 21:31:58 +0000 |
| commit | 46f91a8d4e31864280b29061af91af2cf91bb331 (patch) | |
| tree | e2a001faf45380f9cc388e0aeefe0ae66442d623 | |
| parent | 5148e25095579832af5c480f3d71e3fa6ab94bb2 (diff) | |
| download | emacs-46f91a8d4e31864280b29061af91af2cf91bb331.tar.gz | |
(xcar, xcdr): Use correct shift and mask values.
| -rw-r--r-- | src/.gdbinit | 4 |
1 files 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. |