1 ;;; -*- Package: ALPHA -*-
3 ;;; **********************************************************************
4 ;;; This code was written as part of the CMU Common Lisp project at
5 ;;; Carnegie Mellon University, and has been placed in the public domain.
9 ;;; **********************************************************************
11 ;;; This file contains the VM definition of predicate VOPs for the Alpha.
13 ;;; Written by Rob MacLachlan
15 ;;; Converted by Sean Hallgren.
24 ;;; The unconditional branch, emitted when we can't drop through to the desired
25 ;;; destination. Dest is the continuation we transfer control to.
30 (inst br zero-tn dest)))
33 ;;;; Conditional VOPs:
36 (:args (x :scs (any-reg descriptor-reg zero null))
37 (y :scs (any-reg descriptor-reg zero null)))
39 (:temporary (:scs (non-descriptor-reg)) temp)
46 (inst beq temp target)
47 (inst bne temp target))))