"{ Package: 'cvut: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$'
!

version_CVS
    ^ '§Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRLine.st,v 1.3 2009/10/08 12:03:44 fm Exp §'
!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !