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

Remove bogus inline forms for FLOOR and TRUNCATE

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-08 14:26:52 +01:00
parent dcbf547822
commit c85f220a46
2 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/sysfun.lsp
View file

@ -795,6 +795,7 @@
(proclaim-function floor (real *) (values integer real) :no-side-effects t)
(def-inline floor :always (t) (values &rest t) "ecl_floor1(#0)")
(def-inline floor :always (t t) (values &rest t) "ecl_floor2(#0,#1)")
#+(or) ; does not work well, no multiple values
(def-inline floor :always (fixnum fixnum) :fixnum
"@01;(#0>=0&&#1>0?(#0)/(#1):ecl_ifloor(#0,#1))")
@ -805,6 +806,7 @@
(proclaim-function truncate (real *) (values integer real) :no-side-effects t)
(def-inline truncate :always (t) (values &rest t) "ecl_truncate1(#0)")
(def-inline truncate :always (t t) (values &rest t) "ecl_truncate2(#0,#1)")
#+(or) ; does not work well, no multiple values
(def-inline truncate :always (fixnum-float) :fixnum "(cl_fixnum)(#0)")
(proclaim-function round (real *) (values integer real) :no-side-effects t)

2
src/new-cmp/sysfun.lsp
View file

@ -1627,6 +1627,7 @@
(def-inline floor :always (t) (values &rest t) "ecl_floor1(#0)")
(def-inline floor :always (t t) (values &rest t) "ecl_floor2(#0,#1)")
#+(or) ; does not work well, no multiple values
(def-inline floor :always (fixnum fixnum) :fixnum
"@01;(#0>=0&&#1>0?(#0)/(#1):ecl_ifloor(#0,#1))")
@ -1635,6 +1636,7 @@
(def-inline truncate :always (t) (values &rest t) "ecl_truncate1(#0)")
(def-inline truncate :always (t t) (values &rest t) "ecl_truncate2(#0,#1)")
#+(or) ; does not work well, no multiple values
(def-inline truncate :always (fixnum-float) :fixnum "(cl_fixnum)(#0)")
(def-inline round :always (t) (values &rest t) "ecl_round1(#0)")