From 75bd0c45f526e8d4ffff53849e22a62ab76e93c8 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 3 Jan 2002 16:28:17 +0000
Subject: [PATCH] always leave 1/8 of the stack free, not 1/2.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@263 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 H/Regs.h | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/H/Regs.h b/H/Regs.h
index 5a4e5cef2..084eaba42 100644
--- a/H/Regs.h
+++ b/H/Regs.h
@@ -10,7 +10,7 @@
 * File:		Regs.h							 *
 * mods:									 *
 * comments:	YAP abstract machine registers				 *
-* version:      $Id: Regs.h,v 1.9 2002-01-02 05:35:20 vsc Exp $	 *
+* version:      $Id: Regs.h,v 1.10 2002-01-03 16:28:17 vsc Exp $	 *
 *************************************************************************/
 
 
@@ -697,7 +697,7 @@ REGSTORE standard_regs;
 static inline UInt
 CalculateStackGap(void)
 {
-  UInt gmin = (LCL0-H0)>>1;
+  UInt gmin = (LCL0-H0)>>3;
   UInt min_gap = MinStackGap;
   return(gmin < min_gap ? min_gap : gmin );
 }