changeset 1 | 0dd36941955f |
child 23 | 377bc46cad12 |
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/IRDup.st Wed Jun 11 14:54:42 2008 +0000 @@ -0,0 +1,25 @@ +"{ Package: 'stx:goodies/newcompiler' }" + +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$' +! !