--- a/GDBDebugger.st Tue Mar 10 10:00:55 2015 +0000
+++ b/GDBDebugger.st Wed Mar 18 14:19:37 2015 +0000
@@ -369,11 +369,11 @@
onRunningEvent: aGDBRunningEvent
| threads threadId |
+ self nextInferiorStateSequnceNumber.
threadId := aGDBRunningEvent threadId.
threadId = 'all' ifFalse:[
threadId := threadId asInteger.
].
- self nextInferiorStateSequnceNumber.
threads := Set new.
inferiors do:[:inferior |
inferior threads do:[:thread |
@@ -385,17 +385,17 @@
aGDBRunningEvent setThreads: threads
"Created: / 07-09-2014 / 23:34:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 08-03-2015 / 09:07:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 18-03-2015 / 13:57:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
onStoppedEvent: aGDBStoppedEvent
| threads threadIds |
+ self nextInferiorStateSequnceNumber.
threadIds := aGDBStoppedEvent stoppedThreadIds.
threadIds = 'all' ifFalse:[
threadIds := threadIds collect:[:e | e asInteger ].
].
- self nextInferiorStateSequnceNumber.
threads := Set new.
inferiors do:[:inferior |
inferior threads do:[:thread |
@@ -407,7 +407,7 @@
aGDBStoppedEvent setThreads: threads
"Created: / 07-09-2014 / 23:34:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 10-03-2015 / 00:29:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 18-03-2015 / 13:57:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
onThreadCreatedEvent:aGDBThreadCreatedEvent
@@ -422,10 +422,12 @@
onThreadExitedEvent:aGDBThreadExitedEvent
| inferior |
+ self nextInferiorStateSequnceNumber.
inferior := self inferiorForId:aGDBThreadExitedEvent threadGroupId.
inferior onThreadExitedEvent:aGDBThreadExitedEvent.
"Created: / 07-09-2014 / 21:20:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 18-03-2015 / 13:57:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
onThreadGroupAddedEvent:aGDBThreadGroupAddedEvent
@@ -445,12 +447,13 @@
onThreadGroupExitedEvent:aGDBThreadGroupExitedEvent
| inferior |
+ self nextInferiorStateSequnceNumber.
inferior := self inferiorForId:aGDBThreadGroupExitedEvent threadGroupId.
inferior setExitCode:aGDBThreadGroupExitedEvent exitCode.
aGDBThreadGroupExitedEvent setThreadGroup:inferior
"Created: / 06-09-2014 / 02:37:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 07-09-2014 / 21:23:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 18-03-2015 / 13:57:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
onThreadGroupStartedEvent:aGDBThreadGroupStartedEvent