--- a/ParseNode.st	Fri May 10 15:35:10 2013 +0200
+++ b/ParseNode.st	Fri May 10 15:35:14 2013 +0200
@@ -51,32 +51,6 @@
     ^ (self basicNew) type:t
 ! !
 
-!ParseNode class methodsFor:'code generation helpers'!
-
-codeLineNumber:nr on:aStream for:aCompiler
-    "generate lineNumber information"
-
-    "/ caveat: (currently) there is no separate lineNumber or symbol table;
-    "/ the line numbers are coded right into the instruction stream.
-    "/ This might change in the future.
-    "/ (It is not a problem speed wise: the Jitter just skips them.)
-
-    nr > 0 ifTrue:[
-        nr <= 255 ifTrue:[
-            aStream nextPut:#lineno.
-            aStream nextPut:nr
-        ] ifFalse:[
-            nr <= 16rFFFF ifTrue:[
-                aStream nextPut:#lineno16.
-                aStream nextPut:((nr bitShift:-8) bitAnd:16rFF).
-                aStream nextPut:(nr bitAnd:16rFF).
-            ]
-        ]
-    ]
-
-    "Created: 21.10.1996 / 14:42:27 / cg"
-! !
-
 !ParseNode methodsFor:'accessing'!
 
 enclosingBlock
@@ -191,7 +165,6 @@
     ^ type
 ! !
 
-
 !ParseNode methodsFor:'attributes access'!
 
 objectAttributes
@@ -241,10 +214,10 @@
     self codeOn:aStream inBlock:b for:aCompiler.
 !
 
-codeLineNumber:nr on:aStream for:aCompiler
+codeLineNumber:nr on:codeStream for:aCompiler
     "generate lineNumber information"
 
-    self class codeLineNumber:nr on:aStream for:aCompiler
+    aCompiler codeLineNumber:nr on:codeStream
 !
 
 codeOn:aStream inBlock:codeBlock for:aCompiler
@@ -290,9 +263,9 @@
     ].
 !
 
-emitSendLiteralIndex:litIndex numArgs:nargs line:lineNr on:aStream
+emitSendLiteralIndex:litIndex numArgs:nargs line:lineNr on:aStream for:aCompiler
     lineNr >= 255 ifTrue:[
-        self codeLineNumber: lineNr on: aStream for: nil.  
+        self codeLineNumber: lineNr on: aStream for:aCompiler.  
     ].
     (litIndex <= 255) ifTrue:[
         nargs <= 3 ifTrue:[
@@ -336,9 +309,9 @@
     ].
 !
 
-emitSuperSendLiteralIndex:litIndex classLiteralIndex:clsLitIndex numArgs:nargs line:lineNr on:aStream
+emitSuperSendLiteralIndex:litIndex classLiteralIndex:clsLitIndex numArgs:nargs line:lineNr on:aStream for:aCompiler
     lineNr >= 255 ifTrue:[
-        self codeLineNumber: lineNr on: aStream for: nil.  
+        self codeLineNumber: lineNr on: aStream for:aCompiler.  
     ].
     (litIndex <= 255 and:[clsLitIndex <= 255]) ifTrue:[
         aStream 
@@ -681,6 +654,6 @@
 !ParseNode class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.67 2013-04-13 09:40:12 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.68 2013-05-10 13:35:14 stefan Exp $'
 ! !