[47267] trunk/dports/lang/pure

[ryandesign at macports.org]

Revision: 47267
          http://trac.macports.org/changeset/47267
Author:   ryandesign at macports.org
Date:     2009-02-24 01:31:28 -0800 (Tue, 24 Feb 2009)
Log Message:
-----------
pure: add a patch from the developer to fix some memory leaks; all tests passed (on Tiger/Intel)

Modified Paths:
--------------
    trunk/dports/lang/pure/Portfile

Added Paths:
-----------
    trunk/dports/lang/pure/files/patch-runtime.cc.diff

Modified: trunk/dports/lang/pure/Portfile
===================================================================
--- trunk/dports/lang/pure/Portfile	2009-02-24 08:52:20 UTC (rev 47266)
+++ trunk/dports/lang/pure/Portfile	2009-02-24 09:31:28 UTC (rev 47267)
@@ -4,6 +4,7 @@
 
 name                    pure
 version                 0.18
+revision                1
 categories              lang
 platforms               darwin
 maintainers             ryandesign
@@ -37,6 +38,7 @@
     port:readline
 
 patchfiles \
+    patch-runtime.cc.diff \
     patch-Makefile.in.diff
 
 configure.args \

Added: trunk/dports/lang/pure/files/patch-runtime.cc.diff
===================================================================
--- trunk/dports/lang/pure/files/patch-runtime.cc.diff	                        (rev 0)
+++ trunk/dports/lang/pure/files/patch-runtime.cc.diff	2009-02-24 09:31:28 UTC (rev 47267)
@@ -0,0 +1,43 @@
+Added at upstream developer's request; see:
+http://groups.google.com/group/pure-lang/browse_thread/thread/b65046231b7000#anchor_d5f6e4b7f1e27b9e
+Index: runtime.cc
+===================================================================
+--- runtime.cc	(revision 887)
++++ runtime.cc	(working copy)
+@@ -696,10 +696,33 @@
+     // Since we just created this variable, it doesn't have any closure bound
+     // to it yet, so it's safe to just return the symbol as is.
+     return v.x;
+-  } else
+-    // The symbol already exists, so there might be a parameterless closure
+-    // bound to it and thus we need to evaluate it.
++  } else {
++    // The symbol already has a definition, so we might have to evaluate it on
++    // the fly.
++    map<int32_t,ExternInfo>::const_iterator it = interp.externals.find(tag);
++    if (it != interp.externals.end()) {
++      // We have an external. This case must be treated separately, since v
++      // just points to a box for the Pure function symbol rather than the
++      // external wrapper function itself.
++      const ExternInfo& info = it->second;
++      size_t n = info.argtypes.size();
++      void *f = interp.JIT->getPointerToFunction(info.f);
++      if (f) {
++	if (n == 0)
++	  // Parameterless external, do a direct call.
++	  return ((pure_expr *(*)(void))f) ();
++	else
++	  // External with parameters. Build an fbox for the external, return
++	  // this as the value of the symbol.
++	  return pure_clos(false, false, tag, n, f, 0, 0);
++      }
++      // If we come here, the external wrapper failed to compile for some
++      // reason, just proceed as if it was an ordinary Pure function.
++    }
++    // We have an ordinary Pure symbol. There might be a parameterless closure
++    // bound to it, pure_call takes care of that case.
+     return pure_call(v.x);
++  }
+ }
+ 
+ extern "C"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090224/1e1fc386/attachment.html>