aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/.gdbinit4
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.
218end 218end
219define xcar 219define xcar
220print ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->car : 0) 220print/x ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->car : 0)
221end 221end
222document xcar 222document xcar
223Print the car of $, assuming it is an Emacs Lisp pair. 223Print the car of $, assuming it is an Emacs Lisp pair.
224end 224end
225 225
226define xcdr 226define xcdr
227print ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->cdr : 0) 227print/x ((($ >> gdb_valbits) & 0xf) == Lisp_Cons ? ((struct Lisp_Cons *) (($ & $valmask) | gdb_data_seg_bits))->cdr : 0)
228end 228end
229document xcdr 229document xcdr
230Print the cdr of $, assuming it is an Emacs Lisp pair. 230Print the cdr of $, assuming it is an Emacs Lisp pair.