[svn:parrot] r48931 - trunk/src

[NotFound at svn.parrot.org]

Author: NotFound
Date: Sat Sep 11 14:22:58 2010
New Revision: 48931
URL: https://trac.parrot.org/parrot/changeset/48931

Log:
check PMCNULL instead of NULL and improve the Exception thrown in Parrot_visit_loop_visit

Modified:
   trunk/src/pmc_freeze.c

Modified: trunk/src/pmc_freeze.c
==============================================================================
--- trunk/src/pmc_freeze.c	Sat Sep 11 11:31:14 2010	(r48930)
+++ trunk/src/pmc_freeze.c	Sat Sep 11 14:22:58 2010	(r48931)
@@ -324,9 +324,12 @@
     /* can't cache upper limit, visit may append items */
     for (i = 0; i < VTABLE_elements(interp, todo); ++i) {
         PMC * const current = VTABLE_get_pmc_keyed_int(interp, todo, i);
-        if (!current)
-            Parrot_ex_throw_from_c_args(interp, NULL, 1,
-                    "NULL current PMC in visit_loop_todo_list");
+        if (PMC_IS_NULL(current))
+            Parrot_ex_throw_from_c_args(interp, NULL,
+                    EXCEPTION_MALFORMED_PACKFILE,
+                    "NULL current PMC at %d in visit_loop_todo_list - %s",
+                    (int) i,
+                    action == VISIT_FREEZE_NORMAL ? "feeze" : "thaw");
 
         PARROT_ASSERT(current->vtable);