--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/IRLine.st	Tue Dec 02 08:14:54 2008 +0000
@@ -0,0 +1,38 @@
+"{ Package: 'stx:goodies/newcompiler' }"
+
+IRInstruction subclass:#IRLine
+	instanceVariableNames:'line'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'NewCompiler-IR'
+!
+
+
+!IRLine methodsFor:'accessing'!
+
+line
+    ^ line
+
+    "Created: / 02-12-2008 / 08:58:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+line:anInteger
+    line := anInteger.
+
+    "Created: / 02-12-2008 / 08:58:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!IRLine methodsFor:'interpret'!
+
+executeOn: interpreter
+
+        ^ interpreter line: line
+
+    "Created: / 02-12-2008 / 08:59:28 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!IRLine class methodsFor:'documentation'!
+
+version
+    ^'$Id$'
+! !