Home
last modified time | relevance | path

Searched refs:myopcode (Results 1 – 1 of 1) sorted by relevance

/openbsd-src/gnu/usr.bin/perl/ext/Opcode/
H A DOpcode.xs167 const int myopcode = SvIV(bitspec); in set_opset_bits() local
168 const int offset = myopcode >> 3; in set_opset_bits()
169 const int bit = myopcode & 0x07; in set_opset_bits()
170 if (myopcode >= PL_maxo || myopcode < 0) in set_opset_bits()
171 croak("panic: opcode \"%s\" value %d is invalid", opname, myopcode); in set_opset_bits()
174 myopcode, offset, bit, opname, (on)?"on":"off"); in set_opset_bits()
203 int myopcode = 0; in opmask_add() local
216 myopcode += 8; in opmask_add()
219 for (j=0; j < 8 && myopcode < PL_maxo; ) in opmask_add()
220 PL_op_mask[myopcode++] |= bits & (1 << j++); in opmask_add()
[all …]