Changeset 10278


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/darwinx8664/.gdbinit

    r6507 r10278  
    1818end
    1919
    20 define l
     20define pl
    2121 call print_lisp_object($arg0)
    2222end
    2323
    2424define lw
    25  l $r13
     25 pl $r13
    2626end
    2727
     
    3131
    3232define arg_z
    33  l $rsi
     33 pl $rsi
    3434end
    3535
    3636define arg_y
    37  l $rdi
     37 pl $rdi
    3838end
    3939
    4040define arg_x
    41  l $r8
     41 pl $r8
    4242end
    4343
    4444define bx
    45  l $rbx
     45 pl $rbx
    4646end
    4747
    48 define showlist
    49   set $l=$arg0
    50   while $l != 0x200b
    51    set $car = *((LispObj *)($l+5))
    52    set $l =  *((LispObj *)($l-3))
    53    l $car
    54   end
    55 end
    5648
    5749define lbt
     
    8375# Work around Leopard bug du jour
    8476handle SIGSYS pass nostop noprint
     77handle SIGQUIT pass nostop noprint
    8578
Note: See TracChangeset for help on using the changeset viewer.