Lines Matching refs:opcode
593 # safeHere: create safe here delimiter and modify opcode and argument
608 my( $addr1, $addr2, $negated, $opcode, $arg, $fl ) = @_;
619 if( $opcode eq '' ){
622 } elsif( $opcode =~ s/-X-/$arg/e ){
623 $Code .= "$cond$opcode\n";
625 } elsif( $opcode =~ /TheEnd/ ){
626 safeHere( \$opcode, \$arg );
627 $Code .= "$cond$opcode$arg";
630 $Code .= "$cond$opcode\n";
638 my( $addr1, $addr2, $negated, $opcode, $path, $fl ) = @_;
640 Emit( $addr1, $addr2, $negated, $opcode, $path, $fl );
647 my( $addr1, $addr2, $negated, $opcode, $lab, $fl ) = @_;
671 my( $addr1, $addr2, $negated, $opcode, $arg, $fl ) = @_;
673 Emit( $addr1, $addr2, $negated, $opcode, $arg, $fl );
679 my( $addr1, $addr2, $negated, $opcode, $arg, $fl ) = @_;
683 $rc = Emit( $addr1, $addr2, $negated, $opcode, $arg, $fl );
694 my( $addr1, $addr2, $negated, $opcode, $lab, $fl ) = @_;
707 $opcode =~ s/XXX/$h/e;
708 Emit( $addr1, $addr2, $negated, $opcode, '', $fl );
714 my( $addr1, $addr2, $negated, $opcode, $arg, $fl ) = @_;
720 $opcode = 'if( $icnt =~ /E0$/ )' . $opcode;
725 safeHere( \$opcode, \$arg );
726 $Code .= "$kwd( $addr1 ){\n $opcode$arg}\n";
734 my( $addr1, $addr2, $negated, $opcode, $arg, $fl ) = @_;