summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAkinori Hattori <hattya@gentoo.org>2023-10-26 21:44:37 +0900
committerAkinori Hattori <hattya@gentoo.org>2023-10-26 21:44:37 +0900
commit0701206b79a0779afa5799bfc0130110451520e7 (patch)
tree2bfeff8a07e90285b187dee8b80ffe694631c149 /dev-scheme
parentdev-python/pdm: Bump to 2.10.0 (diff)
downloadgentoo-0701206b79a0779afa5799bfc0130110451520e7.tar.gz
gentoo-0701206b79a0779afa5799bfc0130110451520e7.tar.bz2
gentoo-0701206b79a0779afa5799bfc0130110451520e7.zip
dev-scheme/c-wrapper: fix build with >=dev-scheme/gauche-0.9.13
Closes: https://bugs.gentoo.org/915963 Signed-off-by: Akinori Hattori <hattya@gentoo.org>
Diffstat (limited to 'dev-scheme')
-rw-r--r--dev-scheme/c-wrapper/files/c-wrapper-gauche-abi-0.98.patch34
1 files changed, 34 insertions, 0 deletions
diff --git a/dev-scheme/c-wrapper/files/c-wrapper-gauche-abi-0.98.patch b/dev-scheme/c-wrapper/files/c-wrapper-gauche-abi-0.98.patch
index 15e8b6990cc7..6c9f0cb371b2 100644
--- a/dev-scheme/c-wrapper/files/c-wrapper-gauche-abi-0.98.patch
+++ b/dev-scheme/c-wrapper/files/c-wrapper-gauche-abi-0.98.patch
@@ -12,6 +12,30 @@
} else {
Scm_Error("wrong slot number: %d", sa->slotNumber);
}
+--- a/src/c-lex.c
++++ b/src/c-lex.c
+@@ -992,11 +992,6 @@
+ SCM_RETURN(Scm_MakeInteger(v));
+ }
+
+-ScmObj Scm_ReadStringLiteral()
+-{
+- SCM_RETURN(read_string_literal());
+-}
+-
+ ScmObj Scm_ReadCharacterConstant()
+ {
+ SCM_RETURN(read_character_constant());
+--- a/src/c-lex.h
++++ b/src/c-lex.h
+@@ -78,7 +78,6 @@
+ extern ScmObj Scm_IsForceIdentifierSet(ScmObj v);
+ extern ScmObj Scm_ReadIdentifier(ScmObj l);
+ extern ScmObj Scm_ReadOperator(ScmObj c);
+-extern ScmObj Scm_ReadStringLiteral();
+ extern ScmObj Scm_ReadCharacterConstant();
+ extern ScmObj Scm_ReadOctalOrFlonum(ScmObj l);
+ extern ScmObj Scm_ReadDecimal(ScmObj l);
--- a/src/c-lexlib.stub
+++ b/src/c-lexlib.stub
@@ -40,7 +40,11 @@
@@ -26,3 +50,13 @@
"}"))
(define-cproc strtod (nptr::<const-cstring>)
+@@ -136,9 +140,6 @@
+ (define-cproc read-operator (c)
+ (call "Scm_ReadOperator"))
+
+-(define-cproc read-string-literal ()
+- (call "Scm_ReadStringLiteral"))
+-
+ (define-cproc read-character-constant ()
+ (call "Scm_ReadCharacterConstant"))
+