"{ Package: 'cvut:stx/goodies/newcompiler' }"

IRInstruction subclass:#IRPop
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'NewCompiler-IR'
!

IRPop comment:'Instruction "popTop"'
!


!IRPop methodsFor:'interpret'!

executeOn: interpreter

	^ interpreter popTop
! !

!IRPop methodsFor:'testing'!

isPop
	^true
! !

!IRPop class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRPop.st,v 1.3 2009/10/08 11:57:32 fm Exp $'
!

version_CVS
    ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRPop.st,v 1.3 2009/10/08 11:57:32 fm Exp $'
!

version_SVN
    ^'§Id: IRPop.st 13 2009-04-16 12:48:33Z vranyj1 §'
! !