[svn:parrot] r39724 - trunk/compilers/imcc

[NotFound at svn.parrot.org]

Author: NotFound
Date: Mon Jun 22 20:39:10 2009
New Revision: 39724
URL: https://trac.parrot.org/parrot/changeset/39724

Log:
[imcc] catch the segfault in TT #756

Modified:
   trunk/compilers/imcc/pbc.c

Modified: trunk/compilers/imcc/pbc.c
==============================================================================
--- trunk/compilers/imcc/pbc.c	Mon Jun 22 20:15:36 2009	(r39723)
+++ trunk/compilers/imcc/pbc.c	Mon Jun 22 20:39:10 2009	(r39724)
@@ -1809,6 +1809,9 @@
     STRING *s;
     PMC    *p;
 
+    if(PMC_IS_NULL(_class))
+        IMCC_fatal(interp, 1, "make_pmc_const: no such pmc");
+
     if (*r->name == '"')
         s = Parrot_str_unescape(interp, r->name + 1, '"', NULL);