Function CheckArray

NULLC/translation/runtime.cpp:865–924

Function that checks arrays for pointers

	// Function that checks arrays for pointers
	void CheckArray(char* ptr, const NULLCTypeInfo& type)
	{
		// Get array element type
		NULLCTypeInfo *subType = type.hash == autoArrayName ? NULL : &__nullcTypeList[type.subTypeID];
		// Real array size (changed for unsized arrays)
		unsigned int size = type.memberCount;
		// If array type is an unsized array, check pointer that points to actual array contents
		if(size == -1)
		{
			// Get real array size
			size = ((NULLCArray<void>*)ptr)->size;
			// Switch pointer to array data
			char **rPtr = (char**)ptr;
			ptr = *rPtr;
			// If uninitialized or points to stack memory, return
			if(!ptr || ptr <= (char*)0x00010000 || (ptr >= unmanageableBase && ptr <= unmanageableTop))
				return;
			GC_DEBUG_PRINT("\tGlobal pointer %p\r\n", ptr);
			// Get base pointer
			unsigned int *basePtr = (unsigned int*)NULLC::GetBasePointer(ptr);
			// If there is no base pointer or memory already marked, exit
			if(!basePtr || (*((unsigned int*)(basePtr) - 1) & 0xff))
				return;
			// Mark memory as used
			*((unsigned int*)(basePtr) - 1) |= 1;
		}else if(type.hash == autoArrayName){
			NULLCAutoArray *data = (NULLCAutoArray*)ptr;
			// Get real variable type
			subType = &__nullcTypeList[data->typeID];
			// skip uninitialized array
			if(!data->ptr)
				return;
			// Mark target data
			MarkPointer((char*)&data->ptr, *subType, false);
			// Switch pointer to target
			ptr = data->ptr;
			// Get array size
			size = data->len;
		}
		// Otherwise, check every array element is it's either array, pointer of class
		switch(subType->category)
		{
		case NULLC_ARRAY:
			for(unsigned int i = 0; i < size; i++, ptr += subType->size)
				CheckArray(ptr, *subType);
			break;
		case NULLC_POINTER:
			for(unsigned int i = 0; i < size; i++, ptr += subType->size)
				MarkPointer(ptr, *subType, true);
			break;
		case NULLC_CLASS:
			for(unsigned int i = 0; i < size; i++, ptr += subType->size)
				CheckClass(ptr, *subType);
			break;
		case NULLC_FUNCTION:
			for(unsigned int i = 0; i < size; i++, ptr += subType->size)
				CheckFunction(ptr);
			break;