# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1309291722 -7200
# Node ID 5e3f0550143a5007e7a577511fbe7f85602a74c2
# Parent  791583d321c860d6b2954969a72a414fcfac6577
Jan's changes

diff -r 791583d321c8 -r 5e3f0550143a PrimaryNode.st
--- a/PrimaryNode.st	Tue Jun 28 22:06:14 2011 +0200
+++ b/PrimaryNode.st	Tue Jun 28 22:08:42 2011 +0200
@@ -12,7 +12,7 @@
 "{ Package: 'stx:libcomp' }"
 
 ParseNode subclass:#PrimaryNode
-	instanceVariableNames:'value'
+	instanceVariableNames:'value line charIndex'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Compiler-Support'
@@ -46,6 +46,22 @@
 
 !PrimaryNode methodsFor:'accessing'!
 
+charIndex
+    ^ charIndex
+!
+
+charIndex:something
+    charIndex := something.
+!
+
+line
+    ^ line
+!
+
+line:something
+    line := something.
+!
+
 type:t value:val
     type := t.
     value := val
@@ -124,10 +140,10 @@
 
 !PrimaryNode class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.29 2010-01-18 16:01:14 cg Exp $'
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.30 2011-06-28 20:08:42 vrany Exp $'
 !
 
-version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.29 2010-01-18 16:01:14 cg Exp $'
+version_SVN
+    ^ ' Id '
 ! !