Changeset 10278

Timestamp:

Aug 2, 2008, 10:10:39 PM (11 years ago)

Author:

gb

Message:

Use 'pl' (not 'l', which may be predefined) to print lisp objects
(as in rme's 32-bit .gdbinit.)

Handle SIGQUIT on Darwin, too.

File:

• trunk/source/lisp-kernel/darwinx8664/.gdbinit (modified) (3 diffs)

trunk/source/lisp-kernel/darwinx8664/.gdbinit

@@ -18 +18 @@
 end
 
-define l
+define pl
  call print_lisp_object($arg0)
 end
 
 define lw
- l $r13
+ pl $r13
 end
 
@@ -31 +31 @@
 
 define arg_z
- l $rsi
+ pl $rsi
 end
 
 define arg_y
- l $rdi
+ pl $rdi
 end
 
 define arg_x
- l $r8
+ pl $r8
 end
 
 define bx
- l $rbx
+ pl $rbx
 end
 
-define showlist
-  set $l=$arg0
-  while $l != 0x200b
-   set $car = *((LispObj *)($l+5))
-   set $l =  *((LispObj *)($l-3))
-   l $car
-  end
-end
 
 define lbt
@@ -83 +75 @@
 # Work around Leopard bug du jour
 handle SIGSYS pass nostop noprint
+handle SIGQUIT pass nostop noprint