diff options
Diffstat (limited to 'development/racket/xform-errors-converting-fix.patch')
-rw-r--r-- | development/racket/xform-errors-converting-fix.patch | 57 |
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 * |