X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Fpred.lisp;h=d08b417a78c5bfcd82f7d37c92cdd019356a6a14;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=88e5fa7d6274f60bdcbfc9bcd1484ad1303303a5;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/compiler/alpha/pred.lisp b/src/compiler/alpha/pred.lisp
index 88e5fa7..d08b417 100644
--- a/src/compiler/alpha/pred.lisp
+++ b/src/compiler/alpha/pred.lisp
@@ -20,6 +20,24 @@
   (:info dest)
   (:generator 5
     (inst br zero-tn dest)))
+
+
+;;;; Generic conditional VOPs
+
+;;; The generic conditional branch, emitted immediately after test
+;;; VOPs that only set flags.
+
+(define-vop (branch-if)
+  (:info dest flags not-p)
+  (:ignore dest flags not-p)
+  (:generator 0
+     (error "BRANCH-IF not yet implemented")))
+
+(!def-vm-support-routine
+    convert-conditional-move-p (node dst-tn x-tn y-tn)
+  (declare (ignore node dst-tn x-tn y-tn))
+  nil)
+
 
 ;;;; conditional VOPs