equal
deleted
inserted
replaced
21 "{ Package: 'jv:libgdbs' }" |
21 "{ Package: 'jv:libgdbs' }" |
22 |
22 |
23 "{ NameSpace: Smalltalk }" |
23 "{ NameSpace: Smalltalk }" |
24 |
24 |
25 GDBDebuggerObject subclass:#GDBThreadGroup |
25 GDBDebuggerObject subclass:#GDBThreadGroup |
26 instanceVariableNames:'id type executable running pid exit_code threads' |
26 instanceVariableNames:'id type executable running pid exit_code threads registersMap' |
27 classVariableNames:'ExecutableSentinel' |
27 classVariableNames:'ExecutableSentinel' |
28 poolDictionaries:'GDBCommandStatus' |
28 poolDictionaries:'GDBCommandStatus' |
29 category:'GDB-Core' |
29 category:'GDB-Core' |
30 ! |
30 ! |
31 |
31 |
225 |
225 |
226 initialize |
226 initialize |
227 "Invoked when a new instance is created." |
227 "Invoked when a new instance is created." |
228 |
228 |
229 running := false. |
229 running := false. |
230 |
230 registersMap := Dictionary new. |
231 "Modified: / 06-06-2017 / 00:25:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
231 |
|
232 "Modified: / 26-09-2018 / 09:53:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
233 ! |
|
234 |
|
235 reset |
|
236 "Reset all internal caches. Invoked bu debugger when an inferior |
|
237 starts. This is necessary since GDB recycles inferors and so we |
|
238 do." |
|
239 |
|
240 registersMap := Dictionary new. |
|
241 |
|
242 "Created: / 26-09-2018 / 10:58:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
232 ! |
243 ! |
233 |
244 |
234 setExitCode: anInteger |
245 setExitCode: anInteger |
235 exit_code := anInteger. |
246 exit_code := anInteger. |
236 running := false. |
247 running := false. |
271 "Modified: / 02-03-2015 / 07:10:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
282 "Modified: / 02-03-2015 / 07:10:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
272 ! ! |
283 ! ! |
273 |
284 |
274 !GDBThreadGroup methodsFor:'private'! |
285 !GDBThreadGroup methodsFor:'private'! |
275 |
286 |
|
287 registersMap |
|
288 ^ registersMap |
|
289 |
|
290 "Created: / 26-09-2018 / 10:01:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
291 ! |
|
292 |
276 threadAdd: aGDBThread |
293 threadAdd: aGDBThread |
277 self threads add: aGDBThread |
294 self threads add: aGDBThread |
278 |
295 |
279 "Created: / 06-09-2014 / 02:23:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
296 "Created: / 06-09-2014 / 02:23:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
280 ! |
297 ! |