From f40ec725b7eab8dee2f36f818fd6449182fbd5b9 Mon Sep 17 00:00:00 2001 From: Joe Marcus Clarke Date: Fri, 4 Apr 2003 04:55:14 +0000 Subject: Work around what I believe to be a broken implementation of isfinite() in -CURRENT that was causing a numerical overflow in apps such as GnuCash. PR: 50089 --- lang/guile/files/patch-libguile_numbers.c | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 lang/guile/files/patch-libguile_numbers.c (limited to 'lang/guile/files') diff --git a/lang/guile/files/patch-libguile_numbers.c b/lang/guile/files/patch-libguile_numbers.c new file mode 100644 index 000000000000..2ba35040ab81 --- /dev/null +++ b/lang/guile/files/patch-libguile_numbers.c @@ -0,0 +1,22 @@ +--- libguile/numbers.c.orig Thu Apr 3 23:52:25 2003 ++++ libguile/numbers.c Thu Apr 3 23:52:41 2003 +@@ -89,8 +89,8 @@ + /* Return true if X is not infinite and is not a NaN + Dirk:FIXME:: Since IS_INF is broken, this test does not work if x == 0 + */ +-#ifndef isfinite +-#define isfinite(x) (!IS_INF (x) && (x) == (x)) ++#ifndef xxx_isfinite ++#define xxx_isfinite(x) (!IS_INF (x) && (x) == (x)) + #endif + + +@@ -4071,7 +4071,7 @@ + if (SCM_FIXABLE (lu)) { + return SCM_MAKINUM (lu); + #ifdef SCM_BIGDIG +- } else if (isfinite (u)) { ++ } else if (xxx_isfinite (u)) { + return scm_dbl2big (u); + #endif + } else { -- cgit v1.2.3