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

[email protected] Mon, 19 Jan 2009 15:22:08 -0800 (PST)
Newsgroups perl.cvs.parrot
Message-ID <[email protected]>
Author: julianalbo
Date: Mon Jan 19 15:22:07 2009
New Revision: 35779

Modified:
   trunk/compilers/imcc/symreg.c

Log:
add assertion that catches TT #162 segfault

Modified: trunk/compilers/imcc/symreg.c
==============================================================================
--- trunk/compilers/imcc/symreg.c	(original)
+++ trunk/compilers/imcc/symreg.c	Mon Jan 19 15:22:07 2009
@@ -251,6 +251,10 @@
 {
     ASSERT_ARGS(mk_symreg)
     IMC_Unit * const unit = IMCC_INFO(interp)->last_unit;
+
+    /* Check for the condition that fires up a segfault in TT #162 */
+    PARROT_ASSERT(unit != NULL);
+
     return _mk_symreg(&unit->hash, name, t);
 }