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

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-04-04 09:11:07 +00:00
parent a4319fd48d
commit e5d63a61d5
2 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/base.sld
View file

@ -1071,7 +1071,9 @@
" return_exact_double_op(data, k, ceil, z); ") " return_exact_double_op(data, k, ceil, z); ")
(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)"
" unboxed_inexact_double_op(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); ")

6
scheme/inexact.sld
View file

@ -69,13 +69,7 @@
(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);"
; TODO: experimenting with how an inline definition might look.
; need something that can both work within the same module and
; also when imported into another module.
;; Inline arguments:
"(void *data, object ptr, object z)" "(void *data, object ptr, object z)"
;; must always return an object
;; Inline body:
" unboxed_inexact_double_op(data, ptr, log, z);" " unboxed_inexact_double_op(data, ptr, log, z);"
) )
(define-c sin (define-c sin