mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-21 09:10:41 -07:00
Code Issues Projects Releases Packages Wiki Activity

Added new inline expansions for MOD and REM with generic arguments.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-08 21:44:44 +02:00
parent 6b936383c3
commit 5178118517
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/sysfun.lsp
View file

@ -803,10 +803,12 @@
(def-inline round :always (t t) (values integer real) "ecl_round2(#0)")
(proclaim-function mod (real real) real :no-side-effects t)
(def-inline mod :always (t t) t "(ecl_floor2(#0,#1),cl_env_copy->values[1])")
(def-inline mod :always (fixnum fixnum) :fixnum
"@01;(#0>=0&&#1>0?(#0)%(#1):ecl_imod(#0,#1))")
(proclaim-function rem (real real) real :no-side-effects t)
(def-inline rem :always (t t) t "(ecl_truncate2(#0,#1),cl_env_copy->values[1])")
(def-inline rem :always (fixnum fixnum) :fixnum "(#0)%(#1)")
(proclaim-function decode-float (t) (values t t t))