source: release/1.9/source/lisp-kernel/linuxppc/.gdbinit @ 16083

Last change on this file since 16083 was 5125, checked in by gb, 14 years ago

Start to depend on calling print_lisp_object, since x/s doesn't deal with 32-bit
lisp strings.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.5 KB
Line 
1directory lisp-kernel
2
3define header32
4x/x $arg0-6
5end
6
7define header64
8x/x $arg0-12
9end
10
11define lisp_string32
12x/s ($arg0-2)
13end
14
15define lisp_string64
16x/s (($arg0)-4)
17end
18
19define pname32
20lisp_string32 (*($arg0-2))
21end
22
23# GDB's expression parser seems to have difficulty
24# with this unless the temporary is used.
25define pname64
26set $temp=*((long *)((long)($arg0-4)))
27lisp_string64 $temp
28end
29
30define ada
31 p *all_areas->succ
32end
33
34define _TCR
35 p/x *(TCR *) $arg0
36end
37
38define tcr32
39 _TCR $r13
40end
41
42define tcr64
43 _TCR $r2
44end
45
46define regs32
47 p/x *(((struct pt_regs **)$arg0)[12])
48end
49
50define regs64
51 p/x * (((ExceptionInformation *)$arg0)->uc_mcontext.regs)
52end
53
54define xpGPR
55 p/x (((struct pt_regs **)$arg0)[12])->gpr[$arg1]
56end
57
58define xpPC
59 p/x ((ExceptionInformation *)$arg0)->uc_mcontext.regs->nip
60end
61
62define lisp_string
63 if $ppc64
64  lisp_string64 $arg0
65 else
66  lisp_string32 $arg0
67 end
68end
69
70define pname
71 if $ppc64
72  pname64 $arg0
73 else
74  pname32 $arg0
75 end
76end
77
78define tcr
79 if $ppc64
80  tcr64
81 else
82  tcr32
83 end
84end
85
86define regs
87 if $ppc64
88  regs64 $arg0
89 else
90  regs32 $arg0
91 end
92end
93
94define xpGPR
95 if $ppc64
96  xpGPR64 $arg0 $arg1
97 else
98  xpGPR32 $arg0 $arg1
99 end
100end
101
102define lisp
103 call print_lisp_object($arg0)
104end
105
106set $ppc64=0
107
108
109break Bug
110
111handle SIGILL pass nostop noprint
112handle SIGSEGV pass nostop noprint
113handle SIGBUS pass nostop noprint
114handle SIGFPE pass nostop noprint
115handle SIG40 pass nostop noprint
116handle SIG41 pass nostop noprint
117handle SIG42 pass nostop noprint
118handle SIGPWR pass nostop noprint
119
120display/i $pc
Note: See TracBrowser for help on using the repository browser.