Medley of -Wall cleanups from Michael Schwen, Hugo van der Sanden,

and Abhijit Menon-Sen.

p4raw-id: //depot/perl@10321

1 files changed, 2 insertions, 0 deletions

diff --git a/malloc.c b/malloc.c
index 0345ef97d0..f73e22dfd4 100644
--- a/malloc.c
+++ b/malloc.c
@@ -1045,7 +1045,9 @@ Perl_malloc(register size_t nbytes)
 	    POW2_OPTIMIZE_ADJUST(nbytes);
 	    nbytes += M_OVERHEAD;
 	    nbytes = (nbytes + 3) &~ 3; 
+#if defined(PACK_MALLOC) && !defined(SMALL_BUCKET_VIA_TABLE)
 	  do_shifts:
+#endif
 	    shiftr = (nbytes - 1) >> START_SHIFT;
 	    bucket = START_SHIFTS_BUCKET;
 	    /* apart from this loop, this is O(1) */