sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

contrib: cl-simd: fix def-inline macro

Browse source 
Fixes #527.
This commit is contained in:
Marius Gerbershagen 2019-11-16 20:10:56 +01:00
parent 714c8e7ed6
commit 51b68e8b2a
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
contrib/cl-simd/ecl-sse-core.lisp
View file

@ -105,7 +105,12 @@
(defmacro def-inline (name mode arg-types ret-type call-str &rest flags)
`(eval-when (:compile-toplevel :load-toplevel)
(c::def-inline ',name ',mode ',arg-types ',ret-type ,call-str ,@flags)))
;; FIXME: We should think of a way to achieve this without using
;; internal compiler functions
(let ((c::*inline-information* (c::machine-inline-information c::+default-machine+)))
(c::def-inline ',name ',mode ',arg-types ',ret-type ,call-str ,@flags)
(setf (c::machine-inline-information c::+default-machine+)
c::*inline-information*))))
(defmacro def-intrinsic (name arg-types ret-type c-name
&key (export t) ret-arg reorder-args immediate-args defun-body)