--- a/VariableNode.st	Fri Oct 11 20:26:37 1996 +0200
+++ b/VariableNode.st	Sat Oct 12 19:58:07 1996 +0200
@@ -253,7 +253,6 @@
         ^ self
     ].
     (type == #GlobalVariable) ifTrue:[
-"/        aStream nextPut:#pushGlobal; nextPut:name.
         litIndex := aCompiler addLiteral:name asSymbol.
         (aCompiler isSpecialGlobalSymbol:name) ifTrue:[
             aStream nextPut:#pushSpecialGlobal; nextPut:(aCompiler specialGlobalCodeFor:name).
@@ -265,21 +264,16 @@
         ] ifFalse:[
             aStream nextPut:#pushGlobalL; nextPut:litIndex; nextPut:0
         ].
-        "slot for generation and cell address (6 byte)"
-        aStream next:6 put:0.
         ^ self
     ].
     ((type == #ClassVariable) 
     or:[type == #PrivateClass]) ifTrue:[
-"/        aStream nextPut:#pushClassVar; nextPut:(selfClass name , ':' , name) asSymbol.
         litIndex := aCompiler addLiteral:(selfClass name , ':' , name) asSymbol.
         litIndex < 256 ifTrue:[
             aStream nextPut:#pushClassVarS; nextPut:litIndex
         ] ifFalse:[
             aStream nextPut:#pushClassVarL; nextPut:litIndex; nextPut:0
         ].
-        "slot for generation and cell address (6 byte)"
-        aStream next:6 put:0.
         ^ self
     ].
     (type == #BlockVariable) ifTrue:[
@@ -373,27 +367,21 @@
         ^ self
     ].
     (type == #GlobalVariable) ifTrue:[
-"/        aStream nextPut:#storeGlobal; nextPut:name.
         litIndex := aCompiler addLiteral:name asSymbol.
         litIndex < 256 ifTrue:[
             aStream nextPut:#storeGlobalS; nextPut:litIndex
         ] ifFalse:[
             aStream nextPut:#storeGlobalL; nextPut:litIndex; nextPut:0
         ].
-        "slot for generation and cell address (6 byte)"
-        aStream next:6 put:0.
         ^ self
     ].
     (type == #ClassVariable) ifTrue:[
-"/        aStream nextPut:#storeClassVar; nextPut:(selfClass name , ':' , name) asSymbol.
         litIndex := aCompiler addLiteral:(selfClass name , ':' , name) asSymbol.
         litIndex < 256 ifTrue:[
             aStream nextPut:#storeClassVarS; nextPut:litIndex
         ] ifFalse:[
             aStream nextPut:#storeClassVarL; nextPut:litIndex; nextPut:0
         ].
-        "slot for generation and cell address (6 byte)"
-        aStream next:6 put:0.
         ^ self
     ].
     (type == #ClassInstanceVariable) ifTrue:[
@@ -492,8 +480,6 @@
 !VariableNode methodsFor:'queries'!
 
 canReuseAsArg:anotherNode
-    |otherValue|
-
     anotherNode isVariable ifTrue:[
         anotherNode type ~~ type ifTrue:[^ false].
 
@@ -544,5 +530,5 @@
 !VariableNode  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.20 1996-10-11 18:26:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.21 1996-10-12 17:58:07 cg Exp $'
 ! !