source: trunk/source/lisp-kernel/win32/.gdbinit @ 10948

Last change on this file since 10948 was 10948, checked in by gb, 12 years ago

New file.

File size: 775 bytes
Line 
1directory lisp-kernel
2
3define pl
4  call print_lisp_object($arg0)
5end
6
7define showlist
8  set $l=$arg0
9  while $l != 0x3001
10   set $car = *((LispObj *)($l+3))
11   set $l =  *((LispObj *)($l-1))
12   pl $car
13  end
14end
15
16
17define fn
18  pl $edi
19end
20
21define arg_y
22 pl $esi
23end
24
25define arg_z
26 pl $ebx
27end
28
29define offset
30 p (int)$pc-$edi
31end
32
33
34break Bug
35
36display/i $pc
37
38handle SIGKILL pass nostop noprint
39handle SIGILL pass nostop noprint
40handle SIGSEGV pass nostop noprint
41handle SIGBUS pass nostop noprint
42handle SIGFPE pass nostop noprint
43handle SIGUSR1 pass nostop noprint
44handle SIGUSR2 pass nostop noprint
45handle SIGEMT pass nostop noprint
46# Work around apparent Apple GDB bug
47handle SIGTTIN nopass nostop noprint
48# Work around Leopard bug du jour
49handle SIGSYS pass nostop noprint
50
Note: See TracBrowser for help on using the repository browser.