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

[bacek at svn.parrot.org]

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

Log:
Fix mark_positional

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 10:09:10 2010	(r45005)
+++ branches/pcc_megrecells/src/pmc/callcontext.pmc	Thu Mar 18 10:09:35 2010	(r45006)
@@ -228,16 +228,14 @@
 static void
 mark_positionals(PARROT_INTERP, ARGIN(PMC *self))
 {
-    INTVAL pos;
+    INTVAL size, i;
     struct Pcc_cell *cells;
 
-    GETATTR_CallContext_num_positionals(interp, self, pos);
+    GETATTR_CallContext_num_positionals(interp, self, size);
     GETATTR_CallContext_positionals(interp, self, cells);
 
-    do {
-        --pos;
-        mark_cell(interp, &cells[pos]);
-    } while (pos >= 0);
+    for (i=0; i<size; ++i)
+        mark_cell(interp, &cells[i]);
 }
 
 /* don't look now, but here goes encapsulation.... */