diff options
| author | Jimmy Olgeni <olgeni@FreeBSD.org> | 2014-01-27 12:37:06 +0000 |
|---|---|---|
| committer | Jimmy Olgeni <olgeni@FreeBSD.org> | 2014-01-27 12:37:06 +0000 |
| commit | 8366f4f5953f9acc5dd5e58769c0a0e02b670c70 (patch) | |
| tree | 8554a4c1c9851c66a6e9dff87bc84559e9997fa6 /lang/racket-minimal/files/patch-racket_src_bool.c | |
| parent | - Support stage (diff) | |
- Upgrade Racket to version 5.92.
- Unbreak on FreeBSD 10.
- racket-textual is renamed to racket-minimal upstream.
- Fix COMMENT.
Notes
Notes:
svn path=/head/; revision=341390
Diffstat (limited to 'lang/racket-minimal/files/patch-racket_src_bool.c')
| -rw-r--r-- | lang/racket-minimal/files/patch-racket_src_bool.c | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/lang/racket-minimal/files/patch-racket_src_bool.c b/lang/racket-minimal/files/patch-racket_src_bool.c new file mode 100644 index 000000000000..13b79a6d7af4 --- /dev/null +++ b/lang/racket-minimal/files/patch-racket_src_bool.c @@ -0,0 +1,53 @@ + +$FreeBSD$ + +--- racket/src/bool.c.orig ++++ racket/src/bool.c +@@ -198,6 +198,9 @@ + } + + #ifdef MZ_LONG_DOUBLE ++#ifdef MZ_XFORM ++START_XFORM_SKIP; ++#endif + XFORM_NONGCING static MZ_INLINE int mz_long_double_eqv(long_double a, long_double b) + { + # ifndef NAN_EQUALS_ANYTHING +@@ -233,6 +236,13 @@ + return 1; + # endif + } ++#ifdef MZ_XFORM ++END_XFORM_SKIP; ++#endif ++#endif ++ ++#ifdef MZ_XFORM ++START_XFORM_SKIP; + #endif + XFORM_NONGCING static MZ_INLINE int double_eqv(double a, double b) + { +@@ -269,7 +279,13 @@ + return 1; + # endif + } ++#ifdef MZ_XFORM ++END_XFORM_SKIP; ++#endif + ++#ifdef MZ_XFORM ++START_XFORM_SKIP; ++#endif + XFORM_NONGCING static int is_eqv(Scheme_Object *obj1, Scheme_Object *obj2) + { + Scheme_Type t1, t2; +@@ -317,6 +333,9 @@ + { + return (is_eqv(obj1, obj2) > 0); + } ++#ifdef MZ_XFORM ++END_XFORM_SKIP; ++#endif + + int scheme_equal (Scheme_Object *obj1, Scheme_Object *obj2) + { |