Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15: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
"(void *data, int argc, closure _, object k, object 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)"
;" return_exact_double_op_no_cps(data, ptr, (int), z);"
)
"(void *data, object ptr, object z)"
" return_exact_double_op_no_cps(data, ptr, (int), z);")
(define-c round
"(void *data, int argc, closure _, object k, object z)"
" return_exact_double_op(data, k, round, z); ")