Method FixupArray

NULLC/Executor.cpp:2015–2079

}

void Executor::FixupArray(char* ptr, const ExternTypeInfo& type)
{
	ExternTypeInfo *subType = type.nameHash == ExPriv::autoArrayName ? NULL : &exTypes[type.subType];
	unsigned int size = type.arrSize;
	if(type.arrSize == TypeInfo::UNSIZED_ARRAY)
	{
		// Get real array size
		size = *(int*)(ptr + NULLC_PTR_SIZE);
		// Switch pointer to array data
		char **rPtr = (char**)ptr;

		// If it points to stack, fix it and return
		if(*rPtr >= ExPriv::oldBase && *rPtr < (ExPriv::oldBase + ExPriv::oldSize))
		{
			*rPtr = *rPtr - ExPriv::oldBase + ExPriv::newBase;
			return;
		}
		ptr = *rPtr;
		// If uninitialized, return
		if(!ptr || ptr <= (char*)0x00010000)
			return;
		// Get base pointer
		unsigned int *basePtr = (unsigned int*)NULLC::GetBasePointer(ptr);
		markerType *marker = (markerType*)((char*)basePtr - sizeof(markerType));
		// If there is no base pointer or memory already marked, exit
		if(!basePtr || !(*marker & 1))
			return;
		// Mark memory as used
		*marker &= ~1;
	}else if(type.nameHash == ExPriv::autoArrayName){
		NULLCAutoArray *data = (NULLCAutoArray*)ptr;
		// Get real variable type
		subType = &exTypes[data->typeID];
		// skip uninitialized array
		if(!data->ptr)
			return;
		// Mark target data
		FixupPointer(data->ptr, *subType);
		// Switch pointer to target
		ptr = data->ptr;
		// Get array size
		size = data->len;
	}
	if(!subType->pointerCount)
		return;
	switch(subType->subCat)
	{
	case ExternTypeInfo::CAT_ARRAY:
		for(unsigned int i = 0; i < size; i++, ptr += subType->size)
			FixupArray(ptr, *subType);
		break;
	case ExternTypeInfo::CAT_POINTER:
		for(unsigned int i = 0; i < size; i++, ptr += subType->size)
			FixupPointer(ptr, *subType);
		break;
	case ExternTypeInfo::CAT_CLASS:
		for(unsigned int i = 0; i < size; i++, ptr += subType->size)
			FixupClass(ptr, *subType);