diff options
| author | Richard M. Stallman | 1997-07-17 18:32:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-07-17 18:32:27 +0000 |
| commit | de2436ef7b89c052dc78532eccaef1840f7dee0a (patch) | |
| tree | e67ae1f97299a9406a50ec7db8f4d127b93ba8d8 | |
| parent | b070c1d71b1bed63dca25ceb87d7668b5dcb8ac7 (diff) | |
| download | emacs-de2436ef7b89c052dc78532eccaef1840f7dee0a.tar.gz emacs-de2436ef7b89c052dc78532eccaef1840f7dee0a.zip | |
(xcar, xcdr): Print with /x.
| -rw-r--r-- | src/.gdbinit | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/.gdbinit b/src/.gdbinit index 1c9c57134e8..e9bb716a091 100644 --- a/src/.gdbinit +++ b/src/.gdbinit | |||
| @@ -217,14 +217,14 @@ This assumes that the last thing you printed was a cons cell contents | |||
| 217 | (type struct Lisp_Cons) or a pointer to one. | 217 | (type struct Lisp_Cons) or a pointer to one. |
| 218 | end | 218 | end |
| 219 | define xcar | 219 | define xcar |
| 220 | print ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->car : 0) | 220 | print/x ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->car : 0) |
| 221 | end | 221 | end |
| 222 | document xcar | 222 | document xcar |
| 223 | Print the car of $, assuming it is an Emacs Lisp pair. | 223 | Print the car of $, assuming it is an Emacs Lisp pair. |
| 224 | end | 224 | end |
| 225 | 225 | ||
| 226 | define xcdr | 226 | define xcdr |
| 227 | print ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->cdr : 0) | 227 | print/x ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->cdr : 0) |
| 228 | end | 228 | end |
| 229 | document xcdr | 229 | document xcdr |
| 230 | Print the cdr of $, assuming it is an Emacs Lisp pair. | 230 | Print the cdr of $, assuming it is an Emacs Lisp pair. |