polyml/libpolyml/sharedata.cpp

550         PolyObject* obj = ptrVector[i];
551         obj = gMem.SpaceForObjectAddress(obj)->writeAble(obj); // This could be code.
552         obj->SetLengthWord(lengthVector[i]); // restore genuine length word
580         PolyObject *obj = ptrVector[i];
581         if (obj->ContainsForwardingPtr())
582             obj->SetLengthWord(obj->GetForwardingPtr()->LengthWord());
624     PolyObject *obj = old.AsObjPtr();
625     POLYUNSIGNED L = obj->LengthWord();
627     if (obj->ContainsForwardingPtr()) // tombstone is a pointer to a shared object
629         PolyObject *newp = obj->GetForwardingPtr();
642     ASSERT (obj->ContainsNormalLengthWord()); // object is not shared
670     POLYUNSIGNED AddObjectToDepthVector(PolyObject *obj);
672     void PushToStack(PolyObject *obj);
688         PolyObject *obj = addStack[i];
689         if (obj->LengthWord() & _OBJ_GC_MARK)
690             obj->SetLengthWord(obj->LengthWord() & (~_OBJ_GC_MARK));
711 POLYUNSIGNED ProcessAddToVector::AddObjectToDepthVector(PolyObject *obj)
713     MemSpace *space = gMem.SpaceForObjectAddress(obj);
717     POLYUNSIGNED L = obj->LengthWord();
722     if (obj->LengthWord() & _OBJ_GC_MARK)
727     if (obj->IsMutable())
731         if (obj->IsWordObject())
735                 containsAddress = ! obj->Get(j).IsTagged();
740                 m_parent->AddToVector(0, L, obj);
742                 PushToStack(obj);
743                 obj->SetLengthWord(L | _OBJ_GC_MARK); // To prevent rescan
759         if (! bm->TestBit((PolyWord*)obj - space->bottom))
761             bm->SetBit((PolyWord*)obj - space->bottom);
762             if (! obj->IsByteObject())
763                 PushToStack(obj);
773     if (obj->IsCodeObject())
776         m_parent->AddToVector(0, L, obj);
777         PushToStack(obj);
778         gMem.SpaceForObjectAddress(obj)->writeAble(obj)->SetLengthWord(L | _OBJ_GC_MARK); // To prevent rescan
784     if (obj->IsByteObject())
786         m_parent->AddToVector (1, L, obj);// add to vector at correct depth
787         obj->SetLengthWord(OBJ_SET_DEPTH(1));
792     PushToStack(obj);
793     obj->SetLengthWord(L | _OBJ_GC_MARK); // To prevent rescan
799 void ProcessAddToVector::PushToStack(PolyObject *obj)
821     addStack[asp++] = obj;
836         PolyObject *obj = addStack[asp-1];
838         if (obj->IsCodeObject())
847             ScanAddressesInObject(obj);
850             if (obj->LengthWord() & _OBJ_GC_MARK)
851                 gMem.SpaceForObjectAddress(obj)->writeAble(obj)->SetLengthWord(OBJ_SET_DEPTH(0)); // Now scanned
856             POLYUNSIGNED length = obj->Length();
857             PolyWord *pt = (PolyWord*)obj;
860             if (obj->IsClosureObject())
869             if (((obj->LengthWord() & _OBJ_GC_MARK) && !obj->IsMutable()))
887                     obj->SetLengthWord(obj->LengthWord() & (~_OBJ_GC_MARK));
888                     m_parent->AddToVector(depth, obj->LengthWord() & (~_OBJ_GC_MARK), obj);
889                     obj->SetLengthWord(OBJ_SET_DEPTH(depth));
921                     if (obj->LengthWord() & _OBJ_GC_MARK)
922                         obj->SetLengthWord(OBJ_SET_DEPTH(0));