equal
deleted
inserted
replaced
165 self ensureIsValid. |
165 self ensureIsValid. |
166 variables isNil ifTrue:[ |
166 variables isNil ifTrue:[ |
167 variables := GDBTransientDataHolder debugger: debugger factory:[ :old | |
167 variables := GDBTransientDataHolder debugger: debugger factory:[ :old | |
168 | result new | |
168 | result new | |
169 |
169 |
170 result := debugger send: (GDBMI_stack_list_variables new arguments: (Array with: '--thread' with: thread id with: '--frame' with: level with: '--no-values')). |
170 result := debugger send: (GDBMI_stack_list_variables new arguments: (Array with: '--thread' with: thread id with: '--frame' with: level with: '--simple-values')). |
171 new := (result propertyAt: #variables) ? #(). |
171 new := (result propertyAt: #variables) ? #(). |
172 old notNil ifTrue:[ |
172 old notNil ifTrue:[ |
173 old size == new size ifTrue:[ |
173 old size == new size ifTrue:[ |
174 1 to: new size do:[:i | |
174 1 to: new size do:[:i | |
175 | oldVar newVar | |
175 | oldVar newVar | |
193 ]. |
193 ]. |
194 ]. |
194 ]. |
195 ^ variables value |
195 ^ variables value |
196 |
196 |
197 "Created: / 27-02-2015 / 14:56:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
197 "Created: / 27-02-2015 / 14:56:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
198 "Modified: / 06-02-2018 / 22:45:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
198 "Modified: / 05-07-2018 / 11:10:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
199 ! ! |
199 ! ! |
200 |
200 |
201 !GDBFrame methodsFor:'initialization'! |
201 !GDBFrame methodsFor:'initialization'! |
202 |
202 |
203 setAddr: aString |
203 setAddr: aString |