perl5.004 hints file (maint and dev paths)

[p5sagit/p5-mst-13.2.git] / malloc.c

diff --git a/malloc.c b/malloc.c
index 805cc4e..c87f3cd 100644 (file)
--- a/malloc.c
+++ b/malloc.c
@@ -1116,7 +1116,7 @@ realloc(void *mp, size_t nbytes)
 #endif
            ) goto hard_way;
        else if (incr == 0) {
-         inplace:
+         inplace_label:
 #ifdef RCHECK
                /*
                 * Record new allocated size of block and
@@ -1203,7 +1203,7 @@ realloc(void *mp, size_t nbytes)
            nmalloc[pow * BUCKETS_PER_POW2]++;
 #endif             
            *(cp - M_OVERHEAD) = pow * BUCKETS_PER_POW2; /* Fill index. */
-           goto inplace;
+           goto inplace_label;
        } else {
          hard_way:
            MUTEX_UNLOCK(&malloc_mutex);