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
This commit is contained in:
vsc 2002-01-03 16:28:17 +00:00
parent 8155e3fbf1
commit 75bd0c45f5

View File

@ -10,7 +10,7 @@
* File: Regs.h * * File: Regs.h *
* mods: * * mods: *
* comments: YAP abstract machine registers * * 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 static inline UInt
CalculateStackGap(void) CalculateStackGap(void)
{ {
UInt gmin = (LCL0-H0)>>1; UInt gmin = (LCL0-H0)>>3;
UInt min_gap = MinStackGap; UInt min_gap = MinStackGap;
return(gmin < min_gap ? min_gap : gmin ); return(gmin < min_gap ? min_gap : gmin );
} }