More fixes to keep node position in the source. Not yet fully implemented
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 27 Jul 2011 16:59:43 +0200
changeset 2609 571b92101923
parent 2608 02cf4816ae5e
child 2610 398820190422
More fixes to keep node position in the source. Not yet fully implemented
AssignmentNode.st
--- 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