Jan's changes
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 28 Jun 2011 22:00:02 +0200
changeset 2500 3178ecc11a5e
parent 2499 fc8b7716732f
child 2501 ba3ad35e28a6
Jan's changes
ConstantNode.st
--- a/ConstantNode.st	Tue Jun 28 21:59:12 2011 +0200
+++ b/ConstantNode.st	Tue Jun 28 22:00:02 2011 +0200
@@ -13,7 +13,8 @@
 
 PrimaryNode subclass:#ConstantNode
 	instanceVariableNames:''
-	classVariableNames:'TrueNode FalseNode NilNode Const0Node Const1Node Float0Node'
+	classVariableNames:'TrueNode FalseNode NilNode Const0Node Const1Node Float0Node
+		endLineNr endCharIndex'
 	poolDictionaries:''
 	category:'System-Compiler-Support'
 !
@@ -133,6 +134,30 @@
 
 !ConstantNode methodsFor:'accessing'!
 
+endCharIndex
+^endCharIndex.
+
+    "Created: / 23-02-2011 / 20:57:13 / Jakub <zelenja7@fel.cvut.cz>"
+!
+
+endCharIndex:val
+endCharIndex:=val.
+
+    "Created: / 23-02-2011 / 20:57:23 / Jakub <zelenja7@fel.cvut.cz>"
+!
+
+endLineNr
+^endLineNr.
+
+    "Created: / 23-02-2011 / 20:53:25 / Jakub <zelenja7@fel.cvut.cz>"
+!
+
+endLineNr:val 
+    endLineNr := val.
+
+    "Created: / 23-02-2011 / 20:53:47 / Jakub <zelenja7@fel.cvut.cz>"
+!
+
 lineNumber:ignoredLineNumber
 
     "Created: / 14.5.1998 / 19:31:48 / cg"
@@ -339,10 +364,10 @@
 
 !ConstantNode class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.45 2010-01-18 16:01:21 cg Exp $'
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.46 2011-06-28 20:00:02 vrany Exp $'
 !
 
-version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.45 2010-01-18 16:01:21 cg Exp $'
+version_SVN
+    ^ ' Id '
 ! !