mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-08 13:37:33 +02:00
Inline log and sin
This commit is contained in:
parent
396888f1b8
commit
719cbaec2f
1 changed files with 5 additions and 4 deletions
|
@ -69,13 +69,14 @@
|
||||||
(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: this inline form is not stable yet
|
"(void *data, object ptr, object z)"
|
||||||
;"(void *data, object ptr, object z)"
|
" return_inexact_double_op_no_cps(data, ptr, log, 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)"
|
||||||
" return_inexact_double_op(data, k, sin, z);")
|
" return_inexact_double_op(data, k, sin, z);"
|
||||||
|
"(void *data, object ptr, object z)"
|
||||||
|
" return_inexact_double_op_no_cps(data, ptr, sin, z);")
|
||||||
(define-c sqrt
|
(define-c sqrt
|
||||||
"(void *data, int argc, closure _, object k, object z)"
|
"(void *data, int argc, closure _, object k, object z)"
|
||||||
" return_inexact_double_op(data, k, sqrt, z);")
|
" return_inexact_double_op(data, k, sqrt, z);")
|
||||||
|
|
Loading…
Add table
Reference in a new issue