OpCase(move_cx):
{
BeamInstr next_pf = BeamCodeAddr(I[2]);
xb(BeamExtraData(I[0])) = I[1];
I += 2;
ASSERT(VALID_INSTR(next_pf));
GotoPF(next_pf);
}increment.fetch(Src) {
increment_reg_val = $Src;
}OpCase(jump_f):
{
BeamInstr next_pf = BeamCodeAddr(I[1]);
ASSERT(VALID_INSTR(*(I + (fb(BeamExtraData(I[0]))) + 0)));
I += fb(BeamExtraData(I[0])) + 0;;
Goto(*I);;
I += 1;
ASSERT(VALID_INSTR(next_pf));
GotoPF(next_pf);
}jump(Fail) {
$JUMP($Fail);
}
// From macros.tab
JUMP(Fail) {
//| -no_next
$SET_I_REL($Fail);
Goto(*I);
}OpCase(move_xy):
{
Eterm tmp_packed1 = BeamExtraData(I[0]);
BeamInstr next_pf = BeamCodeAddr(I[1]);
yb((tmp_packed1>>BEAM_TIGHT_SHIFT)) = xb(tmp_packed1&BEAM_TIGHT_MASK);
I += 1;
ASSERT(VALID_INSTR(next_pf));
GotoPF(next_pf);
}is_atom(Fail, Src) {
if (is_not_atom($Src)) {
$FAIL($Fail);
}
}
// From macros.tab
FAIL(Fail) {
//| -no_prefetch
$SET_I_REL($Fail);
Goto(*I);
}# In ops.tab
move2 x y x y
// In instrs.tab
move2(S1, D1, S2, D2) {
Eterm V1, V2;
V1 = $S1;
V2 = $S2;
$D1 = V1;
$D2 = V2;
}move_cx id 5
move_xx 3 0
move_xy 2 1OpCase(i_call_f):
{
ASSERT(VALID_INSTR(*(I+2)));
*E = (BeamInstr) (I+2);;
/* ... dispatch code intentionally left out ... */
}move X1=x Y1=y | move X2=x Y2=y | move X3=x Y3=y => \
move3 X1 Y1 X2 Y2 X3 Y3