[PATCH] Fix 'basic' test 1 for sizeof(opcode_t) != sizeof(INTVAL)

[David M. Lloyd]

Just as the subject says.

Index: core.ops
===================================================================
RCS file: /home/perlcvs/parrot/core.ops,v
retrieving revision 1.72
diff -u -r1.72 core.ops
--- core.ops    9 Jan 2002 17:24:11 -0000       1.72
+++ core.ops    10 Jan 2002 21:47:29 -0000
@@ -253,7 +253,7 @@
 =cut

 inline op print(in INT) {
-  printf(INTVAL_FMT, $1);
+  printf(INTVAL_FMT, (INTVAL)$1);
   goto NEXT();
 }

@@ -301,7 +301,7 @@
                 break;
        default: file = (FILE *)$1;
   }
-  fprintf(file, INTVAL_FMT, $2);
+  fprintf(file, INTVAL_FMT, (INTVAL)$2);
   goto NEXT();
 }



- D

<[EMAIL PROTECTED]>