--- a/AssignmentNode.st	Tue Jul 26 00:35:40 2011 +0200
+++ b/AssignmentNode.st	Tue Jul 26 00:35:50 2011 +0200
@@ -74,7 +74,12 @@
 !
 
 expression:something
+
+    expression notNil ifTrue:[expression parent: nil].
     expression := something.
+    expression notNil ifTrue:[expression parent: self].
+
+    "Modified: / 20-07-2011 / 19:48:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 lineNr
@@ -108,13 +113,23 @@
 !
 
 variable:something
+
+    variable notNil ifTrue:[variable parent: nil].
     variable := something.
+    variable notNil ifTrue:[variable parent: self].
+
+    "Modified: / 20-07-2011 / 19:48:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 variable:v expression:e
 
+    variable notNil ifTrue:[variable parent: nil].
     variable := v.
+    variable notNil ifTrue:[variable parent: self].
+
+    expression notNil ifTrue:[expression parent: nil].
     expression := e.
+    expression notNil ifTrue:[expression parent: self].
 
     "/ any block, which gets assigned to something
     "/ cannot be inlined.
@@ -123,6 +138,7 @@
     ]
 
     "Modified: / 22-02-2011 / 12:52:56 / Jakub <zelenja7@fel.cvut.cz>"
+    "Modified: / 20-07-2011 / 19:49:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !AssignmentNode methodsFor:'code generation'!
@@ -310,12 +326,23 @@
     ^ true
 ! !
 
+!AssignmentNode methodsFor:'visiting'!
+
+acceptVisitor:aVisitor 
+    "Double dispatch back to the visitor, passing my type encoded in
+     the selector (visitor pattern)"
+
+    "stub code automatically generated - please change if required"
+
+    ^ aVisitor visitAssignmentNode:self
+! !
+
 !AssignmentNode class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.41 2011-06-28 20:17:34 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.42 2011-07-25 22:35:50 vrany Exp $'
 !
 
 version_SVN
-    ^ ' Id '
+    ^ '§ Id §'
 ! !