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

protect heapgc.c

Browse Source
This commit is contained in:
Vitor Santos Costa 2012-05-13 15:58:28 +01:00
parent a05bad3bf0
commit b36e607cb4
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/heapgc.c
View File

@ -4130,9 +4130,11 @@ call_gc(UInt gc_lim, Int predarity, CELL *current_env, yamop *nextop USES_REGS)
if (ASP - H < gc_margin/sizeof(CELL) || if (ASP - H < gc_margin/sizeof(CELL) ||
effectiveness < 20) { effectiveness < 20) {
LeaveGCMode( PASS_REGS1 ); LeaveGCMode( PASS_REGS1 );
#ifdef YAPOR
if (gc_margin < 2*CalculateStackGap()) if (gc_margin < 2*CalculateStackGap())
gc_margin = 2*CalculateStackGap(); gc_margin = 2*CalculateStackGap();
return Yap_growstack(gc_margin); return Yap_growstack(gc_margin);
#endif
} }
/* /*
* debug for(save_total=1; save_total<=N; ++save_total) * debug for(save_total=1; save_total<=N; ++save_total)