diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

always leave 1/8 of the stack free, not 1/2.

Browse Source 
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
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
H/Regs.h
View File

@ -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 );
}