Change 18845 by [EMAIL PROTECTED] on 2003/03/07 05:21:43
Define the Perl_pp_i_modulo_1() only iff we have glibc.
(Stronger variant of "pp.c: Perl_pp_i_modulo_1 needs help
in non-glibc case", from Craig Berry)
Affected files ...
... //depot/perl/pp.c#373 edit
Differences ...
==== //depot/perl/pp.c#373 (text) ====
Index: perl/pp.c
--- perl/pp.c#372~18813~ Sun Mar 2 21:33:21 2003
+++ perl/pp.c Thu Mar 6 21:21:43 2003
@@ -2471,12 +2471,12 @@
}
}
+#ifdef __GLIBC__
STATIC
PP(pp_i_modulo_1)
{
-#ifdef __GLIBC__
/* This is the i_modulo with the workaround for the _moddi3 bug
- * in (at least) glibc 2.2.5 (the "right = -right" is the workaround).
+ * in (at least) glibc 2.2.5 (the PERL_ABS() the workaround).
* See below for pp_i_modulo. */
dSP; dATARGET; tryAMAGICbin(modulo,opASSIGN);
{
@@ -2486,8 +2486,8 @@
SETi( left % PERL_ABS(right) );
RETURN;
}
-#endif
}
+#endif
PP(pp_i_modulo)
{
End of Patch.
