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

Issue #194 - Disable inline define-c's for now

Browse source
This commit is contained in:
Justin Ethier 2017-04-12 18:01:33 -04:00
parent a02af12dce
commit 498fa6f54e
2 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/base.sld
View file

@ -1069,12 +1069,14 @@
(define-c ceiling (define-c ceiling
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"
" return_exact_double_op(data, k, ceil, z); ") " return_exact_double_op(data, k, ceil, z); ")
;TODO: working on define-c:inline macro to make it less verbose to do this ;TODO: working on define-c:inline macro to make it less verbose to do this
(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); "
"(void *data, object ptr, object z)" ;; TODO: this inline form is not stable yet, will crash the gcbench benchmark
" 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 (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); ")

5
scheme/inexact.sld
View file

@ -69,8 +69,9 @@
(define-c c-log (define-c c-log
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"
" return_inexact_double_op(data, k, log, z);" " return_inexact_double_op(data, k, log, z);"
"(void *data, object ptr, object z)" ;; TODO: this inline form is not stable yet
" return_inexact_double_op_no_cps(data, ptr, log, z);" ;"(void *data, object ptr, object z)"
;" return_inexact_double_op_no_cps(data, ptr, log, z);"
) )
(define-c sin (define-c sin
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"