[perl #42509] [PATCH] Quiet some warnings under -ansi -pedantic

[via RT]

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


ndex: src/exec_save.c
===================================================================
--- src/exec_save.c     (revision 18179)
+++ src/exec_save.c     (working copy)
@@ -21,6 +21,7 @@
 #include <parrot/parrot.h>
 #include "parrot/exec.h"
 #include "exec_save.h"
+#include <strings.h>

 static void save_zero(FILE *fp);
 static void save_int(FILE *fp, int i);
Index: src/ops/io.ops
===================================================================
--- src/ops/io.ops      (revision 18179)
+++ src/ops/io.ops      (working copy)
@@ -509,7 +509,7 @@
   if ($3) {
     PIOOFF_T pos;
     pos = PIO_tell(interp, $3);
-    $1 = (INTVAL)(pos >> 32);
+    $1 = (INTVAL)(pos >> 31);
     $2 = (INTVAL)(pos & 0xffffffff);
   }
   goto NEXT();
Index: src/pmc_freeze.c
===================================================================
--- src/pmc_freeze.c    (revision 18179)
+++ src/pmc_freeze.c    (working copy)
@@ -196,7 +196,7 @@
 push_ascii_pmc(Parrot_Interp interp, IMAGE_IO *io, const PMC* v)
 {
     char buffer[128];
-    sprintf(buffer, "%p ", v);
+    sprintf(buffer, "%p ", (const void *)v);
     str_append(interp, io->image, buffer, strlen(buffer));
 }

Index: config/gen/platform/generic/env.c
===================================================================
--- config/gen/platform/generic/env.c   (revision 18179)
+++ config/gen/platform/generic/env.c   (working copy)
@@ -6,6 +6,9 @@
 ** Parrot_setenv()
 */

+#include <stdlib.h>
+#include <string.h>
+
 void
 Parrot_setenv(const char *name, const char *value)
 {