mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-12 12:21:15 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fix inliners for EXP and SIN

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-06-20 16:57:35 +02:00
parent 14cf3f7029
commit 04874bbc7a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/sysfun.lsp
View file

@ -530,7 +530,7 @@
(def-inline abs :always (t t) t "ecl_abs(#0,#1)")
(def-inline exp :always (t t) t "ecl_exp(#0,#1)")
(def-inline exp :always (t) t "ecl_exp(#0)")
(def-inline expt :always (t t) t "ecl_expt(#0,#1)")
(def-inline expt :always ((integer 2 2) (integer 0 29)) :fixnum "(1<<(#1))")
@ -546,7 +546,7 @@
(def-inline sqrt :always ((single-float 0.0 *)) :float "(float)sqrt((double)(#0))")
(def-inline sqrt :always ((short-float 0.0 *)) :float "(float)sqrt((double)(#0))")
(def-inline sin :always (number) number "sin(#0)")
(def-inline sin :always (number) number "ecl_sin(#0)")
(def-inline sin :always (fixnum-float) :double "sin((double)(#0))" :exact-return-type t)
(def-inline sin :always (fixnum-float) :float "(float)sin((double)(#0))" :exact-return-type t)