aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/patches/racket-fix-xform-issue.patch
blob: 0a1640ee5198035eb2a84c3d27f0caa980e8e8c0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
050cdb59839896b41431791f8ee0ef2564231b8f
Author:     Matthew Flatt <mflatt@racket-lang.org>
AuthorDate: Tue Mar 6 09:05:08 2018 -0700
Commit:     Matthew Flatt <mflatt@racket-lang.org>
CommitDate: Tue Mar 6 09:05:08 2018 -0700

Parent:     efb9a919fc ffi docs: clarification on `unsafe-socket->port`
Containing: master
Follows:    v5.0.1 (21612)

xform: avoid problems with `__signbitf128`

Closes #1962 and uses the suggested patch there, among other changes.

2 files changed, 6 insertions(+), 3 deletions(-)
racket/collects/compiler/private/xform.rkt | 2 +-
racket/src/racket/src/number.c             | 7 +++++--

diff --git a/racket/collects/compiler/private/xform.rkt b/racket/collects/compiler/private/xform.rkt
index 28a425c057..89ae848f9c 100644
--- a/collects/compiler/private/xform.rkt
+++ b/collects/compiler/private/xform.rkt
@@ -904,7 +904,7 @@
 
                strlen cos cosl sin sinl exp expl pow powl log logl sqrt sqrtl atan2 atan2l frexp
                isnan isinf fpclass signbit _signbit _fpclass __fpclassify __fpclassifyf __fpclassifyl
-	       _isnan __isfinited __isnanl __isnan __signbit __signbitf __signbitd __signbitl
+	       _isnan __isfinited __isnanl __isnan __signbit __signbitf __signbitd __signbitl __signbitf128
                __isinff __isinfl isnanf isinff __isinfd __isnanf __isnand __isinf __isinff128
                __inline_isnanl __inline_isnan __inline_signbit __inline_signbitf __inline_signbitd __inline_signbitl
                __builtin_popcount __builtin_clz __builtin_isnan __builtin_isinf __builtin_signbit
diff --git a/racket/src/racket/src/number.c b/racket/src/racket/src/number.c
index 71f42aaf3c..3bbad3ba83 100644
--- a/src/racket/src/number.c
+++ b/src/racket/src/number.c
@@ -1796,6 +1796,7 @@ double scheme_real_to_double(Scheme_Object *r)
 }
 
 XFORM_NONGCING static MZ_INLINE int minus_zero_p(double d)
+  XFORM_SKIP_PROC
 {
 #ifdef MZ_IS_NEG_ZERO
   return MZ_IS_NEG_ZERO(d);
@@ -1809,7 +1810,9 @@ int scheme_minus_zero_p(double d)
   return minus_zero_p(d);
 }
 
-static int rational_dbl_p(double f) {
+XFORM_NONGCING static int rational_dbl_p(double f)
+  XFORM_SKIP_PROC
+{
   return !(MZ_IS_NAN(f)
            || MZ_IS_INFINITY(f));
 }
@@ -1955,7 +1958,7 @@ real_p(int argc, Scheme_Object *argv[])
   return (SCHEME_REALP(o) ? scheme_true : scheme_false);
 }
 
-static int is_rational(const Scheme_Object *o)
+XFORM_NONGCING static int is_rational(const Scheme_Object *o)
 {
   if (SCHEME_FLOATP(o))
     return rational_dbl_p(SCHEME_FLOAT_VAL(o));