commit:     93dd144b582fb7ecfad95b1654125510d1d7aee5
Author:     Akinori Hattori <hattya <AT> gentoo <DOT> org>
AuthorDate: Wed Jul 11 14:38:29 2018 +0000
Commit:     Akinori Hattori <hattya <AT> gentoo <DOT> org>
CommitDate: Wed Jul 11 14:39:30 2018 +0000
URL:        https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=93dd144b

dev-scheme/c-wrapper: fix for >=sys-libs/glibc-2.25

Package-Manager: Portage-2.3.40, Repoman-2.3.9

 dev-scheme/c-wrapper/c-wrapper-0.6.1-r1.ebuild        |  1 +
 dev-scheme/c-wrapper/files/c-wrapper-glibc-2.25.patch | 13 +++++++++++++
 2 files changed, 14 insertions(+)

diff --git a/dev-scheme/c-wrapper/c-wrapper-0.6.1-r1.ebuild 
b/dev-scheme/c-wrapper/c-wrapper-0.6.1-r1.ebuild
index c47ed5ad71e..cd0348a0133 100644
--- a/dev-scheme/c-wrapper/c-wrapper-0.6.1-r1.ebuild
+++ b/dev-scheme/c-wrapper/c-wrapper-0.6.1-r1.ebuild
@@ -22,6 +22,7 @@ PATCHES=(
        "${FILESDIR}"/${PN}-closure.patch
        "${FILESDIR}"/${PN}-gcc-5.patch
        "${FILESDIR}"/${PN}-gentoo.patch
+       "${FILESDIR}"/${PN}-glibc-2.25.patch
 )
 HTML_DOCS=( doc/${PN}-ref{e,j}.html )
 

diff --git a/dev-scheme/c-wrapper/files/c-wrapper-glibc-2.25.patch 
b/dev-scheme/c-wrapper/files/c-wrapper-glibc-2.25.patch
new file mode 100644
index 00000000000..0776b255bba
--- /dev/null
+++ b/dev-scheme/c-wrapper/files/c-wrapper-glibc-2.25.patch
@@ -0,0 +1,13 @@
+--- a/lib/c-wrapper/c-parser.scm
++++ b/lib/c-wrapper/c-parser.scm
+@@ -1115,7 +1115,9 @@
+                 (raise e))))
+      (call-with-gcc-io include-dirs headers options
+                        (lambda (in out)
+-                         (let ((macro-list (queue->list (macro-queue))))
++                         (let ((macro-list (filter (lambda (m)
++                                                     (not (string-prefix?  
"__glibc_macro_warning" (car m))))
++                                                   (queue->list 
(macro-queue)))))
+                            (for-each (lambda (macro-def)
+                                        (display (car macro-def) out)
+                                        (newline out))

Reply via email to