cvsuser 04/02/23 03:43:25
Modified: src packfile.c
Log:
try to fix packfile bug on Tru64
Revision Changes Path
1.140 +2 -2 parrot/src/packfile.c
Index: packfile.c
===================================================================
RCS file: /cvs/public/parrot/src/packfile.c,v
retrieving revision 1.139
retrieving revision 1.140
diff -u -w -r1.139 -r1.140
--- packfile.c 22 Feb 2004 21:06:54 -0000 1.139
+++ packfile.c 23 Feb 2004 11:43:24 -0000 1.140
@@ -2,7 +2,7 @@
Copyright (C) 2001-2002 Gregor N. Purdy. All rights reserved.
This program is free software. It is subject to the same license as
Parrot itself.
-$Id: packfile.c,v 1.139 2004/02/22 21:06:54 leo Exp $
+$Id: packfile.c,v 1.140 2004/02/23 11:43:24 leo Exp $
=head1 NAME
@@ -467,7 +467,7 @@
* Map the header on top of the buffer later when we are sure
* we have alignment done right.
*/
- cursor = packed + PACKFILE_HEADER_BYTES/sizeof(opcode_t);
+ cursor = (opcode_t*)((char*)packed + PACKFILE_HEADER_BYTES);
memcpy(header, packed, PACKFILE_HEADER_BYTES);
if(header->wordsize != 4 && header->wordsize != 8) {
