From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 19 Sep 1992 19:06:16 +0000 (+0000)
Subject: Fix DPMI_stack_fault_handler to use INT_Stack_Overflow.
X-Git-Tag: 20090517-FFI~8934
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=44005e82cab3b53c49714a4e7221868975e8c55a;p=mit-scheme.git

Fix DPMI_stack_fault_handler to use INT_Stack_Overflow.
---

diff --git a/v7/src/microcode/dossig.c b/v7/src/microcode/dossig.c
index 20ae28ac1..11a6aad76 100644
--- a/v7/src/microcode/dossig.c
+++ b/v7/src/microcode/dossig.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: dossig.c,v 1.6 1992/09/18 05:53:55 jinx Exp $
+$Id: dossig.c,v 1.7 1992/09/19 19:06:16 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -909,6 +909,13 @@ DEFUN (DPMI_stack_fault_handler, (trapno, trapcode, scp),
        unsigned trapno AND unsigned trapcode AND struct sigcontext * scp)
 {
   Scheme_Stack_Segment_Selector = scheme_ds;
+  if ((scp->sc_ss == scheme_ss)
+      && (scp->sc_esp < (((unsigned long) Stack_Guard) + 0x1000)))
+  {
+    scp->sc_ss = scheme_ds;
+    REQUEST_INTERRUPT (INT_Stack_Overflow);
+    return;
+  }
   trap_handler ("hardware exception", ((int) trapno), trapcode, scp);
   /*NOTREACHED*/
 }