--- a/AssignmentNode.st Tue Jul 26 00:37:30 2011 +0200
+++ b/AssignmentNode.st Wed Jul 27 16:59:43 2011 +0200
@@ -79,7 +79,9 @@
expression := something.
expression notNil ifTrue:[expression parent: self].
- "Modified: / 20-07-2011 / 19:48:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ endPosition := expression endPosition.
+
+ "Modified: / 27-07-2011 / 13:50:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
lineNr
@@ -118,7 +120,9 @@
variable := something.
variable notNil ifTrue:[variable parent: self].
- "Modified: / 20-07-2011 / 19:48:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ startPosition := variable startPosition.
+
+ "Modified: / 27-07-2011 / 13:50:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
variable:v expression:e
@@ -131,6 +135,9 @@
expression := e.
expression notNil ifTrue:[expression parent: self].
+ startPosition := variable startPosition.
+ endPosition := expression endPosition.
+
"/ any block, which gets assigned to something
"/ cannot be inlined.
(e notNil and:[e isBlockNode]) ifTrue:[
@@ -138,7 +145,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>"
+ "Modified: / 27-07-2011 / 13:50:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!AssignmentNode methodsFor:'code generation'!
@@ -340,7 +347,7 @@
!AssignmentNode class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.42 2011-07-25 22:35:50 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.43 2011-07-27 14:59:43 vrany Exp $'
!
version_SVN