summaryrefslogtreecommitdiffstats
path: root/development/racket/xform-errors-converting-fix.patch
diff options
context:
space:
mode:
Diffstat (limited to 'development/racket/xform-errors-converting-fix.patch')
-rw-r--r--development/racket/xform-errors-converting-fix.patch57
1 files changed, 0 insertions, 57 deletions
diff --git a/development/racket/xform-errors-converting-fix.patch b/development/racket/xform-errors-converting-fix.patch
deleted file mode 100644
index 687d653f4e..0000000000
--- a/development/racket/xform-errors-converting-fix.patch
+++ /dev/null
@@ -1,57 +0,0 @@
-diff -Naur racket-6.3/src/racket/src/bool.c my-racket-6.3/src/racket/src/bool.c
---- racket-6.3/src/racket/src/bool.c 2015-10-16 17:00:55.000000000 -0400
-+++ my-racket-6.3/src/racket/src/bool.c 2016-01-23 12:04:20.710628127 -0500
-@@ -202,6 +202,9 @@
- return SAME_OBJ(obj1, obj2);
- }
-
-+#ifdef MZ_XFORM
-+START_XFORM_SKIP;
-+#endif
- #ifdef MZ_LONG_DOUBLE
- XFORM_NONGCING static MZ_INLINE int mz_long_double_eqv(long_double a, long_double b)
- {
-@@ -239,6 +242,10 @@
- # endif
- }
- #endif
-+
-+#ifdef MZ_XFORM
-+START_XFORM_SKIP;
-+#endif
- XFORM_NONGCING static MZ_INLINE int double_eqv(double a, double b)
- {
- # ifndef NAN_EQUALS_ANYTHING
-@@ -419,6 +426,9 @@
-
- return -1;
- }
-+#ifdef MZ_XFORM
-+END_XFORM_SKIP;
-+#endif
-
- int is_slow_equal (Scheme_Object *obj1, Scheme_Object *obj2)
- {
-diff -Naur racket-6.3/src/racket/src/number.c my-racket-6.3/src/racket/src/number.c
---- racket-6.3/src/racket/src/number.c 2015-10-16 17:00:55.000000000 -0400
-+++ my-racket-6.3/src/racket/src/number.c 2016-01-23 12:05:08.076767488 -0500
-@@ -1917,6 +1917,9 @@
- return (is_rational(argv[0]) ? scheme_true : scheme_false);
- }
-
-+#ifdef MZ_XFORM
-+START_XFORM_SKIP;
-+#endif
- XFORM_NONGCING static int double_is_integer(double d)
- {
- # ifdef NAN_EQUALS_ANYTHING
-@@ -1943,6 +1946,9 @@
-
- return 0;
- }
-+#ifdef MZ_XFORM
-+END_XFORM_SKIP;
-+#endif
-
-
- static Scheme_Object *