[svn:parrot] r29673 - trunk/src

[tene]

Author: tene
Date: Tue Jul 22 07:58:55 2008
New Revision: 29673

Modified:
   trunk/src/inter_call.c

Log:
Fetch the proper type from the HLL mapping for ResizablePMCArray
when processing slurpy params.


Modified: trunk/src/inter_call.c
==============================================================================
--- trunk/src/inter_call.c      (original)
+++ trunk/src/inter_call.c      Tue Jul 22 07:58:55 2008
@@ -646,7 +646,8 @@
     next_arg_sig(&st->dest);
 
     if (st->dest.sig & PARROT_ARG_SLURPY_ARRAY) {
-        PMC *slurped = pmc_new(interp, enum_class_ResizablePMCArray);
+        PMC *slurped = pmc_new(interp,
+                Parrot_get_ctx_HLL_type(interp, enum_class_ResizablePMCArray));
 
         PARROT_ASSERT((st->dest.sig & PARROT_ARG_TYPE_MASK) == PARROT_ARG_PMC);
 
@@ -1359,7 +1360,8 @@
 
     /* 2nd: Positional :slurpy */
     if (dest->sig & PARROT_ARG_SLURPY_ARRAY && !(dest->sig & PARROT_ARG_NAME)) 
{
-        PMC * const  array = pmc_new(interp, enum_class_ResizablePMCArray);
+        PMC * const  array = pmc_new(interp,
+                Parrot_get_ctx_HLL_type(interp, enum_class_ResizablePMCArray));
         const INTVAL idx   = st->dest.u.op.pc[dest->i];
 
         PARROT_ASSERT(idx >= 0);