[svn:parrot] r32443 - trunk/languages/perl6/src/ops

[chromatic]

Author: chromatic
Date: Fri Nov  7 19:21:55 2008
New Revision: 32443

Modified:
   trunk/languages/perl6/src/ops/perl6.ops

Log:
[Rakudo] Fixed a C++ compilation error (Vasily Chekalkin).

Modified: trunk/languages/perl6/src/ops/perl6.ops
==============================================================================
--- trunk/languages/perl6/src/ops/perl6.ops     (original)
+++ trunk/languages/perl6/src/ops/perl6.ops     Fri Nov  7 19:21:55 2008
@@ -60,7 +60,7 @@
          *    swept on the next GC run.
          * We do this by shuffling PMC headers around. It should be safe as
          * in the end we will end up with just as many PMCs existing. */
-        PMC *temp = mem_sys_allocate(sizeof (PMC));
+        PMC *temp  = mem_allocate_typed(PMC);
         PMC *proxy = VTABLE_get_attr_keyed(interp, new_ins, current_class,
                 string_from_literal(interp, "proxy"));
         Parrot_block_GC_mark(interp);