[svn:parrot] r36097 - trunk/compilers/pirc/src

[email protected] Wed, 28 Jan 2009 08:41:58 -0800 (PST)
Newsgroups perl.cvs.parrot
Message-ID <[email protected]>
Author: infinoid
Date: Wed Jan 28 08:41:57 2009
New Revision: 36097

Modified:
   trunk/compilers/pirc/src/bcgen.c

Log:
[pirc] Fix a 64-bitness issue (opcode_t does change size).

Modified: trunk/compilers/pirc/src/bcgen.c
==============================================================================
--- trunk/compilers/pirc/src/bcgen.c	(original)
+++ trunk/compilers/pirc/src/bcgen.c	Wed Jan 28 08:41:57 2009
@@ -416,9 +416,9 @@
 */
 void
 create_codesegment(bytecode * const bc, int codesize) {
-    /* allocate enough space. XXX I *think* bytes is /always/ codesize * 4. */
+    /* allocate enough space. */
     bc->interp->code->base.data = (opcode_t *)mem_sys_realloc(bc->interp->code->base.data,
-                                                              codesize * 4);
+                                                              codesize * sizeof (opcode_t));
     /* store the size of the code-segment */
     bc->interp->code->base.size = codesize;