Lines Matching refs:opcode
16 # each opcode...
18 { my $opcode = $AUTOLOAD;
20 die "more than 4 arguments passed to $opcode" if ($#_>3);
22 $opcode =~ s/.*:://;
23 if ($opcode =~ /^push/) { $stack+=4; }
24 elsif ($opcode =~ /^pop/) { $stack-=4; }
26 &generic($opcode,@_) or die "undefined subroutine \&$AUTOLOAD";
30 { my $opcode=shift;
32 if ($#_==-1) { push(@out,"\t$opcode\n"); }
33 else { push(@out,"\t$opcode\t".join(',',@_)."\n"); }