6 ;;; The unconditional branch, emitted when we can't drop through to the desired
7 ;;; destination. Dest is the continuation we transfer control to.
12 (inst b dest :nullify t)))
15 ;;;; Generic conditional VOPs
17 ;;; The generic conditional branch, emitted immediately after test
18 ;;; VOPs that only set flags.
20 (define-vop (branch-if)
21 (:info dest flags not-p)
22 (:ignore dest flags not-p)
24 (error "BRANCH-IF not yet implemented")))
26 (!def-vm-support-routine
27 convert-conditional-move-p (node dst-tn x-tn y-tn)
28 (declare (ignore node dst-tn x-tn y-tn))
32 ;;;; Conditional VOPs:
35 (:args (x :scs (any-reg descriptor-reg zero null))
36 (y :scs (any-reg descriptor-reg zero null)))
42 (inst bc := not-p x y target)))