"{ Package: 'ctu:ircompiler' }"

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

IRDup comment:'Instruction "pushDup"'
!


!IRDup methodsFor:'interpret'!

executeOn: interpreter

	^ interpreter pushDup
! !

!IRDup class methodsFor:'documentation'!

version
    ^ '$Id$'
!

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

version_SVN
    ^ '$Id::                                                                                                                        $'
! !