Author: chromatic
Date: Sat Apr 14 10:31:01 2007
New Revision: 18204
Modified:
trunk/config/gen/platform/generic/env.c
trunk/src/exec_save.c
trunk/src/ops/io.ops
trunk/src/pmc_freeze.c
Log:
Quiet some warnings under -ansi -pedantic (Steve Peters, RT #42509).
Modified: trunk/config/gen/platform/generic/env.c
==============================================================================
--- trunk/config/gen/platform/generic/env.c (original)
+++ trunk/config/gen/platform/generic/env.c Sat Apr 14 10:31:01 2007
@@ -6,6 +6,9 @@
** Parrot_setenv()
*/
+#include <stdlib.h>
+#include <string.h>
+
void
Parrot_setenv(const char *name, const char *value)
{
Modified: trunk/src/exec_save.c
==============================================================================
--- trunk/src/exec_save.c (original)
+++ trunk/src/exec_save.c Sat Apr 14 10:31:01 2007
@@ -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);
Modified: trunk/src/ops/io.ops
==============================================================================
--- trunk/src/ops/io.ops (original)
+++ trunk/src/ops/io.ops Sat Apr 14 10:31:01 2007
@@ -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();
Modified: trunk/src/pmc_freeze.c
==============================================================================
--- trunk/src/pmc_freeze.c (original)
+++ trunk/src/pmc_freeze.c Sat Apr 14 10:31:01 2007
@@ -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));
}
