diff options
| author | Joe Marcus Clarke <marcus@FreeBSD.org> | 2003-04-04 04:55:14 +0000 |
|---|---|---|
| committer | Joe Marcus Clarke <marcus@FreeBSD.org> | 2003-04-04 04:55:14 +0000 |
| commit | f40ec725b7eab8dee2f36f818fd6449182fbd5b9 (patch) | |
| tree | 598440829da949429aa0d4824e29d10852687370 /lang/guile/files | |
| parent | Update location of ports after repo copy move from graphics to multimedia cat... (diff) | |
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
Diffstat (limited to 'lang/guile/files')
| -rw-r--r-- | lang/guile/files/patch-libguile_numbers.c | 22 |
1 files changed, 22 insertions, 0 deletions
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 { |