: insn ( bitspec -- ) bitfield (insn) ; inline
! Branching instructions
-GENERIC# (B) 1 ( target l -- )
+GENERIC#: (B) 1 ( target l -- )
M: integer (B) { 24 { 1 25 } { 0 26 } { 1 27 } 0 } insn ;
: sinsn ( bitspec -- )
bitfield S> [ 20 2^ bitor ] when (insn) ; inline
-GENERIC# shift-imm/reg 2 ( shift-imm/Rs Rm shift -- n )
+GENERIC#: shift-imm/reg 2 ( shift-imm/Rs Rm shift -- n )
M: integer shift-imm/reg ( shift-imm Rm shift -- n )
{ { 0 4 } 5 { register 0 } 7 } bitfield ;
<PRIVATE
-GENERIC# (BX) 1 ( Rm l -- )
+GENERIC#: (BX) 1 ( Rm l -- )
M: register-class (BX) ( Rm l -- )
{