equal
deleted
inserted
replaced
9 |
9 |
10 !GDBStoppedEvent class methodsFor:'accessing - GDB value descriptors'! |
10 !GDBStoppedEvent class methodsFor:'accessing - GDB value descriptors'! |
11 |
11 |
12 gdbValueDescriptor |
12 gdbValueDescriptor |
13 ^ (super gdbValueDescriptor) |
13 ^ (super gdbValueDescriptor) |
14 define: #'thread_id' as: Integer; |
14 define: #'thread-id' as: Integer; |
15 define: #'stopped_threads' as: String; |
15 define: #'stopped-threads' as: String; |
16 yourself |
16 yourself |
17 |
17 |
18 "Created: / 08-09-2014 / 22:13:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
18 "Created: / 08-09-2014 / 22:13:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
19 "Modified: / 22-09-2014 / 23:44:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
19 ! ! |
20 ! ! |
20 |
21 |
21 !GDBStoppedEvent methodsFor:'accessing'! |
22 !GDBStoppedEvent methodsFor:'accessing'! |
22 |
23 |
|
24 stoppedThread |
|
25 ^ threads detect:[:thread | thread id = thread_id ] |
|
26 |
|
27 "Created: / 22-09-2014 / 23:24:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
28 ! |
|
29 |
23 stoppedThreadId |
30 stoppedThreadId |
24 ^ thread_id |
31 ^ thread_id asInteger |
25 |
32 |
26 "Created: / 08-09-2014 / 22:15:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
33 "Created: / 08-09-2014 / 22:15:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
34 "Modified: / 22-09-2014 / 23:28:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
27 ! |
35 ! |
28 |
36 |
29 stoppedThreadIds |
37 stoppedThreadIds |
30 ^ stopped_threads |
38 ^ stopped_threads |
31 |
39 |