[svn:parrot] r9592 - trunk/imcc

[leo]

Author: leo
Date: Thu Oct 27 07:47:43 2005
New Revision: 9592

Modified:
   trunk/imcc/parser_util.c
Log:
turn off DOD during compile

Modified: trunk/imcc/parser_util.c
==============================================================================
--- trunk/imcc/parser_util.c    (original)
+++ trunk/imcc/parser_util.c    Thu Oct 27 07:47:43 2005
@@ -666,6 +666,10 @@ imcc_compile(Parrot_Interp interp, const
         void * __ptr;
     } __ptr_u;
 
+    /*
+     * we create not yet anchored PMCs - e.g. Subs: turn off DOD
+     */
+    Parrot_block_DOD(interp);
     if (IMCC_INFO(interp)->last_unit) {
         /* got a reentrant compile */
         imc_info = mem_sys_allocate_zeroed(sizeof(imc_info_t));
@@ -723,6 +727,7 @@ imcc_compile(Parrot_Interp interp, const
     }
     else
         imc_cleanup(interp);
+    Parrot_unblock_DOD(interp);
     return sub;
 }