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-vm2.c | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) (limited to 'lang/qscheme/files/patch-vm2.c') diff --git a/lang/qscheme/files/patch-vm2.c b/lang/qscheme/files/patch-vm2.c index d4340b993641..38fd7e282f04 100644 --- a/lang/qscheme/files/patch-vm2.c +++ b/lang/qscheme/files/patch-vm2.c @@ -1,5 +1,5 @@ ---- vm2.c.orig Wed Oct 27 19:33:03 2004 -+++ vm2.c Wed Oct 27 19:33:16 2004 +--- vm2.c.orig 2000-06-01 17:47:00.000000000 +0300 ++++ vm2.c 2009-03-03 17:12:14.000000000 +0200 @@ -185,8 +185,8 @@ #define RETURN(value) { TOS=(value); NEXT; } @@ -11,3 +11,13 @@ /**************************************************************** +@@ -392,7 +392,8 @@ + ef = (SCM_EnvFrame*)sp; \ + /* alloc space on stack for an env object and fill it's frame and \ + next fields */ \ +- ((void*)sp) -= sizeof(Sobject); \ ++ /*((void*)sp) -= sizeof(Sobject);*/ \ ++ sp = ((void*)sp) - sizeof(Sobject); \ + SCM_ENV_FRAME((SOBJ)sp) = ef; \ + SCM_ENV_NEXT((SOBJ)sp) = nextenv; \ + env = (SOBJ)sp; \ -- cgit v1.2.3