[pure-lang-svn] SF.net SVN: pure-lang: [110] pure/trunk

[<ag...@us...>]

Revision: 110
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=110&view=rev
Author:   agraef
Date:     2008-05-22 22:18:37 -0700 (Thu, 22 May 2008)

Log Message:
-----------
Fix premature freeing of eval result.

Modified Paths:
--------------
    pure/trunk/ChangeLog
    pure/trunk/runtime.cc

Modified: pure/trunk/ChangeLog
===================================================================
--- pure/trunk/ChangeLog	2008-05-23 01:39:13 UTC (rev 109)
+++ pure/trunk/ChangeLog	2008-05-23 05:18:37 UTC (rev 110)
@@ -1,5 +1,8 @@
 2008-05-23  Albert Graef  <Dr....@t-...>
 
+	* runtime.cc (eval): Fix premature freeing of eval result.
+	Reported by Eddie Rucker.
+
 	* Makefile: Bump version number.
 
 	* interpreter.cc: If there are any child environments, doeval and

Modified: pure/trunk/runtime.cc
===================================================================
--- pure/trunk/runtime.cc	2008-05-23 01:39:13 UTC (rev 109)
+++ pure/trunk/runtime.cc	2008-05-23 05:18:37 UTC (rev 110)
@@ -1503,6 +1503,7 @@
   assert(s);
   interpreter& interp = *interpreter::g_interp;
   pure_expr *res = interp.runstr(string(s)+";");
+  interp.result = 0;
   if (res) pure_unref_internal(res);
   return res;
 }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.