diff options
| author | Karl Heuer | 1995-01-04 21:31:58 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-01-04 21:31:58 +0000 |
| commit | 6a044d8689765097ad3ef5b971a294bd416c2e7c (patch) | |
| tree | 8784b31c5ecdc2aab1c1e058604b6cdbdbcae168 /src | |
| parent | dcda44ddbb402e5e0154105342f439d72320c823 (diff) | |
| download | emacs-6a044d8689765097ad3ef5b971a294bd416c2e7c.tar.gz emacs-6a044d8689765097ad3ef5b971a294bd416c2e7c.zip | |
(xcar, xcdr): Use correct shift and mask values.
Diffstat (limited to 'src')
| -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. | |||
| 137 | end | 137 | end |
| 138 | 138 | ||
| 139 | define xcar | 139 | define xcar |
| 140 | print ((($ >> 24) & 0x7f) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & 0x0fffffff) | $data_seg_bits))->car : 0) | 140 | print ((($ >> 28) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & 0x0fffffff) | $data_seg_bits))->car : 0) |
| 141 | end | 141 | end |
| 142 | document xcar | 142 | document xcar |
| 143 | Print the car of $, assuming it is an Emacs Lisp pair. | 143 | Print the car of $, assuming it is an Emacs Lisp pair. |
| 144 | end | 144 | end |
| 145 | 145 | ||
| 146 | define xcdr | 146 | define xcdr |
| 147 | print ((($ >> 24) & 0x7f) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & 0x0fffffff) | $data_seg_bits))->cdr : 0) | 147 | print ((($ >> 28) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & 0x0fffffff) | $data_seg_bits))->cdr : 0) |
| 148 | end | 148 | end |
| 149 | document xcdr | 149 | document xcdr |
| 150 | Print the cdr of $, assuming it is an Emacs Lisp pair. | 150 | Print the cdr of $, assuming it is an Emacs Lisp pair. |