commit:     0701206b79a0779afa5799bfc0130110451520e7
Author:     Akinori Hattori <hattya <AT> gentoo <DOT> org>
AuthorDate: Thu Oct 26 12:44:37 2023 +0000
Commit:     Akinori Hattori <hattya <AT> gentoo <DOT> org>
CommitDate: Thu Oct 26 12:44:37 2023 +0000
URL:        https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=0701206b

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 <AT> gentoo.org>

 .../files/c-wrapper-gauche-abi-0.98.patch          | 34 ++++++++++++++++++++++
 1 file changed, 34 insertions(+)

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"))
+ 

Reply via email to