! Copyright (C) 2005 Slava Pestov. ! See http://factor.sf.net/license.txt for BSD license. IN: compiler-backend USING: assembler compiler kernel kernel-internals math math-internals memory namespaces words ; : >3-imm< ( vop -- out1 in2 in1 ) [ 0 vop-out v>operand ] keep [ 1 vop-in v>operand ] keep 0 vop-in ; : >3-vop< ( vop -- out1 in1 in2 ) >3-imm< v>operand swap ; : simple-overflow ( vop inv word -- ) >r >r