Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 13:05:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Inline version of truncate

Browse source
This commit is contained in:
Justin Ethier 2017-04-17 10:27:23 +00:00
parent 7cc3532385
commit 8cb74fb075
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/base.sld
View file

@ -1073,10 +1073,8 @@
(define-c truncate (define-c truncate
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"
" return_exact_double_op(data, k, (int), z); " " return_exact_double_op(data, k, (int), z); "
;; TODO: this inline form is not stable yet, will crash the gcbench benchmark "(void *data, object ptr, object z)"
;"(void *data, object ptr, object z)" " return_exact_double_op_no_cps(data, ptr, (int), z);")
;" return_exact_double_op_no_cps(data, ptr, (int), z);"
)
(define-c round (define-c round
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"
" return_exact_double_op(data, k, round, z); ") " return_exact_double_op(data, k, round, z); ")