GDBDebugger.st
changeset 72 eb4eea3ebf4c
parent 69 10d9be451202
child 78 c24e7d8bc881
--- 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