[pure-lang-svn] SF.net SVN: pure-lang: [104] pure/trunk/runtime.cc

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

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

Log Message:
-----------
Fix bug in memory debugging code.

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

Modified: pure/trunk/runtime.cc
===================================================================
--- pure/trunk/runtime.cc	2008-05-22 07:03:58 UTC (rev 103)
+++ pure/trunk/runtime.cc	2008-05-22 07:10:33 UTC (rev 104)
@@ -52,6 +52,9 @@
   if (x->tag == EXPR::APP) {
     mem_mark(x->data.x[0]);
     mem_mark(x->data.x[1]);
+  } else if (x->tag >= 0 && x->data.clos) {
+    for (size_t i = 0; i < x->data.clos->m; i++)
+      mem_mark(x->data.clos->env[i]);
   }
 }
 #else


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