fix bug in overflow handling
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@818 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
fc791f3600
commit
a3ad9dbb8f
@ -1018,7 +1018,7 @@ SearchForTrailFault(void)
|
||||
if ((TR > (tr_fr_ptr)Yap_TrailTop-1024 &&
|
||||
TR < (tr_fr_ptr)Yap_TrailTop+(64*1024))|| Yap_DBTrailOverflow()) {
|
||||
long trsize = 64*2014L;
|
||||
while (trsize < ((CELL)TR-(CELL)Yap_TrailTop)) {
|
||||
while ((CELL)TR > (CELL)Yap_TrailTop+trsize) {
|
||||
trsize += 64*2014L;
|
||||
}
|
||||
if (!Yap_growtrail(trsize)) {
|
||||
|
Reference in New Issue
Block a user