From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 7 Mar 2003 05:21:43 +0000 (+0000)
Subject: Define the Perl_pp_i_modulo_1() only iff we have glibc.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fce2b89e3773f74f134cc299697e386f7d98f01f;p=p5sagit%2Fp5-mst-13.2.git

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)

p4raw-id: //depot/perl@18845
---

diff --git a/pp.c b/pp.c
index bb3ac68..ba6bf07 100644
--- a/pp.c
+++ b/pp.c
@@ -2471,12 +2471,12 @@ PP(pp_i_modulo_0)
      }
 }
 
+#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 @@ PP(pp_i_modulo_1)
 	  SETi( left % PERL_ABS(right) );
 	  RETURN;
      }
-#endif
 }
+#endif
 
 PP(pp_i_modulo)
 {