--- a/IRTempAccess.st	Wed Feb 25 16:49:21 2009 +0000
+++ b/IRTempAccess.st	Mon Mar 30 14:47:18 2009 +0000
@@ -1,13 +1,39 @@
 "{ Package: 'stx:goodies/newcompiler' }"
 
 IRAccess subclass:#IRTempAccess
-	instanceVariableNames:''
+	instanceVariableNames:'kind level'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'NewCompiler-IR'
 !
 
 
+!IRTempAccess methodsFor:'accessing'!
+
+kind
+    ^ kind
+
+    "Modified: / 28-03-2009 / 20:50:34 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+kind:aSymbol
+
+    self 
+        assert:(#(MArg MVar BArg BVar OBArg OBVar Special) includes: aSymbol).
+
+    kind := aSymbol.
+
+    "Modified: / 30-03-2009 / 14:08:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+level
+    ^ level
+!
+
+level:aNumber
+    level := aNumber.
+! !
+
 !IRTempAccess methodsFor:'testing'!
 
 isSelf