X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Falpha%2Fsystem.lisp;h=5ee4202978baa9dff86db08bd2fa535248c98c81;hb=c81c32ef8a737b0cc61d3c0c6a137cab39baac73;hp=eb9aa9a50d16ffeb38c2de1f771ff49179772242;hpb=08307967c71c580058a503d46aa087cfefcf8c69;p=sbcl.git

diff --git a/src/compiler/alpha/system.lisp b/src/compiler/alpha/system.lisp
index eb9aa9a..5ee4202 100644
--- a/src/compiler/alpha/system.lisp
+++ b/src/compiler/alpha/system.lisp
@@ -226,6 +226,10 @@
 (define-vop (halt)
   (:generator 1
     (inst gentrap halt-trap)))
+
+(define-vop (istream-memory-barrier)
+  (:generator 1
+    (inst imb)))
 
 ;;;; dynamic vop count collection support