equal
deleted
inserted
replaced
69 |
69 |
70 !GDBFrame methodsFor:'accessing'! |
70 !GDBFrame methodsFor:'accessing'! |
71 |
71 |
72 addr |
72 addr |
73 ^ addr |
73 ^ addr |
|
74 ! |
|
75 |
|
76 address |
|
77 ^ self addr |
|
78 |
|
79 "Created: / 03-07-2018 / 15:10:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
80 ! |
|
81 |
|
82 disassemble |
|
83 "Return instructions for a function of this frame" |
|
84 |
|
85 ^ (debugger hasFeature:'data-disassemble-a-option') ifTrue:[ |
|
86 debugger disassembleFunction: '0x', addr hexPrintString. |
|
87 ] ifFalse:[ |
|
88 debugger disassembleFile: file line: line count: nil. |
|
89 ]. |
|
90 |
|
91 "Created: / 22-06-2018 / 12:47:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
92 "Modified: / 03-07-2018 / 15:13:55 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
74 ! |
93 ! |
75 |
94 |
76 file |
95 file |
77 "Return filename (path) containing frame's function source." |
96 "Return filename (path) containing frame's function source." |
78 |
97 |
212 ^ String streamContents: [ :aStream | |
231 ^ String streamContents: [ :aStream | |
213 | f | |
232 | f | |
214 |
233 |
215 f := self file. |
234 f := self file. |
216 level printOn:aStream base: 10 size: 2 fill: Character space. |
235 level printOn:aStream base: 10 size: 2 fill: Character space. |
217 aStream nextPutAll:' '. |
236 aStream nextPutAll:' 0x'. |
218 addr printOn:aStream. |
237 addr printOn:aStream base: 16 size: 16 fill: $0. |
219 aStream nextPutAll:' '. |
238 aStream nextPutAll:' '. |
220 func notNil ifTrue:[ |
239 func notNil ifTrue:[ |
221 func printOn:aStream. |
240 func printOn:aStream. |
222 ] ifFalse:[ |
241 ] ifFalse:[ |
223 aStream nextPutAll: '?' |
242 aStream nextPutAll: '?' |
232 aStream nextPutAll:')'. |
251 aStream nextPutAll:')'. |
233 ]. |
252 ]. |
234 ]. |
253 ]. |
235 |
254 |
236 "Created: / 27-02-2015 / 15:20:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
255 "Created: / 27-02-2015 / 15:20:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
237 "Modified: / 12-06-2017 / 09:04:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
256 "Modified: / 03-07-2018 / 20:40:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
238 ! |
257 ! |
239 |
258 |
240 printOn:aStream |
259 printOn:aStream |
241 "append a printed representation if the receiver to the argument, aStream" |
260 "append a printed representation if the receiver to the argument, aStream" |
242 |
261 |