push-simd-features.lisp

   1 (in-package :sb-vm)
   2
   3 (eval-when (:load-toplevel)
   4   (let ((res (sb-sys:%primitive sb-vm::%detect-simd/x86)))
   5 ;;    (format t "res is ~A~%" res)
   6     (if (/= (logand res #b001) 0) (pushnew :sse sb-vm::*backend-subfeatures*))
   7     (if (/= (logand res #b010) 0) (pushnew :sse2 sb-vm::*backend-subfeatures*))
   8     (if (/= (logand res #b100) 0) (pushnew :sse3 sb-vm::*backend-subfeatures*))))
   9