[svn:parrot] r44602 - branches/tt1477/ext/Parrot-Embed/lib/Parrot

[plobsing at svn.parrot.org]

Author: plobsing
Date: Wed Mar  3 05:25:16 2010
New Revision: 44602
URL: https://trac.parrot.org/parrot/changeset/44602

Log:
eliminate Parrot::PMC::DESTROY induced segfaults

Parrot_Interpreter doesn't have a refcount, trying to fiddle with that actually messes with the mem_pools pointer... fun

Modified:
   branches/tt1477/ext/Parrot-Embed/lib/Parrot/Embed.xs

Modified: branches/tt1477/ext/Parrot-Embed/lib/Parrot/Embed.xs
==============================================================================
--- branches/tt1477/ext/Parrot-Embed/lib/Parrot/Embed.xs	Wed Mar  3 02:56:02 2010	(r44601)
+++ branches/tt1477/ext/Parrot-Embed/lib/Parrot/Embed.xs	Wed Mar  3 05:25:16 2010	(r44602)
@@ -372,7 +372,7 @@
 CODE:
     interp = get_interp( pmc->interp );
 
-    if (interp)
-        SvREFCNT_dec( interp );
+    
+    SvREFCNT_dec( pmc->interp );
 
     Parrot_unregister_pmc( interp, pmc->pmc );