[Patch] Fix for op write

[David M. Lloyd]

This patch fixes a pointer deref problem if sizeof(INTVAL) >
sizeof(opcode_t).

Index: core.ops
===================================================================
RCS file: /home/perlcvs/parrot/core.ops,v
retrieving revision 1.67
diff -u -r1.67 core.ops
--- core.ops    2 Jan 2002 00:55:03 -0000       1.67
+++ core.ops    2 Jan 2002 16:25:55 -0000
@@ -461,8 +461,8 @@
 =cut

 op write(i|ic, i|ic) {
-  INTVAL * i = &($2);
-  write($1, i, sizeof(INTVAL));
+  INTVAL i = (INTVAL)$2;
+  write($1, &i, sizeof(INTVAL));
   goto NEXT();
 }

- D

<[EMAIL PROTECTED]>