Function CloseUpvalues

NULLC/Executor_Common.cpp:68–103

}

void CloseUpvalues(char* paramBase, unsigned int depth, unsigned int argument)
{
	assert(depth);
	// Array of upvalue lists
	ExternFuncInfo::Upvalue **externalList = &NULLC::commonLinker->exCloseLists[0];
	for(unsigned i = 0; i < depth; i++)
	{
		// Current upvalue and previous
		ExternFuncInfo::Upvalue *curr = externalList[argument + i];
		// While we have an upvalue that points to address larger than base (so that in recursive function call only last functions upvalues will be closed)
		while(curr && ((char*)curr->ptr >= paramBase || (char*)curr->ptr < GC::unmanageableBase))
		{
			// Save pointer to next upvalue
			ExternFuncInfo::Upvalue *next = curr->next;
			// And save the size of target variable
			unsigned int size = curr->size;
			
			// Delete upvalue from list (move global list head to the next element)
			externalList[argument] = curr->next;

			// If target value is placed on the heap, we skip copy because it won't die
			if((char*)curr->ptr < GC::unmanageableBase || (char*)curr->ptr >= GC::unmanageableTop)
			{
				curr = next;
				continue;
			}

			// Copy target variable data to upvalue
			memcpy(&curr->next, curr->ptr, size);
			curr->ptr = (unsigned int*)&curr->next;

			// Proceed to the next upvalue
			curr = next;
		}
	}
}

ExternTypeInfo*	GetTypeList()
{