MonetDB: Oct2010 - Only free stk if it was actually allocated here.

[Sjoerd Mullender]

Changeset: a471fe3970fa for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=a471fe3970fa
Modified Files:
        MonetDB5/src/mal/mal_interpreter.mx
Branch: Oct2010
Log Message:

Only free stk if it was actually allocated here.


diffs (12 lines):

diff -r 2727702e548b -r a471fe3970fa MonetDB5/src/mal/mal_interpreter.mx
--- a/MonetDB5/src/mal/mal_interpreter.mx       Wed Sep 15 15:47:32 2010 +0200
+++ b/MonetDB5/src/mal/mal_interpreter.mx       Wed Sep 15 17:09:42 2010 +0200
@@ -343,7 +343,7 @@
        if ( !stk->keepAlive && garbageControl(getInstrPtr(mb,0)) )
                garbageCollector(cntxt, mb,stk, env != stk);
        @:endProfile(stk)@
-       if (stk)
+       if (stk && stk != env)
                GDKfree(stk);
        return ret;
 }
_______________________________________________
Checkin-list mailing list
Checkin-list@monetdb.org
http://mail.monetdb.org/mailman/listinfo/checkin-list