From 6c30cc2d5bd48ddbdbe8d75544899cd5dbfcaba4 Mon Sep 17 00:00:00 2001 From: V3n3RiX Date: Sat, 14 Jul 2018 20:18:26 +0100 Subject: gentoo resync : 14.07.2018 --- dev-scheme/c-wrapper/files/c-wrapper-gcc-5.patch | 45 ++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 dev-scheme/c-wrapper/files/c-wrapper-gcc-5.patch (limited to 'dev-scheme/c-wrapper/files/c-wrapper-gcc-5.patch') diff --git a/dev-scheme/c-wrapper/files/c-wrapper-gcc-5.patch b/dev-scheme/c-wrapper/files/c-wrapper-gcc-5.patch new file mode 100644 index 000000000000..091b1e2da105 --- /dev/null +++ b/dev-scheme/c-wrapper/files/c-wrapper-gcc-5.patch @@ -0,0 +1,45 @@ +--- a/src/c-parser.c ++++ b/src/c-parser.c +@@ -1668,6 +1668,7 @@ + { + static ScmObj trigger_line = SCM_FALSE; + ScmObj line_str; ++ ScmObj regexp = Scm_RegComp(SCM_STRING(SCM_MAKE_STR_IMMUTABLE("^#\\s+\\d+\\s+\"\"")), 0); + + /* skip the first line '# 1 ""' */ + Scm_ReadLineUnsafe(SCM_PORT(in)); +@@ -1682,16 +1683,26 @@ + } + } + +- while (!SCM_EOFP(line_str = Scm_ReadLineUnsafe(SCM_PORT(in)))) { +- if (SCM_NULLP(macro_list)) { ++ line_str = SCM_NIL; ++ while (!SCM_NULLP(macro_list)) { ++ ScmObj body_str = line_str; ++ if (SCM_NULLP(body_str) ++ && SCM_EOFP(body_str = Scm_ReadLineUnsafe(SCM_PORT(in)))) { + Scm_Error("[bug] lost macro body"); +- } else { +- ScmObj pos_name_args = SCM_CDAR(macro_list); +- macro_list = SCM_CDR(macro_list); +- Scm_FilenameSet(SCM_CAAR(pos_name_args)); +- Scm_LineNumberSet(SCM_INT_VALUE(SCM_CDAR(pos_name_args))); +- parse_macro_body(SCM_CADR(pos_name_args), SCM_CDDR(pos_name_args), line_str); + } ++ while (!SCM_EOFP(line_str = Scm_ReadLineUnsafe(SCM_PORT(in))) ++ && SCM_REGMATCHP(Scm_RegExec(SCM_REGEXP(regexp), SCM_STRING(line_str)))) { ++ if (SCM_EOFP(line_str = Scm_ReadLineUnsafe(SCM_PORT(in)))) { ++ Scm_Error("[bug] unexpected EOF while parsing macro body"); ++ } ++ body_str = Scm_StringAppend2(SCM_STRING(body_str), SCM_STRING(line_str)); ++ line_str = SCM_NIL; ++ } ++ ScmObj pos_name_args = SCM_CDAR(macro_list); ++ macro_list = SCM_CDR(macro_list); ++ Scm_FilenameSet(SCM_CAAR(pos_name_args)); ++ Scm_LineNumberSet(SCM_INT_VALUE(SCM_CDAR(pos_name_args))); ++ parse_macro_body(SCM_CADR(pos_name_args), SCM_CDDR(pos_name_args), body_str); + } + + SCM_RETURN(SCM_UNDEFINED); -- cgit v1.2.3