summaryrefslogtreecommitdiff
path: root/dev-scheme/c-wrapper/files/c-wrapper-gcc-5.patch
diff options
context:
space:
mode:
authorV3n3RiX <venerix@redcorelinux.org>2018-07-14 20:57:42 +0100
committerV3n3RiX <venerix@redcorelinux.org>2018-07-14 20:57:42 +0100
commit1798c4aeca70ac8d0a243684d6a798fbc65735f8 (patch)
treee48e19cb6fa03de18e1c63e1a93371b7ebc4eb56 /dev-scheme/c-wrapper/files/c-wrapper-gcc-5.patch
parentd87262dd706fec50cd150aab3e93883b6337466d (diff)
gentoo resync : 14.07.2018
Diffstat (limited to 'dev-scheme/c-wrapper/files/c-wrapper-gcc-5.patch')
-rw-r--r--dev-scheme/c-wrapper/files/c-wrapper-gcc-5.patch45
1 files changed, 0 insertions, 45 deletions
diff --git a/dev-scheme/c-wrapper/files/c-wrapper-gcc-5.patch b/dev-scheme/c-wrapper/files/c-wrapper-gcc-5.patch
deleted file mode 100644
index 091b1e2da105..000000000000
--- a/dev-scheme/c-wrapper/files/c-wrapper-gcc-5.patch
+++ /dev/null
@@ -1,45 +0,0 @@
---- 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+\"<stdin>\"")), 0);
-
- /* skip the first line '# 1 "<stdin>"' */
- 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);