Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/runtime/gc/ml-objects.c
ViewVC logotype

Diff of /sml/trunk/src/runtime/gc/ml-objects.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1214, Tue May 21 17:58:40 2002 UTC revision 1219, Wed May 22 14:41:38 2002 UTC
# Line 525  Line 525 
525  PVT bool_t ShrinkCheck (arena_t *ap, Word_t reqSzB)  PVT bool_t ShrinkCheck (arena_t *ap, Word_t reqSzB)
526  {  {
527      if ((ap->tospSizeB > ap->maxSizeB)      if ((ap->tospSizeB > ap->maxSizeB)
528      && (((Addr_t)(ap->nextw) - (Addr_t)(ap->tospBase)) + reqSzB < ap->maxSizeB)) {      && (USED_SPACE(ap) + 2*reqSzB < ap->tospSizeB)) {
529        /* here the arena has grown beyond the soft max, while it would be        /* here the arena has grown beyond the soft max, while it would be
530         * possible to fit the request within the soft max, so we force another GC.         * possible to fit the twice request within the arena, so we force
531           * another GC.
532         */         */
533          ap->reqSizeB = reqSzB;          ap->reqSizeB = reqSzB;
534          return TRUE;          return TRUE;

Legend:
Removed from v.1214  
changed lines
  Added in v.1219

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0