"{ 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
^ '$Id$'
!
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:: $'
! !