[svn:parrot] r43637 - branches/kill_array_pmc/src

[whiteknight at svn.parrot.org]

Author: whiteknight
Date: Fri Jan 29 15:10:20 2010
New Revision: 43637
URL: https://trac.parrot.org/parrot/changeset/43637

Log:
fix last problem in pmc_freeze.c. Build completes without errors

Modified:
   branches/kill_array_pmc/src/pmc_freeze.c

Modified: branches/kill_array_pmc/src/pmc_freeze.c
==============================================================================
--- branches/kill_array_pmc/src/pmc_freeze.c	Fri Jan 29 14:53:38 2010	(r43636)
+++ branches/kill_array_pmc/src/pmc_freeze.c	Fri Jan 29 15:10:20 2010	(r43637)
@@ -696,21 +696,20 @@
         ARGIN(visit_info *info))
 {
     ASSERT_ARGS(visit_loop_todo_list)
-    PMC        *list_item;
-    const int    thawing        = info->what == VISIT_THAW_NORMAL;
+    const int  thawing = (info->what == VISIT_THAW_NORMAL);
+    PMC * const todolist = info->todo;
 
     (info->visit_pmc_now)(interp, current, info);
 
     /* can't cache upper limit, visit may append items */
-    while ((current = VTABLE_shift_pmc(interp, info->todo))) {
+    while (VTABLE_elements(interp, todolist)) {
+        current = VTABLE_shift_pmc(interp, todolist);
         if (!current)
             Parrot_ex_throw_from_c_args(interp, NULL, 1,
                     "NULL current PMC in visit_loop_todo_list");
 
         PARROT_ASSERT(current->vtable);
-
         VTABLE_visit(interp, current, info);
-
         VISIT_PMC(interp, info, PMC_metadata(current));
     }