From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 21 Sep 1993 18:08:09 +0000 (+0000)
Subject: Add a kludge to prevent a double-fault under Windows 3.1
X-Git-Tag: 20090517-FFI~7816
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=afe3a51bb50183da215624544ed5c76850cbc06b;p=mit-scheme.git

Add a kludge to prevent a double-fault under Windows 3.1
---

diff --git a/v7/src/microcode/nttrap.c b/v7/src/microcode/nttrap.c
index b319e4fa7..3bf72e5ef 100644
--- a/v7/src/microcode/nttrap.c
+++ b/v7/src/microcode/nttrap.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: nttrap.c,v 1.7 1993/09/21 17:54:10 gjr Exp $
+$Id: nttrap.c,v 1.8 1993/09/21 18:08:09 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -1265,7 +1265,7 @@ DEFUN_VOID (winnt_stack_reset)
 
   boundary = ((((unsigned long) Stack_Guard)
 	       & (~ ((unsigned long) (PAGE_SIZE - 1))))
-	      - PAGE_SIZE);
+	      - (2 * PAGE_SIZE));
   if (stack_protected && (protected_stack_base == boundary))
     return;
   winnt_unprotect_stack ();