Minor improvement in `GDBVariable >> duplicate`
authorJan Vrany <jan.vrany@fit.cvut.cz>
Mon, 08 Jul 2019 22:44:57 +0100
changeset 201 d7057fccacfd
parent 200 e9250da35d87
child 202 412846313554
Minor improvement in `GDBVariable >> duplicate`
GDBVariable.st
--- a/GDBVariable.st	Mon Jul 08 12:34:18 2019 +0100
+++ b/GDBVariable.st	Mon Jul 08 22:44:57 2019 +0100
@@ -89,6 +89,12 @@
     "Created: / 05-07-2018 / 11:58:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+frame
+    ^ frame
+
+    "Created: / 08-07-2019 / 20:56:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 name
     ^ name
 !
@@ -162,12 +168,16 @@
      the same value. Other than that the returned duplicate is completely 
      independent" 
 
-    varobj == VarobjUnavailable ifTrue:[ 
+    | vobj |
+
+    vobj := self varobj.
+    vobj isNil ifTrue:[ 
         ^ self
     ].
-    ^ varobj duplicate
+    ^ vobj duplicate
 
     "Created: / 01-09-2018 / 00:27:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-07-2019 / 20:53:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !GDBVariable methodsFor:'initialization'!