From 098f3c14711de24cfeb3ce6a74bca320fd8e2aa1 Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Tue, 30 Sep 2014 21:12:37 -0700 Subject: [PATCH] Add alien interface to scalbn. --- src/code/irrat.lisp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index c07e9793e..8ddd41381 100644 --- a/src/code/irrat.lisp +++ b/src/code/irrat.lisp @@ -91,6 +91,12 @@ (def-math-rtn ("fdlibm_log1p" %log1p) 1) (def-math-rtn ("fdlibm_expm1" %expm1) 1) +(declaim (inline %scalbn)) +(export '%scalbn) +(alien:def-alien-routine ("fdlibm_scalbn" %scalbn) c-call:double + (x double-float) + (n c-call:int)) + ;; These are needed for use by byte-compiled files. But don't use ;; these with sse2 since we don't support using the x87 instructions ;; here. -- GitLab