Mercurial Mercurial > hg > jv-libgdbs / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added a GDBStoppedEvent >> stoppedThread
authorJan Vrany <jan.vrany@fit.cvut.cz>
Mon, 22 Sep 2014 23:48:10 +0100
changeset 44 e78460ac5d58
parent 43 22236b6d1d9a
child 45 deb908479a37
Added a GDBStoppedEvent >> stoppedThread
GDBRunningEvent.st file | annotate | diff | comparison | revisions
GDBStoppedEvent.st file | annotate | diff | comparison | revisions
libgdbs.rc file | annotate | diff | comparison | revisions
tests/tests.rc file | annotate | diff | comparison | revisions 
--- a/GDBRunningEvent.st	Mon Sep 22 09:59:28 2014 +0100
+++ b/GDBRunningEvent.st	Mon Sep 22 23:48:10 2014 +0100
@@ -11,10 +11,11 @@
 
 gdbValueDescriptor
     ^ (super gdbValueDescriptor)
-        define: #'thread_id' as: String;
+        define: #'thread-id' as: Integer;
         yourself
 
     "Created: / 08-09-2014 / 22:00:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 22-09-2014 / 23:38:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !GDBRunningEvent methodsFor:'accessing'!
--- a/GDBStoppedEvent.st	Mon Sep 22 09:59:28 2014 +0100
+++ b/GDBStoppedEvent.st	Mon Sep 22 23:48:10 2014 +0100
@@ -11,19 +11,27 @@
 
 gdbValueDescriptor
     ^ (super gdbValueDescriptor)
-        define: #'thread_id' as: Integer;
-        define: #'stopped_threads' as: String;
+        define: #'thread-id' as: Integer;
+        define: #'stopped-threads' as: String;
         yourself
 
     "Created: / 08-09-2014 / 22:13:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 22-09-2014 / 23:44:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !GDBStoppedEvent methodsFor:'accessing'!
 
+stoppedThread
+    ^ threads detect:[:thread | thread id = thread_id ]
+
+    "Created: / 22-09-2014 / 23:24:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 stoppedThreadId
-    ^ thread_id
+    ^ thread_id asInteger
 
     "Created: / 08-09-2014 / 22:15:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 22-09-2014 / 23:28:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 stoppedThreadIds
--- a/libgdbs.rc	Mon Sep 22 09:59:28 2014 +0100
+++ b/libgdbs.rc	Mon Sep 22 23:48:10 2014 +0100
@@ -25,7 +25,7 @@
       VALUE "LegalCopyright", "My CopyRight or CopyLeft\0"
       VALUE "ProductName", "LibraryName\0"
       VALUE "ProductVersion", "6.2.4.0\0"
-      VALUE "ProductDate", "Mon, 22 Sep 2014 08:58:09 GMT\0"
+      VALUE "ProductDate", "Mon, 22 Sep 2014 22:47:22 GMT\0"
     END
 
   END
--- a/tests/tests.rc	Mon Sep 22 09:59:28 2014 +0100
+++ b/tests/tests.rc	Mon Sep 22 23:48:10 2014 +0100
@@ -25,7 +25,7 @@
       VALUE "LegalCopyright", "My CopyRight or CopyLeft\0"
       VALUE "ProductName", "LibraryName\0"
       VALUE "ProductVersion", "6.2.4.0\0"
-      VALUE "ProductDate", "Mon, 22 Sep 2014 08:58:11 GMT\0"
+      VALUE "ProductDate", "Mon, 22 Sep 2014 22:47:24 GMT\0"
     END
 
   END
hg/jv-libgdbs