#include "stdafx.h"

#include <jenga/include/smoothie/Smoothie.h>

#include <Program.h>
#include <Compiler.h>
#include <Class.h>

#include "../BasicCompiler_Common/common.h"
#include "Opcode.h"

void SystemProc( const UserProc &userProc ){
	if( userProc.GetName() == "_System_GetEip" ){
		//mov rax,qword ptr[rsp]
		compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RAX,REG_RSP,0,MOD_BASE);

		//ret
		compiler.codeGenerator.op_ret();
	}
	else if( userProc.GetName() == "_System_InitDllGlobalVariables" ){
		////////////////////////////////////////
		// DLLのグローバル領域をコンパイル
		////////////////////////////////////////
		if(!compiler.IsDll()){
			//ret
			compiler.codeGenerator.op_ret();

			return;
		}

		const UserProc *pBackUserProc = &UserProc::CompilingUserProc();
		UserProc::CompileStartForGlobalArea();

		int BackCp;
		BackCp=cp;
		cp=-1;

		//sub rsp,スタックフレームサイズ
		const PertialSchedule *pStackFramePertialSchedule = compiler.codeGenerator.op_sub_rsp( 0, true );

		if( compiler.IsDebug() )
		{
			//デバッグ用の変数を定義
			DebugVariable();
		}

		//GC用の変数を定義
		InitGCVariables();

		//_System_StartupProgramの呼び出し
		extern const UserProc *pSub_System_StartupProgram;
		compiler.codeGenerator.op_call(pSub_System_StartupProgram);

		//クラスに属する静的メンバを定義
		compiler.GetObjectModule().meta.GetClasses().InitStaticMember();

		GetGlobalDataForDll();

		//add rsp,スタックフレームサイズ
		compiler.codeGenerator.op_add_RV(REG_RSP,pobj_sf->GetFrameSize(0));

		//スタックフレームスケジュール（subコマンドに渡す値）
		compiler.codeGenerator.opfix( pStackFramePertialSchedule, pobj_sf->GetFrameSize(0) );

		UserProc::CompileStartForUserProc( pBackUserProc );
		cp=BackCp;

		//ret
		compiler.codeGenerator.op_ret();
	}
	else if( userProc.GetName() == "_System_InitStaticLocalVariables" ){
		//静的ローカルオブジェクトのコンストラクタ呼び出し

		//sub rsp,スタックフレームサイズ
		const PertialSchedule *pStackFramePertialSchedule = compiler.codeGenerator.op_sub_rsp( 0, true );

		BOOST_FOREACH( Variable *pVar, compiler.GetObjectModule().meta.GetGlobalVars() ){
			if(memicmp(pVar->GetName().c_str(),"Static%",7)==0){
				//コンストラクタ呼び出し
				if( pVar->GetType().IsObject() ){

					//エラー用
					cp=pVar->source_code_address;

					CallConstructor(
						pVar->GetName().c_str(),
						pVar->GetSubscripts(),
						pVar->GetType(),
						pVar->GetParamStrForConstructor().c_str());
				}
			}
		}

		//add rsp,スタックフレームサイズ
		compiler.codeGenerator.op_add_RV(REG_RSP,pobj_sf->GetFrameSize(0));

		//スタックフレームスケジュール（subコマンドに渡す値）
		compiler.codeGenerator.opfix( pStackFramePertialSchedule, pobj_sf->GetFrameSize(0) );

		//ret
		compiler.codeGenerator.op_ret();
	}
	else if( userProc.GetName() == "_System_Call_Destructor_of_GlobalObject" ){
		//sub rsp,8（※RSPを16バイト境界にあわせるため）
		compiler.codeGenerator.op_sub_rsp(0x8);


		const UserProc *pBackUserProc = &UserProc::CompilingUserProc();
		UserProc::CompileStartForGlobalArea();

		compiler.codeGenerator.lexicalScopes.CallDestructorsOfScopeEnd();

		UserProc::CompileStartForUserProc( pBackUserProc );


		//add rsp,8
		compiler.codeGenerator.op_add_RV(REG_RSP,0x8);

		//ret
		compiler.codeGenerator.op_ret();
	}
	else{
		SetError();
	}
}
void AutoGeneration(const UserProc &userProc){
	if( userProc.GetName() == "InitializeUserTypes"
		&& userProc.HasParentClass()
		&& userProc.GetParentClass().GetName() == "_System_TypeBase" )
	{
		compiler.GetObjectModule().meta.GetClasses().Compile_System_InitializeUserTypes();
	}
	else if( userProc.GetName() == "InitializeUserTypesForBaseType"
		&& userProc.HasParentClass()
		&& userProc.GetParentClass().GetName() == "_System_TypeBase" )
	{
		compiler.GetObjectModule().meta.GetClasses().Compile_System_InitializeUserTypesForBaseType();
	}
	else if( userProc.GetName() == "RegisterGlobalRoots"
		&& userProc.HasParentClass()
		&& userProc.GetParentClass().GetName() == "_System_CGarbageCollection" )
	{
		Compile_AddGlobalRootsForGc();
	}
	else if( userProc.GetName() == compiler.globalAreaProcName ){
		////////////////////////////////////////
		// グローバル領域をコンパイル
		////////////////////////////////////////

		UserProc::pGlobalProc = &userProc;

		const UserProc *pBackUserProc = &UserProc::CompilingUserProc();
		UserProc::CompileStartForGlobalArea();

		int BackCp = cp;
		cp=-1;

		//クラスに属する静的メンバを定義
		compiler.GetObjectModule().meta.GetClasses().InitStaticMember();

		//グローバル実行領域をコンパイル開始
		CompileBuffer(0,0);

		//Goto未知ラベルスケジュールが存在したらエラーにする
		BOOST_FOREACH( const GotoLabelSchedule *pGotoLabelSchedule, compiler.codeGenerator.gotoLabelSchedules )
		{
			if(pGotoLabelSchedule->GetName().size()>0){
				SetError(6,pGotoLabelSchedule->GetName(),pGotoLabelSchedule->GetSourceCodePos());
			}
			else{
				char temporary[255];
				sprintf(temporary,"%d",pGotoLabelSchedule->GetLineNum());
				SetError(6,temporary,pGotoLabelSchedule->GetSourceCodePos());
			}
		}

		UserProc::CompileStartForUserProc( pBackUserProc );
		cp=BackCp;
	}
	else if( userProc.HasParentClass()
		&& userProc.IsCastOperator()
		&& userProc.ReturnType().IsInterface() )
	{
		// インターフェイス型にキャストするためのメソッド

		int vtblMasterListIndex = userProc.GetParentClass().GetVtblMasterListIndex( &userProc.ReturnType().GetClass() );

		char temporary[1024];
		sprintf( temporary,
			"Return New %s(ObjPtr( This ),Get_LONG_PTR( (Get_LONG_PTR( ObjPtr(This)+SizeOf(VoidPtr) ) + SizeOf(LONG_PTR)*%d) As VoidPtr ) As VoidPtr )",
			userProc.ReturnType().GetClass().GetName().c_str(),
			vtblMasterListIndex
		);
		MakeMiddleCode( temporary );

		ChangeOpcode( temporary );
	}
	else{
		SetError();
	}
}
void _compile_proc(const UserProc *pUserProc){
	extern char *basbuf;
	extern HANDLE hHeap;
	int i3,i4;
	char temporary[VN_SIZE];

	if( pUserProc->GetLocalVars().size() ){
		SetError();
		return;
	}

	trace_for_sourcecodestep( "★★★ " << pUserProc->GetFullName() << "のコンパイルを開始" );

	pUserProc->CompleteCompile();

	extern BOOL bSystemProc;
	if(memcmp(pUserProc->GetName().c_str(),"_System_",8)==0) bSystemProc=1;
	else bSystemProc=0;

	extern BOOL bDebugSupportProc;
	if(memcmp(pUserProc->GetName().c_str(),"_DebugSys_",10)==0){
		if( !compiler.IsDebug() )
		{
			return;
		}
		bDebugSupportProc=1;
	}
	else bDebugSupportProc=0;

	//コンパイル中の関数が属するクラス
	compiler.pCompilingClass=pUserProc->GetParentClassPtr();

	//コンパイルスタートをクラス管理クラスに追加
	compiler.GetObjectModule().meta.GetClasses().StartCompile( pUserProc );

	//コンパイル中の関数
	UserProc::CompileStartForUserProc( pUserProc );

	// コンパイル中の関数が属する名前空間
	compiler.GetNamespaceSupporter().SetLivingNamespaceScopes( pUserProc->GetNamespaceScopes() );

	// コンパイル中の関数でImportsされている名前空間
	compiler.GetNamespaceSupporter().SetImportedNamespaces( pUserProc->GetImportedNamespaces() );

	// コード生成対象を選択
	compiler.codeGenerator.Select( (const_cast<UserProc *>(pUserProc))->GetNativeCode() );

	if(pUserProc->IsSystem()){
		////////////////////
		// 特殊関数
		////////////////////

		extern int AllLocalVarSize;
		AllLocalVarSize=0;

		//スタックフレーム管理用オブジェクトを初期化
		extern StackFrame *pobj_sf;
		pobj_sf=new StackFrame();

		SystemProc(*pUserProc);

		//スタックフレーム管理用オブジェクトを破棄
		delete pobj_sf;
		pobj_sf=0;

		return;
	}

	if( !pUserProc->IsAutoGeneration() )
	{
		cp=pUserProc->GetCodePos();
		for(;;cp++){
			if(IsCommandDelimitation(basbuf[cp])) break;
		}
		cp--;
	}

	//プロシージャ抜け出しスケジュール（Exit Sub/Function）
	compiler.codeGenerator.exitSubCodePositions.clear();

	//ラベル用のメモリを確保
	compiler.codeGenerator.gotoLabels.clear();

	//Gotoラベルスケジュール
	compiler.codeGenerator.gotoLabelSchedules.clear();

	//With情報のメモリを確保
	extern WITHINFO WithInfo;
	WithInfo.ppName=(char **)HeapAlloc(hHeap,0,1);
	WithInfo.pWithCp=(int *)HeapAlloc(hHeap,0,1);
	WithInfo.num=0;

	//重複エラー情報管理のメモリを確保
	extern char **SynonymErrorWords;
	extern int SynonymErrorNum;
	SynonymErrorNum=0;
	SynonymErrorWords=(char **)HeapAlloc(hHeap,0,1);

	//Continueアドレスを初期化
	compiler.codeGenerator.ClearContinueArea();

	//ローカル変数に関する情報
	extern int AllLocalVarSize;
	AllLocalVarSize=0;

	//レキシカルスコープ情報を初期化
	compiler.codeGenerator.lexicalScopes.Init( compiler.codeGenerator.GetNativeCodeSize() );


	/////////////////////////////////////
	// パラメータ用の変数データを考慮
	/////////////////////////////////////

	//パラメータ用の変数データを考慮
	for(i3=(int)pUserProc->RealParams().size()-1;i3>=0;i3--){
		Parameter &param = *pUserProc->RealParams()[i3];

		Variable *pVar = new Variable( param.GetVarName(), param, false, param.IsRef(), "", false );

		if( param.IsArray() ){
			pVar->SetArray( param.GetSubscripts() );
		}

		int varSize;
		if( param.IsRef() == false && param.IsStruct() ){
			//構造体のByValパラメータ
			pVar->ThisIsParameter();
			varSize=PTR_SIZE;
		}
		else{
			if( param.IsArray() == false ){
				varSize = pVar->GetMemorySize();
			}
			else{
				varSize=PTR_SIZE;
			}
		}
		AllLocalVarSize+=varSize;
		pVar->SetOffsetAddress( AllLocalVarSize );

		//レキシカルスコープ情報
		pVar->SetScopeLevel( compiler.codeGenerator.lexicalScopes.GetNowLevel() );
		pVar->SetScopeStartAddress( compiler.codeGenerator.lexicalScopes.GetStartAddress() );
		pVar->isLiving = true;

		pUserProc->GetLocalVars().push_back( pVar );
	}

	//Thisポインタを示すローカルオフセット値をセット
	extern int LocalVar_ThisPtrOffset;
	LocalVar_ThisPtrOffset=AllLocalVarSize;

	//スタックフレーム管理用クラスを初期化
	extern StackFrame *pobj_sf;
	pobj_sf=new StackFrame();


	///////////////////////
	// ここからコード生成

	for(i3=(int)pUserProc->RealParams().size()-1;i3>=0;i3--){
		Parameter &param = *pUserProc->RealParams()[i3];
		if(i3==3){
			if(param.IsReal()&&param.IsRef() == false){
				//movsd qword ptr[rsp+0x20],xmm3
				compiler.codeGenerator.op_movsd_MR(REG_XMM3,REG_RSP,0x20,MOD_BASE_DISP32);
			}
			else{
				//mov qword ptr[rsp+0x20],r9
				compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_R9,REG_RSP,0x20,MOD_BASE_DISP32);
			}
		}
		if(i3==2){
			if(param.IsReal()&&param.IsRef() == false){
				//movsd qword ptr[rsp+0x18],xmm2
				compiler.codeGenerator.op_movsd_MR(REG_XMM2,REG_RSP,0x18,MOD_BASE_DISP32);
			}
			else{
				//mov qword ptr[rsp+0x18],r8
				compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_R8,REG_RSP,0x18,MOD_BASE_DISP32);
			}
		}
		if(i3==1){
			if(param.IsReal()&&param.IsRef() == false){
				//movsd qword ptr[rsp+0x10],xmm1
				compiler.codeGenerator.op_movsd_MR(REG_XMM1,REG_RSP,0x10,MOD_BASE_DISP32);
			}
			else{
				//mov qword ptr[rsp+0x10],rdx
				compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_RDX,REG_RSP,0x10,MOD_BASE_DISP32);
			}
		}
		if(i3==0){
			if(param.IsReal()&&param.IsRef() == false){
				//movsd qword ptr[rsp+0x8],xmm0
				compiler.codeGenerator.op_movsd_MR(REG_XMM0,REG_RSP,0x8,MOD_BASE_DISP32);
			}
			else{
				//mov qword ptr[rsp+0x8],rcx
				compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_RCX,REG_RSP,0x8,MOD_BASE_DISP32);
			}
		}
	}

	//ret用のアドレスを考慮
	AllLocalVarSize+=sizeof(_int64);

	//sub rsp,スタックフレームサイズ
	const PertialSchedule *pStackFramePertialSchedule = compiler.codeGenerator.op_sub_rsp( 0, true );

	//mov qword ptr[rsp+offset],reg     ※スタックフレームを利用
	pobj_sf->push(REG_RBX);
	pobj_sf->push(REG_RSI);
	pobj_sf->push(REG_RDI);
	pobj_sf->push(REG_R12);
	pobj_sf->push(REG_R13);
	pobj_sf->push(REG_R14);
	pobj_sf->push(REG_R15);

	//ローカル変数のベース値
	int BaseLocalVar;
	BaseLocalVar=AllLocalVarSize;

	if( !pUserProc->ReturnType().IsNull() ){
		//戻り値が存在するとき

		const char *temp = pUserProc->GetName().c_str();
		if( temp[0]==1&&temp[1]==ESC_OPERATOR ){
			temp = "_System_ReturnValue";
		}

		if( pUserProc->ReturnType().IsStruct() ){
			//戻り値用の構造体（値型）はパラメータで引き渡される
		}
		else{
			if( pUserProc->ReturnType().IsObject() ){
				sprintf(temporary,"%s=Nothing%c%c%s",temp,1,ESC_AS, compiler.TypeToString( pUserProc->ReturnType() ).c_str() );
			}
			else{
				//戻り値用の変数の定義
				sprintf(temporary,"%s%c%c%s",temp,1,ESC_AS, compiler.TypeToString( pUserProc->ReturnType() ).c_str() );
			}

			OpcodeDim(temporary,0);
		}
	}

	const PertialSchedule *pRspOffsetPertialSchedule1 = NULL;
	const PertialSchedule *pRspOffsetPertialSchedule2 = NULL;
	if( compiler.IsDebug() && bDebugSupportProc == 0 )
	{
		//mov rdx, qword ptr[rsp+スタックフレームサイズ]
		pRspOffsetPertialSchedule1 = compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RDX,REG_RSP,0,MOD_BASE_DISP32, Schedule::None, true );

		//mov rcx,rsp
		compiler.codeGenerator.op_mov_RR(REG_RCX,REG_RSP);

		//add rcx,スタックフレームサイズ+sizeof(_int64) ※ret用のサイズを考慮
		pRspOffsetPertialSchedule2 = compiler.codeGenerator.op_add_RV(REG_RCX,0, Schedule::None, true );

		//call _DebugSys_StartProc
		extern const UserProc *pSub_DebugSys_StartProc;
		compiler.codeGenerator.op_call(pSub_DebugSys_StartProc);
	}

	if(compiler.pCompilingClass){
		if( pUserProc->GetName() == compiler.pCompilingClass->GetName() ){
			////////////////////////////////////
			// コンストラクタをコンパイルするとき
			////////////////////////////////////

			//コンストラクタのコンパイル開始を通知
			compiler.pCompilingClass->NotifyStartConstructorCompile();

			//基底クラスかどうかの識別
			//（継承元がインターフェイスの場合も基底クラスと見なす）
			BOOL bThisIsSuperClass;
			if( !compiler.pCompilingClass->HasSuperClass() ) bThisIsSuperClass=1;
			else if( compiler.pCompilingClass->GetSuperClass().GetConstructorMethod() == NULL ){
				//インターフェイスを継承したときはコンストラクタを持たない
				bThisIsSuperClass=1;
			}
			else bThisIsSuperClass=0;

			if(!bThisIsSuperClass){
				/* サブクラスコンストラクタをコンパイルしているときは、
					基底クラスのコンストラクタを呼び出す */

				i3=cp+1;
				while(IsCommandDelimitation(basbuf[i3])) i3++;
				for(i4=0;;i3++,i4++){
					if(!IsVariableChar(basbuf[i3])){
						temporary[i4]=0;
						break;
					}
					temporary[i4]=basbuf[i3];
				}
				if( compiler.pCompilingClass->GetSuperClass().GetName() == temporary ){
					//基底クラスのコンストラクタを呼び出す
					cp=i3;
					for(i4=0;;cp++,i4++){
						if(IsCommandDelimitation(basbuf[cp])){
							temporary[i4]=0;
							break;
						}
						temporary[i4]=basbuf[cp];
					}
					if(!(temporary[0]=='('&&temporary[lstrlen(temporary)-1]==')')){
						SetError(1,NULL,cp);
					}
					RemoveStringPare(temporary);

					Type dummyType;
					CallProc( PROC_DEFAULT
						, &compiler.pCompilingClass->GetSuperClass().GetConstructorMethod()->GetUserProc()
						, compiler.pCompilingClass->GetSuperClass().GetConstructorMethod()->GetUserProc().GetName().c_str()
						, temporary
						, Type()		// baseTypeはなし
						, dummyType
					);
				}
				else{
					//基底クラスのコンストラクタを暗黙的に呼び出す
					Opcode_CallProc("",
						&compiler.pCompilingClass->GetSuperClass().GetConstructorMethod()->GetUserProc(),
						0,
						"");
				}
			}
		}
		else if( pUserProc->IsDestructor() ){
			//デストラクタをコンパイルしたとき

			//デストラクタのコンパイル開始を通知
			compiler.pCompilingClass->NotifyStartDestructorCompile();
		}
	}

	//////////////////////////////////////////
	//////////////////////////////////////////
	////// プロシージャ内をコンパイル ////////
	if( pUserProc->IsAutoGeneration() ){
		AutoGeneration( *pUserProc );
	}
	else{
		if(pUserProc->IsMacro()){
			CompileBuffer(ESC_ENDMACRO,0);
		}
		else{
			if(pUserProc->IsSub()){
				CompileBuffer(ESC_ENDSUB,0);
			}
			else if(pUserProc->IsFunction()){
				CompileBuffer(ESC_ENDFUNCTION,0);
			}
		}
	}
	//////////////////////////////////////////
	//////////////////////////////////////////

	if( compiler.pCompilingClass ){

		if( compiler.pCompilingClass->IsCompilingConstructor() ){
			// コンストラクタをコンパイルしていたとき

			// コンストラクタのコンパイルが完了したことを通知
			compiler.pCompilingClass->NotifyFinishConstructorCompile();
		}
		else if( pUserProc->IsDestructor() ){
			////////////////////////////////////
			//デストラクタをコンパイルしたとき
			////////////////////////////////////

			// デストラクタのコンパイルが完了したことを通知
			compiler.pCompilingClass->NotifyFinishDestructorCompile();

			if( compiler.pCompilingClass->HasSuperClass() ){
				/* サブクラスのデストラクタをコンパイルしているときは、
					基底クラスのデストラクタを呼び出す */

				const CMethod *method = compiler.pCompilingClass->GetSuperClass().GetDestructorMethod();
				if( method ){
					Opcode_CallProc("",
						&method->GetUserProc(),
						0,
						"");
				}
			}
		}
	}

	// Tryスコープの検証
	Exception::InspectTryScope();

	//With情報のメモリを解放
	for(i3=0;i3<WithInfo.num;i3++){
		SetError(22,"With",WithInfo.pWithCp[i3]);
		HeapDefaultFree(WithInfo.ppName[i3]);
	}
	HeapDefaultFree(WithInfo.ppName);
	HeapDefaultFree(WithInfo.pWithCp);

	//ローカルオブジェクト（レキシカルスコープレベル=0）の解放処理
	compiler.codeGenerator.lexicalScopes.CallDestructorsOfScopeEnd();

	//プロシージャ抜け出しスケジュール（Exit Sub/Function）
	compiler.codeGenerator.ResolveExitSubSchedule();

	if( compiler.IsDebug() && bDebugSupportProc == 0 )
	{
		//call _DebugSys_EndProc
		extern const UserProc *pSub_DebugSys_EndProc;
		compiler.codeGenerator.op_call(pSub_DebugSys_EndProc);
	}

	if( !pUserProc->ReturnType().IsNull() ){
		//////////////////////////////////
		// 戻り値をraxまたはxmm0に設定
		//////////////////////////////////

		RELATIVE_VAR RelativeVar;

		const char *temp = pUserProc->GetName().c_str();
		if( temp[0]==1 && temp[1]==ESC_OPERATOR ){
			temp="_System_ReturnValue";
		}
		GetVarOffsetReadWrite(temp,&RelativeVar,Type());

		const Type &returnType = pUserProc->ReturnType();
		if( returnType.IsObject() || returnType.IsStruct() )
		{
			SetVarPtrToReg(REG_RAX,&RelativeVar);
			if( returnType.IsObject() )
			{
				//mov rax,qword ptr[rax]
				compiler.codeGenerator.op_mov_RM( sizeof(_int64), REG_RAX, REG_RAX, 0, MOD_BASE );
			}
		}
		else if( returnType.IsDouble() )
		{
			//64ビット実数型
			SetXmmReg_DoubleVariable(&RelativeVar,REG_XMM0);
		}
		else if( returnType.IsSingle() )
		{
			//32ビット実数型
			SetXmmReg_SingleVariable(&RelativeVar,REG_XMM0);
		}
		else if( returnType.IsWhole() )
		{
			//整数型
			SetReg_WholeVariable(returnType,&RelativeVar,REG_RAX);
		}
		else SetError(300,NULL,cp);
	}

	//ローカル変数領域のサイズをスタックフレームに通知
	int localParmSize = AllLocalVarSize - BaseLocalVar;
	int stackFrameSize = pobj_sf->GetFrameSize( localParmSize );

	//ローカル変数アドレススケジュール
	BOOST_FOREACH( const PertialSchedule *pPertialSchedule, compiler.codeGenerator.localVarPertialSchedules )
	{
		compiler.codeGenerator.opfix_offset( pPertialSchedule, AllLocalVarSize + stackFrameSize );
	}
	compiler.codeGenerator.localVarPertialSchedules.clear();
	BOOST_FOREACH( Variable *pVar, pUserProc->GetLocalVars() ){
		//後にデバッグで利用する
		pVar->SetOffsetAddress(
			AllLocalVarSize + stackFrameSize - pVar->GetOffsetAddress()
		);
	}

	//mov reg,qword ptr[rsp+offset]     ※スタックフレームを利用
	pobj_sf->pop(REG_R15);
	pobj_sf->pop(REG_R14);
	pobj_sf->pop(REG_R13);
	pobj_sf->pop(REG_R12);
	pobj_sf->pop(REG_RDI);
	pobj_sf->pop(REG_RSI);
	pobj_sf->pop(REG_RBX);

	int stackFrameAndLocalParamSize = localParmSize + stackFrameSize;

	//add rsp,スタックフレームサイズ
	compiler.codeGenerator.op_add_rsp(stackFrameAndLocalParamSize);

	//ret
	compiler.codeGenerator.op_ret();


	//デバッグ用
	if( pRspOffsetPertialSchedule1 ){
		compiler.codeGenerator.opfix( pRspOffsetPertialSchedule1, stackFrameAndLocalParamSize );
		compiler.codeGenerator.opfix( pRspOffsetPertialSchedule2, stackFrameAndLocalParamSize + sizeof(_int64) );
	}


	//スタックフレームスケジュール（subコマンド）
	compiler.codeGenerator.opfix( pStackFramePertialSchedule, stackFrameAndLocalParamSize );

	//スタックフレームスケジュールを実行
	pobj_sf->RunningSchedule( stackFrameSize );
	delete pobj_sf;
	pobj_sf=0;


	//重複エラー情報管理のメモリを解放
	for(i3=0;i3<SynonymErrorNum;i3++) HeapDefaultFree(SynonymErrorWords[i3]);
	HeapDefaultFree(SynonymErrorWords);
}