diff options
Diffstat (limited to 'lang/qscheme/files/patch-vm2.c')
| -rw-r--r-- | lang/qscheme/files/patch-vm2.c | 14 |
1 files changed, 12 insertions, 2 deletions
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; \ |