source: trunk/source/lisp-kernel/solarisx64/.gdbinit @ 10069

Last change on this file since 10069 was 10069, checked in by gb, 11 years ago

New file, much like the Linux version.

File size: 1.0 KB
Line 
1define x86_lisp_string
2x/s $arg0-5
3end
4
5define gtra
6br *$r10
7cont
8end
9
10define x86pname
11set $temp=*((long *)((long)($arg0-6)))
12x86_lisp_string $temp
13end
14
15
16define pname
17 x86pname $arg0
18end
19
20define l
21 call print_lisp_object($arg0)
22end
23
24define lw
25 l $r13
26end
27
28define clobber_breakpoint
29  set *(short *)($pc-2)=0x9090
30end
31
32define arg_z
33 l $rsi
34end
35
36define arg_y
37 l $rdi
38end
39
40define arg_x
41 l $r8
42end
43
44define bx
45 l $rbx
46end
47
48define 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
55end
56
57define lbt
58 call plbt_sp($rbp)
59end
60
61define ada
62 p/x *(all_areas->succ)
63end
64
65define lregs
66 call debug_lisp_registers($arg0,0,0)
67end
68
69break Bug
70
71display/i $pc
72
73handle SIGKILL pass nostop noprint
74handle SIGILL pass nostop noprint
75handle SIGSEGV pass nostop noprint
76handle SIGBUS pass nostop noprint
77handle SIGFPE pass nostop noprint
78handle SIGUSR1 pass nostop noprint
79handle SIGUSR2 pass nostop noprint
80handle SIGPWR pass nostop noprint
81handle SIGQUIT pass nostop noprint
82
Note: See TracBrowser for help on using the repository browser.