forked from Lainports/opnsense-ports
75 lines
1.3 KiB
C
75 lines
1.3 KiB
C
--- racket/src/bool.c.orig
|
|
+++ racket/src/bool.c
|
|
@@ -203,6 +203,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
|
|
@@ -238,6 +241,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)
|
|
{
|
|
@@ -274,7 +284,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;
|
|
@@ -323,12 +339,24 @@
|
|
}
|
|
}
|
|
}
|
|
+#ifdef MZ_XFORM
|
|
+END_XFORM_SKIP;
|
|
+#endif
|
|
|
|
+#ifdef MZ_XFORM
|
|
+START_XFORM_SKIP;
|
|
+#endif
|
|
int scheme_eqv (Scheme_Object *obj1, Scheme_Object *obj2)
|
|
{
|
|
return (is_eqv(obj1, obj2) > 0);
|
|
}
|
|
+#ifdef MZ_XFORM
|
|
+END_XFORM_SKIP;
|
|
+#endif
|
|
|
|
+#ifdef MZ_XFORM
|
|
+START_XFORM_SKIP;
|
|
+#endif
|
|
XFORM_NONGCING int is_fast_equal (Scheme_Object *obj1, Scheme_Object *obj2, int for_chaperone)
|
|
{
|
|
Scheme_Type t1, t2;
|
|
@@ -414,6 +442,9 @@
|
|
|
|
return -1;
|
|
}
|
|
+#ifdef MZ_XFORM
|
|
+END_XFORM_SKIP;
|
|
+#endif
|
|
|
|
int is_slow_equal (Scheme_Object *obj1, Scheme_Object *obj2)
|
|
{
|