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 584a84083befd2d67dbfa5494583dffddfa950c7..cd2ca458d89e2dae4bd8370d8d657b5194eb29f8 100644 (file)
--- 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