File: .gdbinit

package info (click to toggle)
gnu-smalltalk 3.2.4-2.1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 32,688 kB
  • ctags: 14,104
  • sloc: ansic: 87,424; sh: 22,729; asm: 8,465; perl: 4,513; cpp: 3,548; xml: 1,669; awk: 1,581; yacc: 1,357; makefile: 1,237; lisp: 855; lex: 843; sed: 258; objc: 124
file content (221 lines) | stat: -rw-r--r-- 5,753 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
#######################################################################
#
#   gdb user-defined commands to debug GNU Smalltalk.
#
########################################################################


#######################################################################
#
# Copyright 2004, 2006, 2007, 2009 Free Software Foundation, Inc.
# Written by Paolo Bonzini
#
# This file is part of GNU Smalltalk.
#
# GNU Smalltalk is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
# 
# GNU Smalltalk is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with GNU Smalltalk; see the file COPYING.  If not, write to the
# Free Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
# 02110-1301, USA.  
#
########################################################################


# Commands to invoke debugging routines
# ------------------------------------------------------

define ststack
set unwindonsignal on
call _gst_show_stack_contents ()
call (void)fflush(stdout)
set unwindonsignal off
end
document ststack
Print the contents of the stack of the currently executing method.
end

define stprocs
set unwindonsignal on
call _gst_print_process_state ()
call (void)fflush(stdout)
set unwindonsignal off
end
document stprocs
Print the state of the Smalltalk processes.
end

define stbt
set unwindonsignal on
call _gst_show_backtrace (stdout)
call (void)fflush(stdout)
set unwindonsignal off
end
document stbt
Print the backtrace of the currently running Smalltalk process.
end


# Commands to print the contents of Smalltalk objects
# ------------------------------------------------------

define po
set unwindonsignal on
call _gst_print_object($arg0)
call (void)fflush(stdout)
set unwindonsignal off
printf "\n"
end
document po
Print a representation of a Smalltalk object.

Syntax: po EXPR
end


define pfield
p (($arg0)((OOP)$arg1)->object)->$arg2
end
document pfield
Access a field of a Smalltalk object and print its OOP.
The printed value is a C pointer and is put in the history.
CLASS is a C pointer type which has a member named FIELD.

Syntax: pfield CLASS OBJECT FIELD
end


define ofield
po (($arg0)((OOP)$arg1)->object)->$arg2
end
document ofield
Access a field of a Smalltalk object and print its contents.
The printed value is a user-readable representation and, as such,
cannot be put in the history.  CLASS is a C pointer type which
has a member named FIELD.

Syntax: ofield CLASS OBJECT FIELD
end


define pofield
call _gst_print_object((($arg0)((OOP)$arg1)->object)->$arg2)
printf "  "
p (($arg0)((OOP)$arg1)->object)->$arg2
end
document pofield
Access a field of a Smalltalk object and print its contents.
The first printed value is a user-readable representation, while
the second is a C pointer which is put in the history.  CLASS is
a C pointer type which has a member named FIELD.

Syntax: pofield CLASS OBJECT FIELD
end


# Commands to print several common Smalltalk objects
# ------------------------------------------------------

define passoc
printf "Key: "
pofield gst_association $arg0 key
printf "Value: "
pofield gst_association $arg0 value
end
document passoc
Print the key and value of an Association object.
The two items are printed with pofield, hence storing two values in
the history.

Syntax: passoc OBJECT
end


define pmeth
printf "Selector: "
pofield gst_method_info ((gst_compiled_method)$arg0->object)->descriptor selector
printf "Class: "
pofield gst_method_info ((gst_compiled_method)$arg0->object)->descriptor class
end
document pmeth
Print the selector and class of a CompiledMethod object.
The values are printed with pofield, hence storing two values in
the history.

Syntax: pmeth OBJECT
end


define pblock
printf "Method: "
pofield gst_compiled_block $arg0 method
printf "Selector: "
pofield gst_method_info ((gst_compiled_method)$->object)->descriptor selector
printf "Class: "
pofield gst_method_info ((gst_compiled_method)$$->object)->descriptor class
end
document pblock
Print the home method, selector and class of a CompiledBlock object.
The values are printed with pofield, hence storing three values in
the history.

Syntax: pblock OBJECT
end


define pbctx
printf "Parent: "
pofield gst_block_context $arg0 parentContext
printf "Block: "
pofield gst_block_context $arg0 method
pblock $
printf "IP: "
ofield gst_block_context $arg0 ipOffset
end
document pbctx
Print the block, method, selector and class of a BlockContext object.
The values are printed with pofield, hence storing four values in
the history.  The instruction pointer is also printed but not stored
in the history.

Syntax: pbctx OBJECT
end


define pmctx
printf "Parent: "
pofield gst_method_context $arg0 parentContext
printf "Method: "
pofield gst_method_context $arg0 method
pmeth ((gst_method_context)$arg0->object)->method
printf "IP: "
ofield gst_method_context $arg0 ipOffset
end
document pmctx
Print the method, selector and class of a MethodContext object.
The values are printed with pofield, hence storing three values in
the history.  The instruction pointer is also printed but not stored
in the history.

Syntax: pmctx OBJECT
end



# Initializing gdb
# ------------------------------------------------------

handle SIGSEGV noprint
handle SIGUSR2 noprint

# Don't let abort actually run, as it will make stdio
# stop working and therefore the commands above as well.
b abort