Fixed `GDBVariable>>varobj` to actually keep the varobj
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 24 May 2017 15:22:08 +0100
changeset 76 29efc28d989a
parent 75 0b8ce7d74318
child 77 305094ae9fd9
Fixed `GDBVariable>>varobj` to actually keep the varobj
GDBVariable.st
tests/GDBDebuggerTestsR.st
--- a/GDBVariable.st	Fri Feb 26 09:48:21 2016 +0000
+++ b/GDBVariable.st	Wed May 24 15:22:08 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'jv:libgdbs' }"
 
 "{ NameSpace: Smalltalk }"
@@ -11,6 +9,7 @@
 	category:'GDB-Core'
 !
 
+
 !GDBVariable class methodsFor:'accessing - GDB value descriptors'!
 
 description
@@ -65,11 +64,13 @@
                 debugger send: (GDBMI_stack_select_frame new arguments:currentFrameId).       
             ].
         ].
+
+        varobj := result value.
     ].
     ^ varobj value
 
     "Created: / 27-02-2015 / 17:18:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 18-03-2015 / 16:52:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-05-2017 / 15:14:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !GDBVariable methodsFor:'initialization'!
@@ -96,3 +97,10 @@
     "Modified: / 27-02-2015 / 15:18:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!GDBVariable class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+
--- a/tests/GDBDebuggerTestsR.st	Fri Feb 26 09:48:21 2016 +0000
+++ b/tests/GDBDebuggerTestsR.st	Wed May 24 15:22:08 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'jv:libgdbs/tests' }"
 
 "{ NameSpace: Smalltalk }"
@@ -59,7 +57,7 @@
     frame2 := thread1 stack second.
     self assert: frame1 variables size == 1.
     self assert: frame1 variables first name = 'i'.
-    self assert: frame1 variables first value = 'i'.
+    self assert: frame1 variables first value = '5'.
 
 
     self assert: frame2 variables size == 4.
@@ -74,7 +72,7 @@
     self assert: thread1 isDead
 
     "Created: / 28-02-2015 / 00:55:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 18-03-2015 / 16:49:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-05-2017 / 15:18:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 test_03