[perl #39009] [PATCH] Declare n at the beginning of block in bigint.pmc

[via RT]

# New Ticket Created by  Ron Blaschke 
# Please include the string:  [perl #39009]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=39009 >


It's gotta be C.

Index: parrot/src/pmc/bigint.pmc
===================================================================
--- parrot/src/pmc/bigint.pmc   (revision 12433)
+++ parrot/src/pmc/bigint.pmc   (working copy)
@@ -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);
     }