From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Sun, 6 Jan 2008 11:05:27 +0000 (+0000)
Subject: Fix compilation issues and warnings with exotic configuration.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5186cc1225228b10ef0f8c5cf7d34fbcf0e84174;p=p5sagit%2Fp5-mst-13.2.git

Fix compilation issues and warnings with exotic configuration.

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

diff --git a/dump.c b/dump.c
index 1fdbb63..d397616 100644
--- a/dump.c
+++ b/dump.c
@@ -1580,7 +1580,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
 	    if (SvOOK(sv)) {
 		SvOOK_offset(sv, delta);
 		Perl_dump_indent(aTHX_ level, file,"  OFFSET = %"UVuf"\n",
-				 delta);
+				 (UV) delta);
 	    } else {
 		delta = 0;
 	    }
diff --git a/op.c b/op.c
index 4f8879e..c07a1a7 100644
--- a/op.c
+++ b/op.c
@@ -116,6 +116,7 @@ recursive, but it's recursive on basic blocks, not on tree nodes.
 void *
 Perl_Slab_Alloc(pTHX_ size_t sz)
 {
+    dVAR;
     /*
      * To make incrementing use count easy PL_OpSlab is an I32 *
      * To make inserting the link to slab PL_OpPtr is I32 **
@@ -127,7 +128,7 @@ Perl_Slab_Alloc(pTHX_ size_t sz)
 #ifdef PERL_DEBUG_READONLY_OPS
 	/* We need to allocate chunk by chunk so that we can control the VM
 	   mapping */
-	PL_OpPtr = mmap(0, PERL_SLAB_SIZE*sizeof(I32*), PROT_READ|PROT_WRITE,
+	PL_OpPtr = (I32**) mmap(0, PERL_SLAB_SIZE*sizeof(I32*), PROT_READ|PROT_WRITE,
 			MAP_ANON|MAP_PRIVATE, -1, 0);
 
 	DEBUG_m(PerlIO_printf(Perl_debug_log, "mapped %lu at %p\n",
@@ -159,7 +160,7 @@ Perl_Slab_Alloc(pTHX_ size_t sz)
 #ifdef PERL_DEBUG_READONLY_OPS
 	/* We remember this slab.  */
 	/* This implementation isn't efficient, but it is simple. */
-	PL_slabs = realloc(PL_slabs, sizeof(I32**) * (PL_slab_count + 1));
+	PL_slabs = (I32**) realloc(PL_slabs, sizeof(I32**) * (PL_slab_count + 1));
 	PL_slabs[PL_slab_count++] = PL_OpSlab;
 	DEBUG_m(PerlIO_printf(Perl_debug_log, "Allocate %p\n", PL_OpSlab));
 #endif
@@ -259,6 +260,7 @@ Perl_Slab_Free(pTHX_ void *op)
 	if (count) {
 	    while (count--) {
 		if (PL_slabs[count] == slab) {
+		    dVAR;
 		    /* Found it. Move the entry at the end to overwrite it.  */
 		    DEBUG_m(PerlIO_printf(Perl_debug_log,
 					  "Deallocate %p by moving %p from %lu to %lu\n",
diff --git a/pp.c b/pp.c
index 6026f24..374f355 100644
--- a/pp.c
+++ b/pp.c
@@ -2625,7 +2625,7 @@ PP(pp_i_modulo_1)
      /* This is the i_modulo with the workaround for the _moddi3 bug
       * in (at least) glibc 2.2.5 (the PERL_ABS() the workaround).
       * See below for pp_i_modulo. */
-     dVAR; dVAR; dSP; dATARGET; tryAMAGICbin(modulo,opASSIGN);
+     dVAR; dSP; dATARGET; tryAMAGICbin(modulo,opASSIGN);
      {
 	  dPOPTOPiirl;
 	  if (!right)