Method DebugOutput

Siv3D/src/ThirdParty/angelscript/as_bytecode.cpp:2137–2530

#ifdef AS_DEBUG
void asCByteCode::DebugOutput(const char *name, asCScriptFunction *func)
{
#ifndef __MINGW32__
	// _mkdir is broken on mingw
	_mkdir("AS_DEBUG");
#endif

	asCString path = "AS_DEBUG/";
	path += name;

	// Anonymous functions created from within class methods will contain :: as part of the name
	// Replace :: with __ to avoid error when creating the file for debug output
	for (asUINT n = 0; n < path.GetLength(); n++)
		if (path[n] == ':') path[n] = '_';

#if _MSC_VER >= 1500 && !defined(AS_MARMALADE)
	FILE *file;
	fopen_s(&file, path.AddressOf(), "w");
#else
	FILE *file = fopen(path.AddressOf(), "w");
#endif

#if !defined(AS_XENON) && !defined(__MINGW32__)
	// XBox 360: When running in DVD Emu, no write is allowed
	// MinGW: As _mkdir is broken, don't assert on file not created if the AS_DEBUG directory doesn't exist
	asASSERT( file );
#endif

	if( file == 0 )
		return;

	asUINT n;

	fprintf(file, "%s\n\n", func->GetDeclaration());

	fprintf(file, "Temps: ");
	for( n = 0; n < temporaryVariables->GetLength(); n++ )
	{
		fprintf(file, "%d", (*temporaryVariables)[n]);
		if( n < temporaryVariables->GetLength()-1 )
			fprintf(file, ", ");
	}
	fprintf(file, "\n\n");

	fprintf(file, "Variables: \n");
	for( n = 0; n < func->scriptData->variables.GetLength(); n++ )
	{
		int idx = func->scriptData->objVariablePos.IndexOf(func->scriptData->variables[n]->stackOffset);
		bool isOnHeap = asUINT(idx) < func->scriptData->objVariablesOnHeap ? true : false;
		fprintf(file, " %.3d: %s%s %s\n", func->scriptData->variables[n]->stackOffset, isOnHeap ? "(heap) " : "", func->scriptData->variables[n]->type.Format(func->nameSpace, true).AddressOf(), func->scriptData->variables[n]->name.AddressOf());
	}
	asUINT offset = 0;
	if( func->objectType )
	{
		fprintf(file, " %.3d: %s this\n", 0, func->objectType->name.AddressOf());
		offset -= AS_PTR_SIZE;
	}
	for( n = 0; n < func->parameterTypes.GetLength(); n++ )