[svn:parrot] r12434 - trunk/src/pmc

[particle]

Author: particle
Date: Wed Apr 26 06:27:42 2006
New Revision: 12434

Modified:
   trunk/src/pmc/bigint.pmc

Log:
[perl #39009] [PATCH] Declare n at the beginning of block in bigint.pmc
Courtesy of Ron Blaschke

Modified: trunk/src/pmc/bigint.pmc
==============================================================================
--- trunk/src/pmc/bigint.pmc    (original)
+++ trunk/src/pmc/bigint.pmc    Wed Apr 26 06:27:42 2006
@@ -180,9 +180,10 @@
 static void
 bigint_div_bigint_int(Interp *interpreter, PMC* self, INTVAL value, PMC *dest)
 {
+    int n;
     int_check_divide_zero(interpreter, value);
     /* this is mpz_fdiv_q */
-    int n = value < 0;
+    n = value < 0;
     if (n) {
         mpz_div_ui(BN(dest), BN(self), -value);
         mpz_neg(BN(dest), BN(dest));
@@ -199,8 +200,9 @@
 static void
 bigint_fdiv_bigint_int(Interp *interpreter, PMC* self, INTVAL value, PMC *dest)
 {
+    int n;
     int_check_divide_zero(interpreter, value);
-    int n = value < 0;
+    n = value < 0;
     if (n) {
         mpz_fdiv_q_ui(BN(dest), BN(self), -value);
         mpz_neg(BN(dest), BN(dest));
@@ -219,8 +221,9 @@
 static void
 bigint_mod_bigint_int(Interp *interpreter, PMC* self, INTVAL value, PMC *dest)
 {
+    int n;
     int_check_divide_zero(interpreter, value);
-    int n = value < 0;
+    n = value < 0;
     if (n) {
         mpz_mod_ui(BN(dest), BN(self), -value);
     }