[svn:parrot] r25990 - trunk/src/pmc

[petergibbs]

Author: petergibbs
Date: Fri Feb 22 08:45:41 2008
New Revision: 25990

Modified:
   trunk/src/pmc/parrotinterpreter.pmc

Log:
In thawfinish, delay setting constant flag on lib_name until Parrot_load_lib 
has been called, to avoid corruption in iglobals during GC.
This fixes segfault attempting to run tcl tests on some platforms.


Modified: trunk/src/pmc/parrotinterpreter.pmc
==============================================================================
--- trunk/src/pmc/parrotinterpreter.pmc (original)
+++ trunk/src/pmc/parrotinterpreter.pmc Fri Feb 22 08:45:41 2008
@@ -643,8 +643,8 @@
 
                 if (!STRING_IS_EMPTY(lib_name)) {
                     INTVAL id;
-                    PObj_constant_SET(lib_name);
                     ignored      = Parrot_load_lib(INTERP, lib_name, NULL);
+                    PObj_constant_SET(lib_name);
                     id           = Parrot_register_HLL_lib(INTERP, lib_name);
                     UNUSED(id);
                 }