void MarkAllSubBagsDefault(Bag bag)
{
MarkArrayOfBags(CONST_PTR_BAG(bag), SIZE_BAG(bag) / sizeof(Bag));
}
static void MarkObjMap(Obj obj)
{
UInt size = CONST_ADDR_WORD(obj)[OBJSET_SIZE];
MarkArrayOfBags( ADDR_OBJ(obj) + OBJSET_HDRSIZE, 2 * size );
}
void MarkAllButFirstSubBags(Bag bag)
{
MarkArrayOfBags(CONST_PTR_BAG(bag) + 1, SIZE_BAG(bag) / sizeof(Bag) - 1);
}
void MarkFourSubBags(Bag bag)
{
MarkArrayOfBags(CONST_PTR_BAG(bag), 4);
}
void MarkThreeSubBags(Bag bag)
{
MarkArrayOfBags(CONST_PTR_BAG(bag), 3);
}
void MarkTwoSubBags(Bag bag)
{
MarkArrayOfBags(CONST_PTR_BAG(bag), 2);
}
void MarkOneSubBags(Bag bag)
{
MarkArrayOfBags(CONST_PTR_BAG(bag), 1);
}
