From 498fa6f54ebe76a95a8ec5c9f5f656fbb4cde2d4 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 12 Apr 2017 18:01:33 -0400 Subject: [PATCH] Issue #194 - Disable inline define-c's for now --- scheme/base.sld | 8 +++++--- scheme/inexact.sld | 5 +++-- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/scheme/base.sld b/scheme/base.sld index 55f5fda5..0f6e281b 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -1069,12 +1069,14 @@ (define-c ceiling "(void *data, int argc, closure _, object k, object 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 "(void *data, int argc, closure _, object k, object z)" " return_exact_double_op(data, k, (int), z); " - "(void *data, object ptr, object z)" - " return_exact_double_op_no_cps(data, ptr, (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);" + ) (define-c round "(void *data, int argc, closure _, object k, object z)" " return_exact_double_op(data, k, round, z); ") diff --git a/scheme/inexact.sld b/scheme/inexact.sld index 07497920..09aba276 100644 --- a/scheme/inexact.sld +++ b/scheme/inexact.sld @@ -69,8 +69,9 @@ (define-c c-log "(void *data, int argc, closure _, object k, object z)" " return_inexact_double_op(data, k, log, z);" - "(void *data, object ptr, object z)" - " return_inexact_double_op_no_cps(data, ptr, log, z);" + ;; TODO: this inline form is not stable yet + ;"(void *data, object ptr, object z)" + ;" return_inexact_double_op_no_cps(data, ptr, log, z);" ) (define-c sin "(void *data, int argc, closure _, object k, object z)"