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.
Temporary commit: more work on simulator...
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 26 Aug 2014 09:52:31 +0100
changeset 32 d9c96b33afd6
parent 30 520ddea6851f
child 33 7abcdaaa5229
Temporary commit: more work on simulator...
GDBInternalPipeStream.st file | annotate | diff | comparison | revisions
GDBMI_stack_info_depth.st file | annotate | diff | comparison | revisions
GDBParser.st file | annotate | diff | comparison | revisions
GDBSimulatorProcess.st file | annotate | diff | comparison | revisions
Make.proto file | annotate | diff | comparison | revisions
bc.mak file | annotate | diff | comparison | revisions
libgdbs.rc file | annotate | diff | comparison | revisions
tests/Make.proto file | annotate | diff | comparison | revisions
tests/bc.mak file | annotate | diff | comparison | revisions
tests/tests.rc file | annotate | diff | comparison | revisions 
--- a/GDBInternalPipeStream.st	Sun Jul 06 10:27:25 2014 +0100
+++ b/GDBInternalPipeStream.st	Tue Aug 26 09:52:31 2014 +0100
@@ -113,8 +113,9 @@
 
 close
     closed := true.
+    dataAvailable signalForAll.
 
-    "Modified: / 07-06-2014 / 01:02:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-08-2014 / 09:47:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 readStream
--- a/GDBMI_stack_info_depth.st	Sun Jul 06 10:27:25 2014 +0100
+++ b/GDBMI_stack_info_depth.st	Tue Aug 26 09:52:31 2014 +0100
@@ -59,3 +59,10 @@
 	^ 'stack-info-depth'
 ! !
 
+!GDBMI_stack_info_depth class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+
--- a/GDBParser.st	Sun Jul 06 10:27:25 2014 +0100
+++ b/GDBParser.st	Tue Aug 26 09:52:31 2014 +0100
@@ -432,9 +432,10 @@
         ].
     ].
     self next. "/ eat CR.
-    ^ class arguments: args asArray.
+    ^ (class arguments: args asArray) token: token.
 
     "Created: / 24-06-2014 / 23:10:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-08-2014 / 08:02:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !GDBParser methodsFor:'parsing-misc'!
--- a/GDBSimulatorProcess.st	Sun Jul 06 10:27:25 2014 +0100
+++ b/GDBSimulatorProcess.st	Tue Aug 26 09:52:31 2014 +0100
@@ -71,9 +71,11 @@
         debuggerOutput nextPutAll: actual token printString.
     ].    
     debuggerOutput nextPutLine: '^error,msg="Unexpected command"'.
-    ^ false
+    debuggerOutput nextPutLine: '^exit'.      
+    ^ true
 
     "Created: / 24-06-2014 / 23:37:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-08-2014 / 09:27:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 processCommandLineExpecting: lineExpected
@@ -107,11 +109,12 @@
         ] ifFalse:[
             self processResponse: event.
         ]
-
     ].
+    debuggerInput close.
+    debuggerOutput close.
 
     "Created: / 24-06-2014 / 08:48:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 24-06-2014 / 23:37:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-08-2014 / 09:31:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 processResponse: response
@@ -138,19 +141,25 @@
     thread := [ 
         self processLoop.
     ] newProcess.
-    thread addExitAction: [ thread := nil ].
+    thread addExitAction: [ 
+        pid := nil.
+        debuggerInput close.
+        debuggerOutput close.
+        thread := nil. 
+    ].
+    thread name:('GDB Simulator Process (%1)' bindWith: pid).
     thread resume.
 
     "Created: / 24-06-2014 / 00:58:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 24-06-2014 / 08:48:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-08-2014 / 09:48:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 stop
     (thread notNil and:[ thread isDead not ]) ifTrue:[  
         thread terminate.
-        thread := nil.
     ]
 
     "Created: / 24-06-2014 / 01:02:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-08-2014 / 09:34:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
--- a/Make.proto	Sun Jul 06 10:27:25 2014 +0100
+++ b/Make.proto	Tue Aug 26 09:52:31 2014 +0100
@@ -104,6 +104,7 @@
 	cd $(TOP)/libbasic && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
 	cd $(TOP)/goodies/announcements && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
 	cd $(TOP)/libbasic2 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+	cd $(TOP)/libbasic3 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
 	cd $(TOP)/libview && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
 	cd $(TOP)/libview2 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
 	cd $(TOP)/goodies/sunit && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
--- a/bc.mak	Sun Jul 06 10:27:25 2014 +0100
+++ b/bc.mak	Tue Aug 26 09:52:31 2014 +0100
@@ -53,6 +53,7 @@
 	pushd ..\..\stx\libbasic & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
 	pushd ..\..\stx\goodies\announcements & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
 	pushd ..\..\stx\libbasic2 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+	pushd ..\..\stx\libbasic3 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
 	pushd ..\..\stx\libview & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
 	pushd ..\..\stx\libview2 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
 	pushd ..\..\stx\goodies\sunit & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
--- a/libgdbs.rc	Sun Jul 06 10:27:25 2014 +0100
+++ b/libgdbs.rc	Tue Aug 26 09:52:31 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", "Sun, 06 Jul 2014 09:26:19 GMT\0"
+      VALUE "ProductDate", "Tue, 26 Aug 2014 08:51:30 GMT\0"
     END
 
   END
--- a/tests/Make.proto	Sun Jul 06 10:27:25 2014 +0100
+++ b/tests/Make.proto	Tue Aug 26 09:52:31 2014 +0100
@@ -104,6 +104,7 @@
 	cd $(TOP)/libbasic && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
 	cd $(TOP)/goodies/announcements && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
 	cd $(TOP)/libbasic2 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+	cd $(TOP)/libbasic3 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
 	cd $(TOP)/libview && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
 	cd $(TOP)/libview2 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
 	cd $(TOP)/goodies/sunit && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
--- a/tests/bc.mak	Sun Jul 06 10:27:25 2014 +0100
+++ b/tests/bc.mak	Tue Aug 26 09:52:31 2014 +0100
@@ -53,6 +53,7 @@
 	pushd ..\..\..\stx\libbasic & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
 	pushd ..\..\..\stx\goodies\announcements & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
 	pushd ..\..\..\stx\libbasic2 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
+	pushd ..\..\..\stx\libbasic3 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
 	pushd ..\..\..\stx\libview & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
 	pushd ..\..\..\stx\libview2 & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
 	pushd ..\..\..\stx\goodies\sunit & $(MAKE_BAT) "CFLAGS_LOCAL=$(GLOBALDEFINES) "
--- a/tests/tests.rc	Sun Jul 06 10:27:25 2014 +0100
+++ b/tests/tests.rc	Tue Aug 26 09:52:31 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", "Sun, 06 Jul 2014 09:26:21 GMT\0"
+      VALUE "ProductDate", "Tue, 26 Aug 2014 08:51:33 GMT\0"
     END
 
   END
hg/jv-libgdbs