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));
       }
   }
   
  
  
  

Reply via email to