dev-scheme/c-wrapper: fix finalizer of ffi_closure

Package-Manager: Portage-2.3.40, Repoman-2.3.9

diff --git a/dev-scheme/c-wrapper/c-wrapper-0.6.1.ebuild b/dev-scheme/c-wrapper/c-wrapper-0.6.1-r1.ebuild
similarity index 89%
rename from dev-scheme/c-wrapper/c-wrapper-0.6.1.ebuild
rename to dev-scheme/c-wrapper/c-wrapper-0.6.1-r1.ebuild
index 864680e0294f620d09947f625bdda4d026599786..709c8c2eb641e8287c75ebb35a7e5aa6408a60a0 100644 (file)
--- a/dev-scheme/c-wrapper/c-wrapper-0.6.1.ebuild
+++ b/dev-scheme/c-wrapper/c-wrapper-0.6.1-r1.ebuild
@@ -18,7 +18,10 @@ RDEPEND="dev-scheme/gauche
        virtual/libffi"
 DEPEND="${RDEPEND}"
 
-PATCHES=( "${FILESDIR}"/${PN}-gentoo.patch )
+PATCHES=(
+       "${FILESDIR}"/${PN}-closure.patch
+       "${FILESDIR}"/${PN}-gentoo.patch
+)
 HTML_DOCS=( doc/${PN}-ref{e,j}.html )
 
 src_prepare() {

diff --git a/dev-scheme/c-wrapper/files/c-wrapper-closure.patch b/dev-scheme/c-wrapper/files/c-wrapper-closure.patch
new file mode 100644 (file)
index 0000000..24be1d0
--- /dev/null
+++ b/dev-scheme/c-wrapper/files/c-wrapper-closure.patch
@@ -0,0 +1,10 @@
+--- a/src/closure_alloc.c
++++ b/src/closure_alloc.c
+@@ -100,6 +100,7 @@
+             ++(node->n);
+             return;
+         }
++        node = node->next;
+     }
+ 
+     node = malloc(sizeof(FreeNode));