OP * Perl_pp_padsv {
    *PL_stack_sp++ = PL_curpad[PL_op->op_targ];
    return PL_op->op_next;
}
OP * Perl_pp_const {
    *PL_stack_sp++ = PL_op->op_sv;
    return PL_op->op_next;
}
OP * Perl_pp_multiply {
    SV *s1 = *--PL_stack_sp;
    SV *s2 = *--PL_stack_sp;
    SV *s3 = (a new or reused SV of some description);
    SvIVX(s3) = SvIVX(s1) * SvIVX(s2);
    *PL_stack_sp++ = s3;
    return PL_op->op_next;
}
OP * Perl_pp_add {
    SV *s1 = *--PL_stack_sp;
    SV *s2 = *--PL_stack_sp;
    SV *s3 = (a new or reused SV of some description);
    SvIVX(s3) = SvIVX(s1) + SvIVX(s2);
    *PL_stack_sp++ = s3;
    return PL_op->op_next;
}