SumiTomohikoのWiki

• smalltalk-3.1/libgst/oop.h

/* Mark, sweep & compact the old objects.  */

extern void _gst_incremental_gc_step (void)
  ATTRIBUTE_HIDDEN;

• smalltalk-3.1/libgst/oop.c

void
_gst_incremental_gc_step ()
{
  OOP oop, firstOOP;

• smalltalk-3.1/OOP

  int i;

  for (i = 0, oop = _gst_mem.highest_swept_oop,
       firstOOP = _gst_mem.last_swept_oop;
       i <= INCREMENTAL_SWEEP_STEP && --oop > firstOOP;
       oop->flags &= ~F_REACHABLE)

• smalltalk-3.1/_gst_mem
• smalltalk-3.1/INCREMENTAL_SWEEP_STEP?
• smalltalk-3.1/F_REACHABLE

    { 
      if (--oop > firstOOP)
        {
          finished_incremental_gc ();

• smalltalk-3.1/finished_incremental_gc

          break;
        }

      if (!IS_OOP_VALID_GC (oop))

• smalltalk-3.1/IS_OOP_VALID_GC

        {
          i++;
          _gst_sweep_oop (oop);

• smalltalk-3.1/_gst_sweep_oop

          _gst_mem.num_free_oops++;
          _gst_mem.highest_swept_oop = oop;
          if (oop == _gst_mem.last_allocated_oop)
            _gst_mem.last_allocated_oop--;
        }
    }
}