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]>