cvsuser 01/09/18 15:52:03
Modified: . interpreter.c
Log:
Added casts to appropriate types to make -Wall not complain on certain printf formats
Revision Changes Path
1.17 +4 -4 parrot/interpreter.c
Index: interpreter.c
===================================================================
RCS file: /home/perlcvs/parrot/interpreter.c,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -w -r1.16 -r1.17
--- interpreter.c 2001/09/18 21:03:27 1.16
+++ interpreter.c 2001/09/18 22:52:03 1.17
@@ -1,7 +1,7 @@
/* interpreter.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: interpreter.c,v 1.16 2001/09/18 21:03:27 thgibbs Exp $
+ * $Id: interpreter.c,v 1.17 2001/09/18 22:52:03 thgibbs Exp $
* Overview:
* The interpreter api handles running the operations
* Data Structure and Algorithms:
@@ -34,7 +34,7 @@
if (strncmp(OPCODE_FINGERPRINT, fp_data, fp_len)) {
fprintf(stderr, "Error: Opcode table fingerprint in bytecode does not
match interpreter!\n");
- fprintf(stderr, " Bytecode: %*s\n", -fp_len, fp_data);
+ fprintf(stderr, " Bytecode: %*s\n", (int)-fp_len, fp_data);
fprintf(stderr, " Interpreter: %s\n", OPCODE_FINGERPRINT);
exit(1);
}
@@ -71,7 +71,7 @@
int i;
if (code >= code_start && code < (code_start + code_size)) {
- fprintf(stderr, "PC=%ld; OP=%ld (%s)", code - code_start, *code,
op_names[code->i]);
+ fprintf(stderr, "PC=%ld; OP=%ld (%s)", (long)(code - code_start), code->i,
op_names[code->i]);
if (op_args[code->i]) {
fprintf(stderr, "; ARGS=(");
for(i = 0; i < op_args[code->i]; i++) {
@@ -83,7 +83,7 @@
fprintf(stderr, "\n");
}
else {
- fprintf(stderr, "PC=%ld; OP=<err>\n", code - code_start);
+ fprintf(stderr, "PC=%ld; OP=<err>\n", (long)(code - code_start));
}
}