[svn:parrot] r45005 - branches/pcc_megrecells/src/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Thu Mar 18 10:09:10 2010
New Revision: 45005
URL: https://trac.parrot.org/parrot/changeset/45005

Log:
Reimplement CallContext.unshift_pmc

Modified:
   branches/pcc_megrecells/src/pmc/callcontext.pmc

Modified: branches/pcc_megrecells/src/pmc/callcontext.pmc
==============================================================================
--- branches/pcc_megrecells/src/pmc/callcontext.pmc	Thu Mar 18 09:49:47 2010	(r45004)
+++ branches/pcc_megrecells/src/pmc/callcontext.pmc	Thu Mar 18 10:09:10 2010	(r45005)
@@ -847,7 +847,9 @@
         for (i = size; i; --i)
             cells[i] = cells[i - 1];
 
-        cells[0].u.p = value;
+        cells[0].u.p    = value;
+        cells[0].type   = PMCCELL;
+        SET_ATTR_num_positionals(INTERP, SELF, size + 1);
     }