boot11-alpha-linux.lisp 300 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11
; This file is only needed when compiling for the Alpha under Linux, to add the
; new Alpha-only ISTREAM-MEMORY-BARRIER VOP.
(in-package "ALPHA")

(define-instruction imb (segment)
  (:emitter (emit-pal segment 0 #x000086)))

(define-vop (c::istream-memory-barrier)
  (:generator 1
    (inst imb)))