equal
deleted
inserted
replaced
6 instanceVariableNames:'thread level addr func file fullname line from variables' |
6 instanceVariableNames:'thread level addr func file fullname line from variables' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'GDB-Core' |
9 category:'GDB-Core' |
10 ! |
10 ! |
|
11 |
11 |
12 |
12 !GDBFrame class methodsFor:'accessing - GDB value descriptors'! |
13 !GDBFrame class methodsFor:'accessing - GDB value descriptors'! |
13 |
14 |
14 description |
15 description |
15 ^ (super description) |
16 ^ (super description) |
64 variables isNil ifTrue:[ |
65 variables isNil ifTrue:[ |
65 variables := GDBTransientDataHolder debugger: debugger factory:[ |
66 variables := GDBTransientDataHolder debugger: debugger factory:[ |
66 | result | |
67 | result | |
67 |
68 |
68 result := debugger send: (GDBMI_stack_list_variables new arguments: { '--thread' . thread id . '--frame' . level . '--simple-values' }). |
69 result := debugger send: (GDBMI_stack_list_variables new arguments: { '--thread' . thread id . '--frame' . level . '--simple-values' }). |
69 (result propertyAt: #variables) |
70 (result propertyAt: #variables) ? #() |
70 do:[ :each | each setFrame: self ]; |
71 do:[ :each | each setFrame: self ]; |
71 yourself |
72 yourself |
72 ]. |
73 ]. |
73 ]. |
74 ]. |
74 ^ variables value |
75 ^ variables value |
75 |
76 |
76 "Created: / 27-02-2015 / 14:56:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
77 "Created: / 27-02-2015 / 14:56:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
77 "Modified: / 28-02-2015 / 01:04:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
78 "Modified: / 09-03-2015 / 23:43:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
78 ! ! |
79 ! ! |
79 |
80 |
80 !GDBFrame methodsFor:'printing & storing'! |
81 !GDBFrame methodsFor:'printing & storing'! |
81 |
82 |
82 displayString |
83 displayString |
113 aStream nextPutAll:')'. |
114 aStream nextPutAll:')'. |
114 |
115 |
115 "Modified: / 27-02-2015 / 15:21:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
116 "Modified: / 27-02-2015 / 15:21:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
116 ! ! |
117 ! ! |
117 |
118 |
|
119 !GDBFrame class methodsFor:'documentation'! |
|
120 |
|
121 version_HG |
|
122 |
|
123 ^ '$Changeset: <not expanded> $' |
|
124 ! ! |
|
125 |