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

void OpcodeOthers(char *Command){
	int i,i2;
	UserProc *pUserProc;

	char leftTerm[8192];
	int lastParePos = 0;
	for(i=0;;i++){
		if(Command[i]=='\"'){
			//ダブルクォートは不正なのでエラー扱い
			leftTerm[i]=0;
			SetError(3,leftTerm,cp);
			return;
		}

		if(Command[i]=='('){
			lastParePos = i;
			i2=GetStringInPare(leftTerm+i,Command+i);
			i+=i2-1;
			continue;
		}
		if(Command[i]=='['){
			i2=GetStringInBracket(leftTerm+i,Command+i);
			i+=i2-1;
			continue;
		}
		if(Command[i]=='\0'){
			leftTerm[i] = 0;
			break;
		}

		if( IsNumCalcMark( Command, i ) ){
			leftTerm[i] = 0;
			break;
		}

		leftTerm[i]=Command[i];
	}
	if(!(
		IsVariableTopChar(leftTerm[0])||
		leftTerm[0]=='.'||
		(leftTerm[0]==1&&leftTerm[1]==ESC_PSMEM)
		)){
		SetError(1,NULL,cp);
		return;
	}


	if(Command[i]=='\0' && lastParePos == 0){
		//////////////////////////////
		// パラメータ無しのマクロ検索
		//////////////////////////////

		pUserProc=GetSubHash(Command);

		//GetSubHash内でエラー提示が行われた場合
		if(pUserProc==(UserProc *)-1) return;

		if(pUserProc==0){
			char temporary[VN_SIZE];
			lstrcpy(temporary,Command);

			CharUpper(temporary);
			pUserProc=GetSubHash(temporary);

			//GetSubHash内でエラー提示が行われた場合
			if(pUserProc==(UserProc *)-1) return;
		}

		if(pUserProc){
			if( !pUserProc->IsMacro() ){
				SetError(10,Command,cp);
			}

			Opcode_CallProc("",pUserProc,0,"",0);

			return;
		}
	}
	else if(IsNumCalcMark(Command,i)){
		//代入演算
		OpcodeCalc(Command);
		return;
	}


	Type resultType;
	bool isLiteral;
	BOOL bUseHeap;
	bool result = TermOpe( leftTerm, Type(), resultType, isLiteral, &bUseHeap, NULL, true );

	if( result ){

		/////////////////////
		// 戻り値の処理
		/////////////////////

		if( resultType.IsReal() ){
			//fstp st(0)
			OpBuffer[obp++]=(char)0xDD;
			OpBuffer[obp++]=(char)0xD8;
		}
		else if( resultType.IsStruct() ){
			//mov ebx,eax
			op_mov_RR(REG_EBX,REG_EAX);

			FreeTempObject(REG_EBX,&resultType.GetClass());
		}

		//成功
		return;
	}

	// 失敗
	SetError(1, NULL,cp);
}

void OpcodeIf(char *Parameter){
	int i,i2,i3,i4;
	Type tempType;

	for(i=0;;i++){
		if(Parameter[i]=='\0'){
			SetError(21,NULL,cp);
			return;
		}
		if(Parameter[i]==1&&Parameter[i+1]==ESC_THEN){
			Parameter[i]=0;
			break;
		}
	}

	if( !NumOpe(Parameter,Type(),tempType) ){
		//NumOpe内でエラー
		i3=-1;	//ダミー
	}
	else if( tempType.IsDouble() ){
		//fld qword ptr[esp]
		op_fld_ptr_esp(DEF_DOUBLE);

		//push 0
		op_push_V(0);

		//fild dword ptr[esp]
		op_fld_ptr_esp(DEF_LONG);

		//add esp,sizeof(double)+sizeof(long)
		op_add_esp(sizeof(double)+sizeof(long));

		//fcompp
		OpBuffer[obp++]=(char)0xDE;
		OpBuffer[obp++]=(char)0xD9;

		//fnstsw ax
		OpBuffer[obp++]=(char)0xDF;
		OpBuffer[obp++]=(char)0xE0;

		//test ah,40
		OpBuffer[obp++]=(char)0xF6;
		OpBuffer[obp++]=(char)0xC4;
		OpBuffer[obp++]=(char)0x40;

		//jne (endif、または else まで)
		OpBuffer[obp++]=(char)0x0F;
		OpBuffer[obp++]=(char)0x85;
		obp+=sizeof(long);

		//jneの番地
		i3=obp;
	}
	else if( tempType.IsSingle() ){
		//fld dword ptr[esp]
		op_fld_ptr_esp(DEF_SINGLE);

		//push 0
		op_push_V(0);

		//fild dword ptr[esp]
		op_fld_ptr_esp(DEF_LONG);

		//add esp,sizeof(float)+sizeof(long)
		op_add_esp(sizeof(float)+sizeof(long));

		//fcompp
		OpBuffer[obp++]=(char)0xDE;
		OpBuffer[obp++]=(char)0xD9;

		//fnstsw ax
		OpBuffer[obp++]=(char)0xDF;
		OpBuffer[obp++]=(char)0xE0;

		//test ah,40
		OpBuffer[obp++]=(char)0xF6;
		OpBuffer[obp++]=(char)0xC4;
		OpBuffer[obp++]=(char)0x40;

		//jne (endif、または else まで)
		OpBuffer[obp++]=(char)0x0F;
		OpBuffer[obp++]=(char)0x85;
		obp+=sizeof(long);

		//jneの番地
		i3=obp;
	}
	else if( tempType.Is64() ){
		//64ビット型

		//pop eax
		op_pop(REG_EAX);

		//pop ebx
		op_pop(REG_EBX);

		//cmp eax,0
		OpBuffer[obp++]=(char)0x83;
		OpBuffer[obp++]=(char)0xF8;
		OpBuffer[obp++]=(char)0x00;

		//jne
		OpBuffer[obp++]=(char)0x0F;
		OpBuffer[obp++]=(char)0x85;
		obp+=sizeof(long);
		i3=obp;


		//cmp ebx,0
		OpBuffer[obp++]=(char)0x83;
		OpBuffer[obp++]=(char)0xFB;
		OpBuffer[obp++]=(char)0x00;

		//jne
		OpBuffer[obp++]=(char)0x0F;
		OpBuffer[obp++]=(char)0x85;
		obp+=sizeof(long);
		i4=obp;



		//jmp (endif、または else までジャンプ)
		OpBuffer[obp++]=(char)0xE9;
		obp+=sizeof(long);

		*((long *)(OpBuffer+i3-sizeof(long)))=obp-i3;
		*((long *)(OpBuffer+i4-sizeof(long)))=obp-i4;

		//jmpの番地
		i3=obp;
	}
	else{
		//32ビット型

		//pop eax
		op_pop(REG_EAX);

		//cmp eax,0
		OpBuffer[obp++]=(char)0x83;
		OpBuffer[obp++]=(char)0xF8;
		OpBuffer[obp++]=(char)0x00;

		//je (endif、または else まで条件ジャンプ)
		OpBuffer[obp++]=(char)0x0F;
		OpBuffer[obp++]=(char)0x84;
		obp+=sizeof(long);

		//jeの番地
		i3=obp;
	}


	/////////////////////////
	// If内をコード化
	/////////////////////////

	//レキシカルスコープをレベルアップ
	obj_LexScopes.Start( obp, SCOPE_TYPE_IF );

	i2=CompileBuffer(ESC_ENDIF,0);

	//レキシカルスコープをレベルダウン
	obj_LexScopes.End();


	if(i3==-1) return;

	if(i2==ESC_ELSE){
		//jmp (endifまで)
		OpBuffer[obp++]=(char)0xE9;
		obp+=sizeof(long);

		*((long *)(OpBuffer+i3-sizeof(long)))=obp-i3;	//ifからelseへのジャンプ先のオフセット値

		i3=obp;


		/////////////////////////
		// Else内をコード化
		/////////////////////////

		//レキシカルスコープをレベルアップ
		obj_LexScopes.Start( obp, SCOPE_TYPE_IF );

		CompileBuffer(ESC_ENDIF,0);

		//レキシカルスコープをレベルダウン
		obj_LexScopes.End();


		*((long *)(OpBuffer+i3-sizeof(long)))=obp-i3;	//jmpジャンプ先のオフセット値
	}
	else{
		*((long *)(OpBuffer+i3-sizeof(long)))=obp-i3;	//jeジャンプ先のオフセット値
	}
}

int GetLabelAddress(char *LabelName,int LineNum){
	extern int MaxLabelNum;
	extern LABEL *pLabelNames;
	int i;

	if(LabelName){
		for(i=0;i<MaxLabelNum;i++){
			if(pLabelNames[i].pName){
				if(lstrcmp(LabelName,pLabelNames[i].pName)==0) return pLabelNames[i].address;
			}
		}
	}
	else{
		for(i=0;i<MaxLabelNum;i++){
			if(pLabelNames[i].pName==0){
				if(LineNum==pLabelNames[i].line) return pLabelNames[i].address;
			}
		}
	}
	return -1;
}
void OpcodeGoto(char *Parameter){
	extern HANDLE hHeap;
	extern GOTOLABELSCHEDULE *pGotoLabelSchedule;
	extern int GotoLabelScheduleNum;
	int i,LineNum;

	if(Parameter[0]=='*'){
		i=GetLabelAddress(Parameter+1,0);

		//jmp ...
		OpBuffer[obp++]=(char)0xE9;
		if(i==-1){
			pGotoLabelSchedule=(GOTOLABELSCHEDULE *)HeapReAlloc(hHeap,0,pGotoLabelSchedule,(GotoLabelScheduleNum+1)*sizeof(GOTOLABELSCHEDULE));
			pGotoLabelSchedule[GotoLabelScheduleNum].pName=(char *)HeapAlloc(hHeap,0,lstrlen(Parameter+1)+1);
			lstrcpy(pGotoLabelSchedule[GotoLabelScheduleNum].pName,Parameter+1);
			pGotoLabelSchedule[GotoLabelScheduleNum].pos=obp;
			pGotoLabelSchedule[GotoLabelScheduleNum].now_cp=cp;
			GotoLabelScheduleNum++;
		}
		*((long *)(OpBuffer+obp))=i-(obp+sizeof(long));
		obp+=sizeof(long);
	}
	else{
		LineNum=atoi(Parameter);
		i=GetLabelAddress(0,LineNum);

		//jmp ...
		OpBuffer[obp++]=(char)0xE9;
		if(i==-1){
			pGotoLabelSchedule=(GOTOLABELSCHEDULE *)HeapReAlloc(hHeap,0,pGotoLabelSchedule,(GotoLabelScheduleNum+1)*sizeof(GOTOLABELSCHEDULE));
			pGotoLabelSchedule[GotoLabelScheduleNum].pName=0;
			pGotoLabelSchedule[GotoLabelScheduleNum].line=LineNum;
			pGotoLabelSchedule[GotoLabelScheduleNum].pos=obp;
			pGotoLabelSchedule[GotoLabelScheduleNum].now_cp=cp;
			GotoLabelScheduleNum++;
		}
		*((long *)(OpBuffer+obp))=i-(obp+sizeof(long));
		obp+=sizeof(long);
	}
}
void OpcodeWhile(char *Parameter){
	extern HANDLE hHeap;
	int i2,i3 = 0;

	//Continueアドレスのバックアップとセット
	extern DWORD dwContinueAddress;
	DWORD dwTempContinue;
	dwTempContinue=dwContinueAddress;
	dwContinueAddress=obp;

	if(!Parameter[0]) SetError(10,"While",cp);

	int je_schedule;
	Type tempType;
	if( !NumOpe(Parameter,Type(),tempType) ){
		//ダミー
		i3=-1;
	}
	else if( tempType.IsDouble() ){
		//fld qword ptr[esp]
		op_fld_ptr_esp(DEF_DOUBLE);

		//push 0
		op_push_V(0);

		//fild dword ptr[esp]
		op_fld_ptr_esp(DEF_LONG);

		//add esp,sizeof(double)+sizeof(long)
		op_add_esp(sizeof(double)+sizeof(long));

		//fcompp
		OpBuffer[obp++]=(char)0xDE;
		OpBuffer[obp++]=(char)0xD9;

		//fnstsw ax
		OpBuffer[obp++]=(char)0xDF;
		OpBuffer[obp++]=(char)0xE0;

		//test ah,40
		OpBuffer[obp++]=(char)0xF6;
		OpBuffer[obp++]=(char)0xC4;
		OpBuffer[obp++]=(char)0x40;

		//jne (Wend まで)
		OpBuffer[obp++]=(char)0x0F;
		OpBuffer[obp++]=(char)0x85;
		obp+=sizeof(long);

		//jeの番地
		je_schedule=obp;
	}
	else if( tempType.IsSingle() ){
		//fld dword ptr[esp]
		op_fld_ptr_esp(DEF_SINGLE);

		//push 0
		op_push_V(0);

		//fild dword ptr[esp]
		op_fld_ptr_esp(DEF_LONG);

		//add esp,sizeof(float)+sizeof(long)
		op_add_esp(sizeof(float)+sizeof(long));

		//fcompp
		OpBuffer[obp++]=(char)0xDE;
		OpBuffer[obp++]=(char)0xD9;

		//fnstsw ax
		OpBuffer[obp++]=(char)0xDF;
		OpBuffer[obp++]=(char)0xE0;

		//test ah,40
		OpBuffer[obp++]=(char)0xF6;
		OpBuffer[obp++]=(char)0xC4;
		OpBuffer[obp++]=(char)0x40;

		//jne (Wend まで)
		OpBuffer[obp++]=(char)0x0F;
		OpBuffer[obp++]=(char)0x85;
		obp+=sizeof(long);

		//jeの番地
		je_schedule=obp;
	}
	else if( tempType.Is64() ){
		//64ビット型

		//pop eax
		op_pop(REG_EAX);

		//pop ebx
		op_pop(REG_EBX);

		//cmp eax,0
		OpBuffer[obp++]=(char)0x83;
		OpBuffer[obp++]=(char)0xF8;
		OpBuffer[obp++]=(char)0x00;

		//jne
		OpBuffer[obp++]=(char)0x0F;
		OpBuffer[obp++]=(char)0x85;
		obp+=sizeof(long);
		i2=obp;


		//cmp ebx,0
		OpBuffer[obp++]=(char)0x83;
		OpBuffer[obp++]=(char)0xFB;
		OpBuffer[obp++]=(char)0x00;

		//jne
		OpBuffer[obp++]=(char)0x0F;
		OpBuffer[obp++]=(char)0x85;
		obp+=sizeof(long);
		i3=obp;


		//jmp (endif、または else までジャンプ)
		OpBuffer[obp++]=(char)0xE9;
		obp+=sizeof(long);

		*((long *)(OpBuffer+i2-sizeof(long)))=obp-i2;
		*((long *)(OpBuffer+i3-sizeof(long)))=obp-i3;

		//jmpの番地
		je_schedule=obp;
	}
	else{
		//その他整数型

		//pop eax
		op_pop(REG_EAX);

		//cmp eax,0
		OpBuffer[obp++]=(char)0x83;
		OpBuffer[obp++]=(char)0xF8;
		OpBuffer[obp++]=(char)0x00;

		//je (Wend まで)
		OpBuffer[obp++]=(char)0x0F;
		OpBuffer[obp++]=(char)0x84;
		obp+=sizeof(long);

		//実行中の番地
		je_schedule=obp;
	}

	//レキシカルスコープをレベルアップ
	obj_LexScopes.Start( obp, SCOPE_TYPE_WHILE );

	//While内をコンパイル
	CompileBuffer(0,COM_WEND);

	obj_LexScopes.CallDestructorsOfScopeEnd();

	if( i3 == -1 ){
		return;
	}

	//jmp ...
	OpBuffer[obp++]=(char)0xE9;
	*((long *)(OpBuffer+obp))=dwContinueAddress-(obp+sizeof(long));
	obp+=sizeof(long);

	//レキシカルスコープをレベルダウン
	obj_LexScopes.End();

	*((long *)(OpBuffer+je_schedule-sizeof(long)))=obp-je_schedule;	//jeジャンプ先のオフセット値

	//Continueアドレスを復元
	dwContinueAddress=dwTempContinue;
}

char szNextVariable[VN_SIZE];
void OpcodeFor(char *Parameter){
	extern HANDLE hHeap;
	int i,i2,i3;
	char temporary[VN_SIZE],variable[VN_SIZE],JudgeNum[VN_SIZE],StepNum[VN_SIZE];

	//第１パラメータを取得
	i=GetOneParameter(Parameter,0,temporary);
	if(!Parameter[i]){
		SetError(12,"For",cp);
		goto ErrorStep;
	}

	for(i2=0;;i2++){
		if(temporary[i2]=='='){
			variable[i2]=0;

			//カウンタ初期化
			OpcodeCalc(temporary);
			break;
		}
		if(temporary[i2]=='\0'){
			SetError(12,"For",cp);
			goto ErrorStep;
		}
		variable[i2]=temporary[i2];
	}

	//jmp ...
	OpBuffer[obp++]=(char)0xE9;
	i2=obp;
	obp+=sizeof(long);

	//Continueアドレスのバックアップとセット
	extern DWORD dwContinueAddress;
	DWORD dwTempContinue;
	dwTempContinue=dwContinueAddress;
	dwContinueAddress=obp;

	//第２パラメータを取得（to〜）
	i=GetOneParameter(Parameter,i,JudgeNum);

	//第３パラメータを取得（step〜）
	if(Parameter[i]){
		i=GetOneParameter(Parameter,i,StepNum);
		if(Parameter[i]) SetError(12,"For",cp);
	}
	else lstrcpy(StepNum,"1");

	//カウンタを増加させる
	sprintf(temporary,"%s=(%s)+(%s)",variable,variable,StepNum);
	OpcodeCalc(temporary);

	*((long *)(OpBuffer+i2))=obp-(i2+sizeof(long));

	//増加か減少かを区別する
	sprintf(temporary,"(%s)>=0",StepNum);
	NumOpe(temporary,Type(),Type());

	//pop eax
	op_pop(REG_EAX);

	//cmp eax,0
	OpBuffer[obp++]=(char)0x83;
	OpBuffer[obp++]=(char)0xF8;
	OpBuffer[obp++]=(char)0x00;

	//je [カウンタ減少の場合の判定]
	OpBuffer[obp++]=(char)0x0F;
	OpBuffer[obp++]=(char)0x84;
	i2=obp;
	obp+=sizeof(long);

	//判定（カウンタ増加の場合）
	sprintf(temporary,"%s<=(%s)",variable,JudgeNum);
	NumOpe(temporary,Type(),Type());

	//pop eax
	op_pop(REG_EAX);

	//jmp [カウンタ減少の場合の判定を飛び越す]
	OpBuffer[obp++]=(char)0xE9;
	i3=obp;
	obp+=sizeof(long);

	*((long *)(OpBuffer+i2))=obp-(i2+sizeof(long)); //jeジャンプ先のオフセット値

	//判定（カウンタ減少の場合）
	sprintf(temporary,"%s>=(%s)",variable,JudgeNum);
	NumOpe(temporary,Type(),Type());

	//pop eax
	op_pop(REG_EAX);

	*((long *)(OpBuffer+i3))=obp-(i3+sizeof(long)); //jmpジャンプ先のオフセット値

	//cmp eax,0
	OpBuffer[obp++]=(char)0x83;
	OpBuffer[obp++]=(char)0xF8;
	OpBuffer[obp++]=(char)0x00;

ErrorStep:

	//je ...
	OpBuffer[obp++]=(char)0x0F;
	OpBuffer[obp++]=(char)0x84;
	int je_schedule=obp;
	obp+=sizeof(long);

	//レキシカルスコープをレベルアップ
	obj_LexScopes.Start( obp, SCOPE_TYPE_FOR );

	//For内をコンパイル
	CompileBuffer(0,COM_NEXT);

	obj_LexScopes.CallDestructorsOfScopeEnd();

	if(szNextVariable[0]){
		if(lstrcmp(szNextVariable,variable)!=0){
			SetError(55,szNextVariable,cp);
		}
	}

	//jmp ...
	OpBuffer[obp++]=(char)0xE9;
	*((long *)(OpBuffer+obp))=dwContinueAddress-(obp+sizeof(long));
	obp+=sizeof(long);

	//レキシカルスコープをレベルダウン
	obj_LexScopes.End();

	*((long *)(OpBuffer+je_schedule))=obp-(je_schedule+sizeof(long)); //jeジャンプ先のオフセット値

	//Continueアドレスを復元
	dwContinueAddress=dwTempContinue;
}

void OpcodeDo(char *Parameter){
	extern HANDLE hHeap;
	int i,i2,i3,i4;

	if(Parameter[0]) SetError(10,"Do",cp);

	//Continueアドレスのバックアップとセット
	extern DWORD dwContinueAddress;
	DWORD dwTempContinue;
	dwTempContinue=dwContinueAddress;
	dwContinueAddress=obp;

	//レキシカルスコープをレベルアップ
	obj_LexScopes.Start( obp, SCOPE_TYPE_DO );

	//Do内をコンパイル
	CompileBuffer(0,COM_LOOP);

	obj_LexScopes.CallDestructorsOfScopeEnd();

	extern char *basbuf;
	char temporary[VN_SIZE];
	for(i=cp-1;;i--){
		if(IsCommandDelimitation(basbuf[i])){
			i+=3;
			if(!(basbuf[i]=='0'||basbuf[i]=='1')){
				//無条件ループ
				break;
			}
			i3=i;

			for(i+=2,i2=0;;i++,i2++){
				if(IsCommandDelimitation(basbuf[i])){
					temporary[i2]=0;
					break;
				}
				temporary[i2]=basbuf[i];
			}

			Type tempType;
			NumOpe(temporary,Type(),tempType);

			if( tempType.IsDouble() ){
				//fld qword ptr[esp]
				op_fld_ptr_esp(DEF_DOUBLE);

				//push 0
				op_push_V(0);

				//fild dword ptr[esp]
				op_fld_ptr_esp(DEF_LONG);

				//add esp,sizeof(double)+sizeof(long)
				op_add_esp(sizeof(double)+sizeof(long));

				//fcompp
				OpBuffer[obp++]=(char)0xDE;
				OpBuffer[obp++]=(char)0xD9;

				//fnstsw ax
				OpBuffer[obp++]=(char)0xDF;
				OpBuffer[obp++]=(char)0xE0;

				//test ah,40
				OpBuffer[obp++]=(char)0xF6;
				OpBuffer[obp++]=(char)0xC4;
				OpBuffer[obp++]=(char)0x40;

				if(basbuf[i3]=='0'){
					//While

					//jne 5（ループ終了）
					OpBuffer[obp++]=(char)0x75;
					OpBuffer[obp++]=(char)0x05;
				}
				else if(basbuf[i3]=='1'){
					//Until

					//je 5（ループ終了）
					OpBuffer[obp++]=(char)0x74;
					OpBuffer[obp++]=(char)0x05;
				}
			}
			else if( tempType.IsSingle() ){
				//fld dword ptr[esp]
				op_fld_ptr_esp(DEF_SINGLE);

				//push 0
				op_push_V(0);

				//fild dword ptr[esp]
				op_fld_ptr_esp(DEF_LONG);

				//add esp,sizeof(float)+sizeof(long)
				op_add_esp(sizeof(float)+sizeof(long));

				//fcompp
				OpBuffer[obp++]=(char)0xDE;
				OpBuffer[obp++]=(char)0xD9;

				//fnstsw ax
				OpBuffer[obp++]=(char)0xDF;
				OpBuffer[obp++]=(char)0xE0;

				//test ah,40
				OpBuffer[obp++]=(char)0xF6;
				OpBuffer[obp++]=(char)0xC4;
				OpBuffer[obp++]=(char)0x40;

				if(basbuf[i3]=='0'){
					//While

					//jne 5（ループ終了）
					OpBuffer[obp++]=(char)0x75;
					OpBuffer[obp++]=(char)0x05;
				}
				else if(basbuf[i3]=='1'){
					//Until

					//je 5（ループ終了）
					OpBuffer[obp++]=(char)0x74;
					OpBuffer[obp++]=(char)0x05;
				}
			}
			else if( tempType.Is64() ){
				//64ビット型

				//pop eax
				op_pop(REG_EAX);

				//pop ebx
				op_pop(REG_EBX);

				//cmp eax,0
				OpBuffer[obp++]=(char)0x83;
				OpBuffer[obp++]=(char)0xF8;
				OpBuffer[obp++]=(char)0x00;

				//jne
				OpBuffer[obp++]=(char)0x0F;
				OpBuffer[obp++]=(char)0x85;
				obp+=sizeof(long);
				i2=obp;


				//cmp ebx,0
				OpBuffer[obp++]=(char)0x83;
				OpBuffer[obp++]=(char)0xFB;
				OpBuffer[obp++]=(char)0x00;

				//jne
				OpBuffer[obp++]=(char)0x0F;
				OpBuffer[obp++]=(char)0x85;
				obp+=sizeof(long);
				i4=obp;


				if(basbuf[i3]=='0'){
					//While

					//jmp 5（ループ終了）
					OpBuffer[obp++]=(char)0xEB;
					OpBuffer[obp++]=(char)0x05;

					*((long *)(OpBuffer+i2-sizeof(long)))=obp-i2;
					*((long *)(OpBuffer+i4-sizeof(long)))=obp-i4;
				}
				else if(basbuf[i3]=='1'){
					//Until

					//jmp 2（ループを続ける）
					OpBuffer[obp++]=(char)0xEB;
					OpBuffer[obp++]=(char)0x02;

					*((long *)(OpBuffer+i2-sizeof(long)))=obp-i2;
					*((long *)(OpBuffer+i4-sizeof(long)))=obp-i4;

					//jmp 5（ループ終了）
					OpBuffer[obp++]=(char)0xEB;
					OpBuffer[obp++]=(char)0x05;
				}
			}
			else{
				//pop eax
				op_pop(REG_EAX);

				//cmp eax,0
				OpBuffer[obp++]=(char)0x83;
				OpBuffer[obp++]=(char)0xF8;
				OpBuffer[obp++]=(char)0x00;

				if(basbuf[i3]=='0'){
					//While

					//je 5（ループ終了）
					OpBuffer[obp++]=(char)0x74;
					OpBuffer[obp++]=(char)0x05;
				}
				else if(basbuf[i3]=='1'){
					//Until

					//jne 5（ループ終了）
					OpBuffer[obp++]=(char)0x75;
					OpBuffer[obp++]=(char)0x05;
				}
			}
			break;
		}
	}

	//jmp ...
	OpBuffer[obp++]=(char)0xE9;
	*((long *)(OpBuffer+obp))=dwContinueAddress-(obp+sizeof(long));
	obp+=sizeof(long);

	//jmp ...
	OpBuffer[obp++]=(char)0xE9;
	int je_schedule=obp;
	obp+=sizeof(long);

	//レキシカルスコープをレベルダウン
	obj_LexScopes.End();

	*((long *)(OpBuffer+je_schedule))=obp-(je_schedule+sizeof(long)); //jmpジャンプ先のオフセット値


	//Continueアドレスを復元
	dwContinueAddress=dwTempContinue;
}
void OpcodeContinue(void){
	extern DWORD dwContinueAddress;

	if(dwContinueAddress==-1){
		SetError(12,"Continue",cp);
		return;
	}

	//jmp ...(Continue addr)
	OpBuffer[obp++]=(char)0xE9;

	*((long *)(OpBuffer+obp))=dwContinueAddress-(obp+sizeof(long));
	obp+=sizeof(long);
}

void OpcodeExitSub(void){
	extern DWORD *pExitSubSchedule;
	extern int ExitSubScheduleNum;
	extern HANDLE hHeap;

	if( UserProc::IsGlobalAreaCompiling() ){
		SetError(12,"Exit Sub/Function",cp);
		return;
	}

	//未解放のローカルオブジェクトのデストラクタを呼び出す
	obj_LexScopes.CallDestructorsOfReturn();

	//jmp ...(End Sub/Function)
	OpBuffer[obp++]=(char)0xE9;

	pExitSubSchedule=(DWORD *)HeapReAlloc(hHeap,0,pExitSubSchedule,(ExitSubScheduleNum+1)*sizeof(DWORD));
	pExitSubSchedule[ExitSubScheduleNum]=obp;
	ExitSubScheduleNum++;

	obp+=sizeof(long);
}

void AddCaseSchedule(void){
	extern DWORD *pCaseSchedule;
	extern int CaseScheduleNum;
	extern HANDLE hHeap;

	pCaseSchedule=(DWORD *)HeapReAlloc(hHeap,0,pCaseSchedule,(CaseScheduleNum+1)*sizeof(DWORD));
	pCaseSchedule[CaseScheduleNum]=obp;
	CaseScheduleNum++;
}

int CaseTypeSize;
void OpcodeSelect(const char *lpszParms){
	extern DWORD *pCaseSchedule;
	extern int CaseScheduleNum;
	extern int NowCaseSchedule;
	extern int CaseTypeSize;
	extern HANDLE hHeap;
	extern char *basbuf;
	int i,i2,i3,sw,NowCaseCp;
	char temporary[VN_SIZE];

	DWORD *temp_pCaseSchedule;
	int temp_CaseScheduleNum;
	int temp_NowCaseSchedule;
	int temp_CaseTypeSize;

	temp_pCaseSchedule=pCaseSchedule;
	temp_CaseScheduleNum=CaseScheduleNum;
	temp_NowCaseSchedule=NowCaseSchedule;
	temp_CaseTypeSize=CaseTypeSize;
	pCaseSchedule=(DWORD *)HeapAlloc(hHeap,0,1);
	CaseScheduleNum=0;
	NowCaseSchedule=0;

	Type type1;
	if( !NumOpe(lpszParms,Type(), type1 ) ){
		return;
	}

	CaseTypeSize = type1.GetSize();
	if( CaseTypeSize < sizeof(long) ){
		CaseTypeSize=sizeof(long);
	}

	for(i=cp,sw=0;;i++){
		if(basbuf[i]=='\0'){
			HeapDefaultFree(pCaseSchedule);
			pCaseSchedule=temp_pCaseSchedule;
			CaseScheduleNum=temp_CaseScheduleNum;
			NowCaseSchedule=temp_NowCaseSchedule;
			CaseTypeSize=temp_CaseTypeSize;
			SetError(22,"Select",cp);
			return;
		}
		if(basbuf[i]==1&&basbuf[i+1]==ESC_SELECTCASE){
			for(i2=0;;i++){
				if(basbuf[i]==1&&basbuf[i+1]==ESC_SELECTCASE) i2++;
				if(basbuf[i]==1&&basbuf[i+1]==ESC_ENDSELECT){
					i2--;
					if(i2==0) break;
				}
			}
			continue;
		}
		if(basbuf[i]==1&&basbuf[i+1]==ESC_ENDSELECT){
			if(sw==0){
				//add esp,CaseTypeSize
				op_add_esp(CaseTypeSize);
			}
			break;
		}
		if(basbuf[i]==1&&basbuf[i+1]==ESC_CASE){
			NowCaseCp=i;

			i++;
			while(1){
				for(i++,i2=0;;i++,i2++){
					if(basbuf[i]=='\"'){
						i3=GetStringInQuotation(temporary+i2,basbuf+i);
						i+=i3-1;
						i2+=i3-1;
						continue;
					}
					if(basbuf[i]=='('){
						i3=GetStringInPare(temporary+i2,basbuf+i);
						i+=i3-1;
						i2+=i3-1;
						continue;
					}
					if(basbuf[i]=='['){
						i3=GetStringInBracket(temporary+i2,basbuf+i);
						i+=i3-1;
						i2+=i3-1;
						continue;
					}

					if(IsCommandDelimitation(basbuf[i])){
						temporary[i2]=0;
						break;
					}
					if(basbuf[i]==','){
						temporary[i2]=0;
						break;
					}

					temporary[i2]=basbuf[i];
				}

				//エラー用
				i2=cp;
				cp=NowCaseCp;

				Type type2;
				if( !NumOpe(temporary,type1,type2) ){
					return;
				}

				cp=i2;

				if(type1.IsObject()){
					std::vector<UserProc *> subs;
					type1.GetClass().EnumMethod( CALC_EQUAL, subs );
					if( subs.size() == 0 ){
						return;
					}

					Parameters params;
					params.push_back( new Parameter( "", Type( type2 ) ) );

					//オーバーロードを解決
					UserProc *pUserProc;
					pUserProc=OverloadSolution("==",subs, params, NULL);

					delete params[0];

					if(!pUserProc){
						//エラー
						return;
					}


					//pop edx
					op_pop(REG_EDX);

					//mov ecx,dword ptr[esp]
					op_mov_RM(sizeof(long),REG_ECX,REG_ESP,0,MOD_BASE);

					//push edx
					op_push(REG_EDX);

					//push ecx
					op_push(REG_ECX);

					//call operator_proc	※ ==演算子
					op_call(pUserProc);

					//test eax,eax
					op_test(REG_EAX,REG_EAX);

					//jne ...
					OpBuffer[obp++]=(char)0x0F;
					OpBuffer[obp++]=(char)0x85;
					AddCaseSchedule();
					obp+=sizeof(long);
				}
				else if(type1.IsDouble()){
					ChangeTypeToDouble(type2.GetBasicType());

					//fld qword ptr[esp]
					op_fld_ptr_esp(DEF_DOUBLE);

					//add esp,CaseTypeSize
					op_add_esp(CaseTypeSize);

					//fld qword ptr[esp]
					op_fld_ptr_esp(DEF_DOUBLE);

					//fcompp
					OpBuffer[obp++]=(char)0xDE;
					OpBuffer[obp++]=(char)0xD9;

					//fnstsw ax
					OpBuffer[obp++]=(char)0xDF;
					OpBuffer[obp++]=(char)0xE0;

					//test ah,40
					OpBuffer[obp++]=(char)0xF6;
					OpBuffer[obp++]=(char)0xC4;
					OpBuffer[obp++]=(char)0x40;

					//jne ...
					OpBuffer[obp++]=(char)0x0F;
					OpBuffer[obp++]=(char)0x85;
					AddCaseSchedule();
					obp+=sizeof(long);
				}
				else if(type1.IsSingle()){
					ChangeTypeToSingle(type2.GetBasicType());

					//fld dword ptr[esp]
					op_fld_ptr_esp(DEF_SINGLE);

					//add esp,CaseTypeSize
					op_add_esp(CaseTypeSize);

					//fld dword ptr[esp]
					op_fld_ptr_esp(DEF_SINGLE);

					//fcompp
					OpBuffer[obp++]=(char)0xDE;
					OpBuffer[obp++]=(char)0xD9;

					//fnstsw ax
					OpBuffer[obp++]=(char)0xDF;
					OpBuffer[obp++]=(char)0xE0;

					//test ah,40
					OpBuffer[obp++]=(char)0xF6;
					OpBuffer[obp++]=(char)0xC4;
					OpBuffer[obp++]=(char)0x40;

					//jne ...
					OpBuffer[obp++]=(char)0x0F;
					OpBuffer[obp++]=(char)0x85;
					AddCaseSchedule();
					obp+=sizeof(long);
				}
				else{
					//その他整数型

					//pop ebx
					op_pop(REG_EBX);

					//mov eax,dword ptr[esp]
					OpBuffer[obp++]=(char)0x8B;
					OpBuffer[obp++]=(char)0x04;
					OpBuffer[obp++]=(char)0x24;

					//cmp eax,ebx
					OpBuffer[obp++]=(char)0x3B;
					OpBuffer[obp++]=(char)0xC3;

					//je ...
					OpBuffer[obp++]=(char)0x0F;
					OpBuffer[obp++]=(char)0x84;
					AddCaseSchedule();
					obp+=sizeof(long);
				}

				if(basbuf[i]!=',') break;
			}
		}
		if(basbuf[i]==1&&basbuf[i+1]==ESC_CASEELSE){
			sw=1;

			//jmp ...
			OpBuffer[obp++]=(char)0xE9;
			AddCaseSchedule();
			obp+=sizeof(long);
		}
	}

	//レキシカルスコープをレベルアップ
	obj_LexScopes.Start( obp, SCOPE_TYPE_SELECT );

	//Select Case内をコンパイル
	CompileBuffer(ESC_ENDSELECT,0);

	//jmp EndSelect
	OpBuffer[obp++]=(char)0xE9;
	AddCaseSchedule();
	obp+=sizeof(long);

	//最終スケジュール
	for(i=NowCaseSchedule;i<CaseScheduleNum;i++){
		*(long *)(OpBuffer+pCaseSchedule[i])=obp-(pCaseSchedule[i]+sizeof(long));
	}
	HeapDefaultFree(pCaseSchedule);

	//レキシカルスコープをレベルダウン
	obj_LexScopes.End();

	pCaseSchedule=temp_pCaseSchedule;
	CaseScheduleNum=temp_CaseScheduleNum;
	NowCaseSchedule=temp_NowCaseSchedule;
	CaseTypeSize=temp_CaseTypeSize;
}
void OpcodeCase(char *Parameter){
	extern DWORD *pCaseSchedule;
	extern int NowCaseSchedule;
	extern int CaseTypeSize;
	int i;

	if(!pCaseSchedule){
		SetError(30,"Case",cp);
		return;
	}

	//jmp EndSelect
	OpBuffer[obp++]=(char)0xE9;
	AddCaseSchedule();
	obp+=sizeof(long);

	i=0;
	while(1){
		//Caseスケジュール
		*(long *)(OpBuffer+pCaseSchedule[NowCaseSchedule])=obp-(pCaseSchedule[NowCaseSchedule]+sizeof(long));
		NowCaseSchedule++;

		i=JumpOneParameter(Parameter,i);
		if(Parameter[i]=='\0') break;
	}

	//add esp,CaseTypeSize
	op_add_esp(CaseTypeSize);
}

void OpcodeGosub(char *Parameter){
	extern HANDLE hHeap;
	extern GOTOLABELSCHEDULE *pGotoLabelSchedule;
	extern int GotoLabelScheduleNum;
	int i,LineNum;

	if(Parameter[0]=='*'){
		i=GetLabelAddress(Parameter+1,0);

		//call ...
		OpBuffer[obp++]=(char)0xE8;
		if(i==-1){
			pGotoLabelSchedule=(GOTOLABELSCHEDULE *)HeapReAlloc(hHeap,0,pGotoLabelSchedule,(GotoLabelScheduleNum+1)*sizeof(GOTOLABELSCHEDULE));
			pGotoLabelSchedule[GotoLabelScheduleNum].pName=(char *)HeapAlloc(hHeap,0,lstrlen(Parameter+1)+1);
			lstrcpy(pGotoLabelSchedule[GotoLabelScheduleNum].pName,Parameter+1);
			pGotoLabelSchedule[GotoLabelScheduleNum].pos=obp;
			pGotoLabelSchedule[GotoLabelScheduleNum].now_cp=cp;
			GotoLabelScheduleNum++;
		}
		*((long *)(OpBuffer+obp))=i-(obp+sizeof(long));
		obp+=sizeof(long);
	}
	else{
		LineNum=atoi(Parameter);
		i=GetLabelAddress(0,LineNum);

		//call ...
		OpBuffer[obp++]=(char)0xE8;
		if(i==-1){
			pGotoLabelSchedule=(GOTOLABELSCHEDULE *)HeapReAlloc(hHeap,0,pGotoLabelSchedule,(GotoLabelScheduleNum+1)*sizeof(GOTOLABELSCHEDULE));
			pGotoLabelSchedule[GotoLabelScheduleNum].pName=0;
			pGotoLabelSchedule[GotoLabelScheduleNum].line=LineNum;
			pGotoLabelSchedule[GotoLabelScheduleNum].pos=obp;
			pGotoLabelSchedule[GotoLabelScheduleNum].now_cp=cp;
			GotoLabelScheduleNum++;
		}
		*((long *)(OpBuffer+obp))=i-(obp+sizeof(long));
		obp+=sizeof(long);
	}
}
void OpcodeReturn(char *Parameter){
	if( UserProc::IsGlobalAreaCompiling() ){
		//Gosub〜Returnとして扱う

		//ret
		OpBuffer[obp++]=(char)0xC3;
	}
	else{
		//戻り値をセット
		if(Parameter[0]){
			UserProc &proc = UserProc::CompilingUserProc();

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

			char temporary[VN_SIZE];
			sprintf(temporary,"%s=%s",temp,Parameter);
			OpcodeCalc(temporary);
		}

		//プロシージャを抜け出す（C言語のreturnと同様の処理を行う）
		OpcodeExitSub();
	}
}


////////////
// ポインタ

void OpcodeSetPtrData(char *Parameter,int type){
	int i;
	char temporary[VN_SIZE];

	if(Parameter[0]=='('){
		i=JumpStringInPare(Parameter,1);
		if(Parameter[i+1]=='\0'){
			for(i=0;;i++){
				Parameter[i]=Parameter[i+1];
				if(Parameter[i]=='\0') break;
			}
			Parameter[i-1]=0;
		}
	}

	//第１パラメータを取得
	i=GetOneParameter(Parameter,0,temporary);
	if(!Parameter[i]){
		SetError(1,NULL,cp);
		return;
	}

	Type resultType;
	if( !NumOpe(temporary,Type(),resultType) ){
		return;
	}
	if(!resultType.IsWhole()){
		SetError(11,Parameter,cp);
		return;
	}

	ChangeTypeToLong( resultType.GetBasicType() );

	//第２パラメータを取得
	i=GetOneParameter(Parameter,i,temporary);
	if(Parameter[i]){
		SetError(1,NULL,cp);
		return;
	}

	if( !NumOpe(temporary,Type(),resultType) ){
		return;
	}

	if(type==DEF_DOUBLE){
		ChangeTypeToDouble_ToFpuReg( resultType.GetBasicType() );

		//pop eax
		op_pop(REG_EAX);

		//fstp qword ptr[eax]
		OpBuffer[obp++]=(char)0xDD;
		OpBuffer[obp++]=(char)0x18;
	}
	else if(type==DEF_SINGLE){
		ChangeTypeToSingle( resultType.GetBasicType() );

		//pop ebx
		op_pop(REG_EBX);

		//pop eax
		op_pop(REG_EAX);

		//mov dword ptr[eax],ebx
		OpBuffer[obp++]=(char)0x89;
		OpBuffer[obp++]=(char)0x18;
	}
	else if(type==DEF_QWORD){
		ChangeTypeToInt64( resultType.GetBasicType() );

		//pop ecx
		op_pop(REG_ECX);

		//pop ebx
		op_pop(REG_EBX);

		//pop eax
		op_pop(REG_EAX);

		//mov dword ptr[eax],ecx
		OpBuffer[obp++]=(char)0x89;
		OpBuffer[obp++]=(char)0x08;

		//mov dword ptr[eax+sizeof(long)],ebx
		OpBuffer[obp++]=(char)0x89;
		OpBuffer[obp++]=(char)0x58;
		OpBuffer[obp++]=(char)0x04;
	}
	else if(type==DEF_DWORD){
		ChangeTypeToLong( resultType.GetBasicType() );

		//pop ebx
		op_pop(REG_EBX);

		//pop eax
		op_pop(REG_EAX);

		//mov dword ptr[eax],ebx
		OpBuffer[obp++]=(char)0x89;
		OpBuffer[obp++]=(char)0x18;
	}
	else if(type==DEF_WORD){
		ChangeTypeToLong( resultType.GetBasicType() );

		//pop ebx
		op_pop(REG_EBX);

		//pop eax
		op_pop(REG_EAX);

		//mov word ptr[eax],bx
		OpBuffer[obp++]=(char)0x66;
		OpBuffer[obp++]=(char)0x89;
		OpBuffer[obp++]=(char)0x18;
	}
	else if(type==DEF_BYTE){
		ChangeTypeToLong( resultType.GetBasicType() );

		//pop ebx
		op_pop(REG_EBX);

		//pop eax
		op_pop(REG_EAX);

		//mov byte ptr[eax],bl
		OpBuffer[obp++]=(char)0x88;
		OpBuffer[obp++]=(char)0x18;
	}
}