From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Mar 1997 04:06:32 +0000 (+0000)
Subject: Fix bug: Watcom compiler passes arguments in registers by default, and
X-Git-Tag: 20090517-FFI~5235
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8d0f177b3d411e67974ccee1d77dc10e97fe2bfe;p=mit-scheme.git

Fix bug: Watcom compiler passes arguments in registers by default, and
trick of pointing to first argument doesn't get pointer that points
"into the stack".
---

diff --git a/v7/src/microcode/ntgui.c b/v7/src/microcode/ntgui.c
index 584a84083..cd2ca458d 100644
--- a/v7/src/microcode/ntgui.c
+++ b/v7/src/microcode/ntgui.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ntgui.c,v 1.18 1996/10/07 18:01:36 cph Exp $
+$Id: ntgui.c,v 1.19 1997/03/18 04:06:32 cph Exp $
 
 Copyright (c) 1993-96 Massachusetts Institute of Technology
 
@@ -314,7 +314,12 @@ static SCHEME_OBJECT
 apply4 (SCHEME_OBJECT procedure, SCHEME_OBJECT arg1, SCHEME_OBJECT arg2,
                                  SCHEME_OBJECT arg3, SCHEME_OBJECT arg4)
 {
-    return  C_call_scheme (procedure, 4, &arg1);
+  SCHEME_OBJECT argvec [4];
+  (argvec[0]) = arg1;
+  (argvec[1]) = arg2;
+  (argvec[2]) = arg3;
+  (argvec[3]) = arg4;
+  return (C_call_scheme (procedure, 4, argvec));
 }
 
 LRESULT CALLBACK