From f2bb29203cbb68f917b96c09b334257f80b63e10 Mon Sep 17 00:00:00 2001 From: Dmitry Marakasov Date: Wed, 1 Apr 2009 22:31:31 +0000 Subject: - Fix build with gcc 4.2 PR: 132287 Submitted by: Vitaly Magerya Approved by: Erik Greenwald (maintainer) --- lang/qscheme/files/patch-process.c | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 lang/qscheme/files/patch-process.c (limited to 'lang/qscheme/files/patch-process.c') diff --git a/lang/qscheme/files/patch-process.c b/lang/qscheme/files/patch-process.c new file mode 100644 index 000000000000..ecd3728c03bd --- /dev/null +++ b/lang/qscheme/files/patch-process.c @@ -0,0 +1,20 @@ +--- process.c.orig 2000-06-01 22:30:18.000000000 +0300 ++++ process.c 2009-03-03 17:37:30.000000000 +0200 +@@ -38,6 +38,7 @@ + + #define SCM_PROCESS(x) ((SCM_ProcessAux*)SCM_AUX(x)) + #define SCM_PROCESSP(x) (SCM_OBJTYPE(x) == SOBJ_T_PROCESS) ++#define SCM_PROCESS_SET SCM_AUX_SET + + #define SCM_PROCESS_PID(x) (SCM_PROCESS(x)->pid) + #define SCM_PROCESS_PORT(x,i) (SCM_PROCESS(x)->port[i]) +@@ -153,7 +154,8 @@ + int i; + SOBJ new = scm_newcell(SOBJ_T_PROCESS); + +- SCM_PROCESS(new) = scm_must_alloc(sizeof(SCM_ProcessAux)); ++ /*SCM_PROCESS_SET(new) = scm_must_alloc(sizeof(SCM_ProcessAux));*/ ++ SCM_PROCESS_SET(new, scm_must_alloc(sizeof(SCM_ProcessAux))); + SCM_PROCESS_PID(new) = 0; + for (i = 0; i < 3; i++) + SCM_PROCESS_PORT(new, i) = NULL; -- cgit v1.2.3