Context Navigation

source: dev/trunk/ab5.0/abdev/compiler_x64/Compile_ProcOp.cpp@ 709

Last change on this file since 709 was 709, checked in by dai_9181, 16 years ago
#185への対応。インターフェイス型にキャストするためのメソッドを自動生成する際、対象のインターフェイスの名前解決が正常に行われない不具合を修正。
File size: 20.0 KB

Rev	Line
[206]	1	#include "stdafx.h"
	2
[3]	3	#include "Opcode.h"
	4
[86]	5	void SystemProc( const UserProc &userProc ){
	6	if( userProc.GetName() == "_System_GetEip" ){
[3]	7	//mov rax,qword ptr[rsp]
[226]	8	compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RAX,REG_RSP,0,MOD_BASE);
[3]	9
	10	//ret
[226]	11	compiler.codeGenerator.op_ret();
[3]	12	}
[86]	13	else if( userProc.GetName() == "_System_InitDllGlobalVariables" ){
[3]	14	////////////////////////////////////////
	15	// DLLのグローバル領域をコンパイル
	16	////////////////////////////////////////
[266]	17	if(!compiler.IsDll()){
[3]	18	//ret
[226]	19	compiler.codeGenerator.op_ret();
[3]	20
	21	return;
	22	}
	23
	24	int BackCp;
	25	BackCp=cp;
	26	cp=-1;
	27
	28	//sub rsp,スタックフレームサイズ
[255]	29	const PertialSchedule *pStackFramePertialSchedule = compiler.codeGenerator.op_sub_rsp( 0, true );
[3]	30
[460]	31	if( compiler.IsDebug() )
	32	{
[3]	33	//デバッグ用の変数を定義
	34	DebugVariable();
	35	}
	36
	37	//GC用の変数を定義
	38	InitGCVariables();
	39
[129]	40	//_System_StartupProgramの呼び出し
[206]	41	extern const UserProc *pSub_System_StartupProgram;
[226]	42	compiler.codeGenerator.op_call(pSub_System_StartupProgram);
[129]	43
[42]	44	//クラスに属する静的メンバを定義
[584]	45	ActiveBasic::Compiler::ProcedureGenerator::Generate_InitStaticMember(
	46	compiler.GetObjectModule().meta.GetClasses()
	47	);
[42]	48
[3]	49	GetGlobalDataForDll();
	50
	51	//add rsp,スタックフレームサイズ
[226]	52	compiler.codeGenerator.op_add_RV(REG_RSP,pobj_sf->GetFrameSize(0));
[3]	53
	54	//スタックフレームスケジュール（subコマンドに渡す値）
[255]	55	compiler.codeGenerator.opfix( pStackFramePertialSchedule, pobj_sf->GetFrameSize(0) );
[3]	56
	57	cp=BackCp;
	58
	59	//ret
[226]	60	compiler.codeGenerator.op_ret();
[3]	61	}
[86]	62	else if( userProc.GetName() == "_System_InitStaticLocalVariables" ){
[3]	63	//静的ローカルオブジェクトのコンストラクタ呼び出し
	64
	65	//sub rsp,スタックフレームサイズ
[255]	66	const PertialSchedule *pStackFramePertialSchedule = compiler.codeGenerator.op_sub_rsp( 0, true );
[3]	67
[266]	68	BOOST_FOREACH( Variable *pVar, compiler.GetObjectModule().meta.GetGlobalVars() ){
[75]	69	if(memicmp(pVar->GetName().c_str(),"Static%",7)==0){
[3]	70	//コンストラクタ呼び出し
[206]	71	if( pVar->GetType().IsObject() ){
[3]	72
	73	//エラー用
[75]	74	cp=pVar->source_code_address;
[3]	75
[50]	76	CallConstructor(
[75]	77	pVar->GetName().c_str(),
[206]	78	pVar->GetSubscripts(),
	79	pVar->GetType(),
	80	pVar->GetParamStrForConstructor().c_str());
[3]	81	}
	82	}
	83	}
	84
	85	//add rsp,スタックフレームサイズ
[226]	86	compiler.codeGenerator.op_add_RV(REG_RSP,pobj_sf->GetFrameSize(0));
[3]	87
	88	//スタックフレームスケジュール（subコマンドに渡す値）
[255]	89	compiler.codeGenerator.opfix( pStackFramePertialSchedule, pobj_sf->GetFrameSize(0) );
[3]	90
	91	//ret
[226]	92	compiler.codeGenerator.op_ret();
[3]	93	}
[643]	94	else if( userProc.GetName() == "_System_Call_Destructor_of_GlobalObject" )
	95	{
[3]	96	//sub rsp,8（※RSPを16バイト境界にあわせるため）
[226]	97	compiler.codeGenerator.op_sub_rsp(0x8);
[254]	98	compiler.codeGenerator.lexicalScopes.CallDestructorsOfScopeEnd();
[3]	99
	100	//add rsp,8
[226]	101	compiler.codeGenerator.op_add_RV(REG_RSP,0x8);
[3]	102
	103	//ret
[226]	104	compiler.codeGenerator.op_ret();
[3]	105	}
[90]	106	else{
[468]	107	compiler.errorMessenger.OutputFatalError();
[90]	108	}
	109	}
[206]	110	void AutoGeneration(const UserProc &userProc){
[90]	111	if( userProc.GetName() == "InitializeUserTypes"
[89]	112	&& userProc.HasParentClass()
[353]	113	&& userProc.GetParentClass().GetName() == "_System_TypeBase" )
	114	{
[584]	115	ActiveBasic::Compiler::ProcedureGenerator::Generate_System_InitializeUserTypes(
	116	compiler.GetObjectModule().meta.GetClasses()
	117	);
[86]	118	}
[355]	119	else if( userProc.GetName() == "InitializeUserTypesForBaseType"
	120	&& userProc.HasParentClass()
	121	&& userProc.GetParentClass().GetName() == "_System_TypeBase" )
	122	{
[584]	123	ActiveBasic::Compiler::ProcedureGenerator::Generate_System_InitializeUserTypesForBaseType(
	124	compiler.GetObjectModule().meta.GetClasses()
	125	);
[355]	126	}
[95]	127	else if( userProc.GetName() == "RegisterGlobalRoots"
	128	&& userProc.HasParentClass()
[353]	129	&& userProc.GetParentClass().GetName() == "_System_CGarbageCollection" )
	130	{
	131	Compile_AddGlobalRootsForGc();
[95]	132	}
[643]	133	else if( userProc.GetName() == compiler.globalAreaProcName )
	134	{
[309]	135	////////////////////////////////////////
	136	// グローバル領域をコンパイル
	137	////////////////////////////////////////
	138
[364]	139	UserProc::pGlobalProc = &userProc;
	140
[309]	141	int BackCp = cp;
	142	cp=-1;
	143
	144	//クラスに属する静的メンバを定義
[584]	145	ActiveBasic::Compiler::ProcedureGenerator::Generate_InitStaticMember(
	146	compiler.GetObjectModule().meta.GetClasses()
	147	);
[309]	148
	149	//グローバル実行領域をコンパイル開始
	150	CompileBuffer(0,0);
	151
	152	//Goto未知ラベルスケジュールが存在したらエラーにする
	153	BOOST_FOREACH( const GotoLabelSchedule *pGotoLabelSchedule, compiler.codeGenerator.gotoLabelSchedules )
	154	{
	155	if(pGotoLabelSchedule->GetName().size()>0){
[468]	156	compiler.errorMessenger.Output(6,pGotoLabelSchedule->GetName(),pGotoLabelSchedule->GetSourceCodePos());
[309]	157	}
	158	else{
	159	char temporary[255];
	160	sprintf(temporary,"%d",pGotoLabelSchedule->GetLineNum());
[468]	161	compiler.errorMessenger.Output(6,temporary,pGotoLabelSchedule->GetSourceCodePos());
[309]	162	}
	163	}
	164
	165	cp=BackCp;
	166	}
[350]	167	else if( userProc.HasParentClass()
	168	&& userProc.IsCastOperator()
	169	&& userProc.ReturnType().IsInterface() )
	170	{
	171	// インターフェイス型にキャストするためのメソッド
	172
	173	int vtblMasterListIndex = userProc.GetParentClass().GetVtblMasterListIndex( &userProc.ReturnType().GetClass() );
	174
	175	char temporary[1024];
	176	sprintf( temporary,
[370]	177	"Return New %s(ObjPtr( This ),Get_LONG_PTR( (Get_LONG_PTR( ObjPtr(This)+SizeOf(VoidPtr) ) + SizeOf(LONG_PTR)*%d) As VoidPtr ) As VoidPtr )",
[709]	178	userProc.ReturnType().GetClass().GetFullName().c_str(),
[350]	179	vtblMasterListIndex
	180	);
	181	MakeMiddleCode( temporary );
	182
	183	ChangeOpcode( temporary );
	184	}
[86]	185	else{
[468]	186	compiler.errorMessenger.OutputFatalError();
[86]	187	}
[3]	188	}
[206]	189	void _compile_proc(const UserProc *pUserProc){
[3]	190	extern char *basbuf;
	191	extern HANDLE hHeap;
[76]	192	int i3,i4;
[3]	193	char temporary[VN_SIZE];
	194
[206]	195	if( pUserProc->GetLocalVars().size() ){
[468]	196	compiler.errorMessenger.OutputFatalError();
[76]	197	return;
	198	}
	199
[633]	200	trace_for_sourcecodestep( "★★★ " << FormatEscapeSequenceStringToDefaultString( pUserProc->GetFullName() ) << "のコンパイルを開始" );
[206]	201
[75]	202	pUserProc->CompleteCompile();
[3]	203
	204	extern BOOL bDebugSupportProc;
[75]	205	if(memcmp(pUserProc->GetName().c_str(),"_DebugSys_",10)==0){
[460]	206	if( !compiler.IsDebug() )
	207	{
[3]	208	return;
	209	}
	210	bDebugSupportProc=1;
	211	}
	212	else bDebugSupportProc=0;
	213
[584]	214	compiler.StartProcedureCompile( pUserProc );
[89]	215
[643]	216	if(pUserProc->IsAutoGenerationSystem()){
[3]	217	////////////////////
	218	// 特殊関数
	219	////////////////////
	220
	221	extern int AllLocalVarSize;
	222	AllLocalVarSize=0;
	223
	224	//スタックフレーム管理用オブジェクトを初期化
[308]	225	extern StackFrame *pobj_sf;
	226	pobj_sf=new StackFrame();
[3]	227
[86]	228	SystemProc(*pUserProc);
[3]	229
	230	//スタックフレーム管理用オブジェクトを破棄
	231	delete pobj_sf;
	232	pobj_sf=0;
	233
	234	return;
	235	}
	236
[353]	237	if( !pUserProc->IsAutoGeneration() )
	238	{
[643]	239	// 対象のソースコードを含むオブジェクトモジュールのインデックスを指定する
	240	// ※テンプレート展開がされている場合、対象のソースコードが現在のオブジェクトモジュールではない場合がある
	241	compiler.SetCurrentRelationalObjectModuleIndexForSource( pUserProc->GetSourceCodePosition().GetRelationalObjectModuleIndex() );
	242	basbuf = const_cast<char *>(compiler.GetCurrentSource().GetBuffer());
	243
[633]	244	cp=pUserProc->GetSourceCodePosition().GetPos();
[353]	245	for(;;cp++){
	246	if(IsCommandDelimitation(basbuf[cp])) break;
	247	}
	248	cp--;
[3]	249	}
	250
	251	//プロシージャ抜け出しスケジュール（Exit Sub/Function）
[254]	252	compiler.codeGenerator.exitSubCodePositions.clear();
[3]	253
	254	//ラベル用のメモリを確保
[262]	255	compiler.codeGenerator.gotoLabels.clear();
[3]	256
	257	//Gotoラベルスケジュール
[254]	258	compiler.codeGenerator.gotoLabelSchedules.clear();
[3]	259
[685]	260	//With情報を初期化
	261	extern WithInfos withInfos;
	262	withInfos.clear();
[3]	263
	264	//Continueアドレスを初期化
[242]	265	compiler.codeGenerator.ClearContinueArea();
[3]	266
	267	//ローカル変数に関する情報
	268	extern int AllLocalVarSize;
	269	AllLocalVarSize=0;
	270
	271	//レキシカルスコープ情報を初期化
[308]	272	compiler.codeGenerator.lexicalScopes.Init( compiler.codeGenerator.GetNativeCodeSize() );
[3]	273
	274
	275	/////////////////////////////////////
	276	// パラメータ用の変数データを考慮
	277	/////////////////////////////////////
	278
[75]	279	//パラメータ用の変数データを考慮
	280	for(i3=(int)pUserProc->RealParams().size()-1;i3>=0;i3--){
	281	Parameter &param = *pUserProc->RealParams()[i3];
[3]	282
[584]	283	Variable *pVar = new Variable(
	284	ActiveBasic::Compiler::LexicalAnalyzer::FullNameToSymbol( param.GetVarName().c_str() ),
	285	param,
	286	false,
	287	param.IsRef(),
	288	"",
	289	false
	290	);
[3]	291
[75]	292	if( param.IsArray() ){
[206]	293	pVar->SetArray( param.GetSubscripts() );
[3]	294	}
	295
[75]	296	int varSize;
	297	if( param.IsRef() == false && param.IsStruct() ){
[64]	298	//構造体のByValパラメータ
[677]	299	pVar->ThisIsByValStructParameter();
[75]	300	varSize=PTR_SIZE;
[3]	301	}
	302	else{
[75]	303	if( param.IsArray() == false ){
	304	varSize = pVar->GetMemorySize();
[3]	305	}
	306	else{
[75]	307	varSize=PTR_SIZE;
[3]	308	}
	309	}
[75]	310	AllLocalVarSize+=varSize;
[206]	311	pVar->SetOffsetAddress( AllLocalVarSize );
[3]	312
	313	//レキシカルスコープ情報
[254]	314	pVar->SetScopeLevel( compiler.codeGenerator.lexicalScopes.GetNowLevel() );
	315	pVar->SetScopeStartAddress( compiler.codeGenerator.lexicalScopes.GetStartAddress() );
[392]	316	pVar->isLiving = true;
[3]	317
[206]	318	pUserProc->GetLocalVars().push_back( pVar );
[3]	319	}
	320
	321	//Thisポインタを示すローカルオフセット値をセット
	322	extern int LocalVar_ThisPtrOffset;
	323	LocalVar_ThisPtrOffset=AllLocalVarSize;
	324
	325	//スタックフレーム管理用クラスを初期化
[308]	326	extern StackFrame *pobj_sf;
	327	pobj_sf=new StackFrame();
[3]	328
	329
	330	///////////////////////
	331	// ここからコード生成
	332
[75]	333	for(i3=(int)pUserProc->RealParams().size()-1;i3>=0;i3--){
	334	Parameter &param = *pUserProc->RealParams()[i3];
[3]	335	if(i3==3){
[75]	336	if(param.IsReal()&&param.IsRef() == false){
[3]	337	//movsd qword ptr[rsp+0x20],xmm3
[226]	338	compiler.codeGenerator.op_movsd_MR(REG_XMM3,REG_RSP,0x20,MOD_BASE_DISP32);
[3]	339	}
	340	else{
	341	//mov qword ptr[rsp+0x20],r9
[226]	342	compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_R9,REG_RSP,0x20,MOD_BASE_DISP32);
[3]	343	}
	344	}
	345	if(i3==2){
[75]	346	if(param.IsReal()&&param.IsRef() == false){
[3]	347	//movsd qword ptr[rsp+0x18],xmm2
[226]	348	compiler.codeGenerator.op_movsd_MR(REG_XMM2,REG_RSP,0x18,MOD_BASE_DISP32);
[3]	349	}
	350	else{
	351	//mov qword ptr[rsp+0x18],r8
[226]	352	compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_R8,REG_RSP,0x18,MOD_BASE_DISP32);
[3]	353	}
	354	}
	355	if(i3==1){
[75]	356	if(param.IsReal()&&param.IsRef() == false){
[3]	357	//movsd qword ptr[rsp+0x10],xmm1
[226]	358	compiler.codeGenerator.op_movsd_MR(REG_XMM1,REG_RSP,0x10,MOD_BASE_DISP32);
[3]	359	}
	360	else{
	361	//mov qword ptr[rsp+0x10],rdx
[226]	362	compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_RDX,REG_RSP,0x10,MOD_BASE_DISP32);
[3]	363	}
	364	}
	365	if(i3==0){
[75]	366	if(param.IsReal()&&param.IsRef() == false){
[3]	367	//movsd qword ptr[rsp+0x8],xmm0
[226]	368	compiler.codeGenerator.op_movsd_MR(REG_XMM0,REG_RSP,0x8,MOD_BASE_DISP32);
[3]	369	}
	370	else{
	371	//mov qword ptr[rsp+0x8],rcx
[226]	372	compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_RCX,REG_RSP,0x8,MOD_BASE_DISP32);
[3]	373	}
	374	}
	375	}
	376
	377	//ret用のアドレスを考慮
	378	AllLocalVarSize+=sizeof(_int64);
	379
	380	//sub rsp,スタックフレームサイズ
[255]	381	const PertialSchedule *pStackFramePertialSchedule = compiler.codeGenerator.op_sub_rsp( 0, true );
[3]	382
	383	//mov qword ptr[rsp+offset],reg ※スタックフレームを利用
	384	pobj_sf->push(REG_RBX);
	385	pobj_sf->push(REG_RSI);
	386	pobj_sf->push(REG_RDI);
	387	pobj_sf->push(REG_R12);
	388	pobj_sf->push(REG_R13);
	389	pobj_sf->push(REG_R14);
	390	pobj_sf->push(REG_R15);
	391
	392	//ローカル変数のベース値
	393	int BaseLocalVar;
	394	BaseLocalVar=AllLocalVarSize;
	395
[75]	396	if( !pUserProc->ReturnType().IsNull() ){
[3]	397	//戻り値が存在するとき
	398
[75]	399	const char *temp = pUserProc->GetName().c_str();
	400	if( temp[0]==1&&temp[1]==ESC_OPERATOR ){
	401	temp = "_System_ReturnValue";
	402	}
[3]	403
[75]	404	if( pUserProc->ReturnType().IsStruct() ){
[64]	405	//戻り値用の構造体（値型）はパラメータで引き渡される
[3]	406	}
	407	else{
[89]	408	if( pUserProc->ReturnType().IsObject() ){
[308]	409	sprintf(temporary,"%s=Nothing%c%c%s",temp,1,ESC_AS, compiler.TypeToString( pUserProc->ReturnType() ).c_str() );
[89]	410	}
	411	else{
	412	//戻り値用の変数の定義
[308]	413	sprintf(temporary,"%s%c%c%s",temp,1,ESC_AS, compiler.TypeToString( pUserProc->ReturnType() ).c_str() );
[89]	414	}
[40]	415
[3]	416	OpcodeDim(temporary,0);
	417	}
	418	}
	419
[255]	420	const PertialSchedule *pRspOffsetPertialSchedule1 = NULL;
	421	const PertialSchedule *pRspOffsetPertialSchedule2 = NULL;
[460]	422	if( compiler.IsDebug() && bDebugSupportProc == 0 )
	423	{
[3]	424	//mov rdx, qword ptr[rsp+スタックフレームサイズ]
[255]	425	pRspOffsetPertialSchedule1 = compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RDX,REG_RSP,0,MOD_BASE_DISP32, Schedule::None, true );
[3]	426
	427	//mov rcx,rsp
[226]	428	compiler.codeGenerator.op_mov_RR(REG_RCX,REG_RSP);
[3]	429
	430	//add rcx,スタックフレームサイズ+sizeof(_int64) ※ret用のサイズを考慮
[255]	431	pRspOffsetPertialSchedule2 = compiler.codeGenerator.op_add_RV(REG_RCX,0, Schedule::None, true );
[3]	432
	433	//call _DebugSys_StartProc
[206]	434	extern const UserProc *pSub_DebugSys_StartProc;
[226]	435	compiler.codeGenerator.op_call(pSub_DebugSys_StartProc);
[3]	436	}
	437
[584]	438	if( compiler.IsCompilingClass() ){
	439	if( pUserProc->GetName() == compiler.GetCompilingClass().GetName() ){
[3]	440	////////////////////////////////////
	441	// コンストラクタをコンパイルするとき
	442	////////////////////////////////////
	443
[17]	444	//コンストラクタのコンパイル開始を通知
[584]	445	compiler.GetCompilingClass().NotifyStartConstructorCompile();
[17]	446
[704]	447	if( compiler.GetCompilingClass().HasSuperClass() )
	448	{
[3]	449	/* サブクラスコンストラクタをコンパイルしているときは、
[27]	450	基底クラスのコンストラクタを呼び出す */
[3]	451
	452	i3=cp+1;
	453	while(IsCommandDelimitation(basbuf[i3])) i3++;
	454	for(i4=0;;i3++,i4++){
	455	if(!IsVariableChar(basbuf[i3])){
	456	temporary[i4]=0;
	457	break;
	458	}
	459	temporary[i4]=basbuf[i3];
	460	}
[584]	461	if( compiler.GetCompilingClass().GetSuperClass().GetName() == temporary ){
[27]	462	//基底クラスのコンストラクタを呼び出す
[3]	463	cp=i3;
	464	for(i4=0;;cp++,i4++){
	465	if(IsCommandDelimitation(basbuf[cp])){
	466	temporary[i4]=0;
	467	break;
	468	}
	469	temporary[i4]=basbuf[cp];
	470	}
	471	if(!(temporary[0]=='('&&temporary[lstrlen(temporary)-1]==')')){
[468]	472	compiler.errorMessenger.Output(1,NULL,cp);
[3]	473	}
	474	RemoveStringPare(temporary);
	475
[704]	476
	477	////////////////////////
	478	// オーバーロードを解決
	479	////////////////////////
	480
	481	std::vector<const UserProc *> subs;
	482	compiler.GetCompilingClass().GetSuperClass().GetDynamicMethods().Enum( compiler.GetCompilingClass().GetSuperClass().GetName().c_str(), subs );
	483
	484	const UserProc *pUserProc = NULL;
	485	if( subs.size() > 0 )
	486	{
	487	//オーバーロードを解決
	488	pUserProc=OverloadSolutionWithStrParam( compiler.GetCompilingClass().GetSuperClass().GetName().c_str(),
	489	subs,temporary,"");
	490	}
	491	if( !pUserProc )
	492	{
	493	compiler.errorMessenger.Output(1,NULL,cp);
	494	}
	495	else
	496	{
	497	Type dummyType;
	498	CallProc( PROC_DEFAULT
	499	, pUserProc
	500	, pUserProc->GetName().c_str()
	501	, temporary
	502	, Type() // baseTypeはなし
	503	, dummyType
	504	, true
	505	, PROCFLAG_PERMIT_CONSTRUCTOR
	506	);
	507	}
[3]	508	}
	509	else{
[704]	510	if( compiler.GetCompilingClass().GetSuperClass().GetConstructorMethod() != NULL )
	511	{
	512	// 基底クラスがデフォルトコンストラクタを保有するとき
	513
	514	// 基底クラスのコンストラクタを暗黙的に呼び出す
	515	Opcode_CallProc("",
	516	&compiler.GetCompilingClass().GetSuperClass().GetConstructorMethod()->GetUserProc(),
	517	PROCFLAG_PERMIT_CONSTRUCTOR,
	518	""
	519	);
	520	}
[3]	521	}
	522	}
	523	}
[75]	524	else if( pUserProc->IsDestructor() ){
[18]	525	//デストラクタをコンパイルしたとき
	526
	527	//デストラクタのコンパイル開始を通知
[584]	528	compiler.GetCompilingClass().NotifyStartDestructorCompile();
[18]	529	}
[3]	530	}
	531
	532	//////////////////////////////////////////
	533	//////////////////////////////////////////
	534	////// プロシージャ内をコンパイル ////////
[90]	535	if( pUserProc->IsAutoGeneration() ){
	536	AutoGeneration( *pUserProc );
	537	}
[75]	538	else{
[90]	539	if(pUserProc->IsMacro()){
	540	CompileBuffer(ESC_ENDMACRO,0);
	541	}
	542	else{
	543	if(pUserProc->IsSub()){
	544	CompileBuffer(ESC_ENDSUB,0);
	545	}
	546	else if(pUserProc->IsFunction()){
	547	CompileBuffer(ESC_ENDFUNCTION,0);
	548	}
	549	}
[75]	550	}
[3]	551	//////////////////////////////////////////
	552	//////////////////////////////////////////
	553
[584]	554	if( compiler.IsCompilingClass() ){
[17]	555
[584]	556	if( compiler.GetCompilingClass().IsCompilingConstructor() ){
[17]	557	// コンストラクタをコンパイルしていたとき
[18]	558
[17]	559	// コンストラクタのコンパイルが完了したことを通知
[584]	560	compiler.GetCompilingClass().NotifyFinishConstructorCompile();
[17]	561	}
[75]	562	else if( pUserProc->IsDestructor() ){
[3]	563	////////////////////////////////////
	564	//デストラクタをコンパイルしたとき
	565	////////////////////////////////////
	566
[18]	567	// デストラクタのコンパイルが完了したことを通知
[584]	568	compiler.GetCompilingClass().NotifyFinishDestructorCompile();
[18]	569
[584]	570	if( compiler.GetCompilingClass().HasSuperClass() ){
[3]	571	/* サブクラスのデストラクタをコンパイルしているときは、
[27]	572	基底クラスのデストラクタを呼び出す */
[3]	573
[584]	574	const CMethod *method = compiler.GetCompilingClass().GetSuperClass().GetDestructorMethod();
[51]	575	if( method ){
[3]	576	Opcode_CallProc("",
[206]	577	&method->GetUserProc(),
[704]	578	PROCFLAG_PERMIT_DESTRUCTOR,
[308]	579	"");
[3]	580	}
	581	}
	582	}
	583	}
	584
[366]	585	// Tryスコープの検証
	586	Exception::InspectTryScope();
	587
[3]	588	//ローカルオブジェクト（レキシカルスコープレベル=0）の解放処理
[254]	589	compiler.codeGenerator.lexicalScopes.CallDestructorsOfScopeEnd();
[3]	590
[34]	591	//プロシージャ抜け出しスケジュール（Exit Sub/Function）
[254]	592	compiler.codeGenerator.ResolveExitSubSchedule();
[34]	593
[460]	594	if( compiler.IsDebug() && bDebugSupportProc == 0 )
	595	{
[34]	596	//call _DebugSys_EndProc
[206]	597	extern const UserProc *pSub_DebugSys_EndProc;
[226]	598	compiler.codeGenerator.op_call(pSub_DebugSys_EndProc);
[34]	599	}
	600
[75]	601	if( !pUserProc->ReturnType().IsNull() ){
[3]	602	//////////////////////////////////
	603	// 戻り値をraxまたはxmm0に設定
	604	//////////////////////////////////
	605
	606	RELATIVE_VAR RelativeVar;
	607
[75]	608	const char *temp = pUserProc->GetName().c_str();
	609	if( temp[0]==1 && temp[1]==ESC_OPERATOR ){
[3]	610	temp="_System_ReturnValue";
[75]	611	}
	612	GetVarOffsetReadWrite(temp,&RelativeVar,Type());
[3]	613
[316]	614	const Type &returnType = pUserProc->ReturnType();
	615	if( returnType.IsObject() \|\| returnType.IsStruct() )
	616	{
[3]	617	SetVarPtrToReg(REG_RAX,&RelativeVar);
[316]	618	if( returnType.IsObject() )
	619	{
[64]	620	//mov rax,qword ptr[rax]
[226]	621	compiler.codeGenerator.op_mov_RM( sizeof(_int64), REG_RAX, REG_RAX, 0, MOD_BASE );
[64]	622	}
[3]	623	}
[316]	624	else if( returnType.IsDouble() )
	625	{
[3]	626	//64ビット実数型
	627	SetXmmReg_DoubleVariable(&RelativeVar,REG_XMM0);
	628	}
[316]	629	else if( returnType.IsSingle() )
	630	{
[3]	631	//32ビット実数型
	632	SetXmmReg_SingleVariable(&RelativeVar,REG_XMM0);
	633	}
[316]	634	else if( returnType.IsWhole() )
	635	{
[3]	636	//整数型
[318]	637	SetReg_WholeVariable(returnType,&RelativeVar,REG_RAX);
[3]	638	}
[468]	639	else compiler.errorMessenger.Output(300,NULL,cp);
[3]	640	}
	641
	642	//ローカル変数領域のサイズをスタックフレームに通知
[220]	643	int localParmSize = AllLocalVarSize - BaseLocalVar;
[232]	644	int stackFrameSize = pobj_sf->GetFrameSize( localParmSize );
[3]	645
	646	//ローカル変数アドレススケジュール
[254]	647	BOOST_FOREACH( const PertialSchedule *pPertialSchedule, compiler.codeGenerator.localVarPertialSchedules )
	648	{
[255]	649	compiler.codeGenerator.opfix_offset( pPertialSchedule, AllLocalVarSize + stackFrameSize );
[3]	650	}
[254]	651	compiler.codeGenerator.localVarPertialSchedules.clear();
[206]	652	BOOST_FOREACH( Variable *pVar, pUserProc->GetLocalVars() ){
[3]	653	//後にデバッグで利用する
[206]	654	pVar->SetOffsetAddress(
[220]	655	AllLocalVarSize + stackFrameSize - pVar->GetOffsetAddress()
[206]	656	);
[3]	657	}
	658
	659	//mov reg,qword ptr[rsp+offset] ※スタックフレームを利用
	660	pobj_sf->pop(REG_R15);
	661	pobj_sf->pop(REG_R14);
	662	pobj_sf->pop(REG_R13);
	663	pobj_sf->pop(REG_R12);
	664	pobj_sf->pop(REG_RDI);
	665	pobj_sf->pop(REG_RSI);
	666	pobj_sf->pop(REG_RBX);
	667
[220]	668	int stackFrameAndLocalParamSize = localParmSize + stackFrameSize;
[3]	669
	670	//add rsp,スタックフレームサイズ
[226]	671	compiler.codeGenerator.op_add_rsp(stackFrameAndLocalParamSize);
[3]	672
[142]	673	//ret
[226]	674	compiler.codeGenerator.op_ret();
[3]	675
	676
	677	//デバッグ用
[255]	678	if( pRspOffsetPertialSchedule1 ){
	679	compiler.codeGenerator.opfix( pRspOffsetPertialSchedule1, stackFrameAndLocalParamSize );
	680	compiler.codeGenerator.opfix( pRspOffsetPertialSchedule2, stackFrameAndLocalParamSize + sizeof(_int64) );
[3]	681	}
	682
	683
	684	//スタックフレームスケジュール（subコマンド）
[255]	685	compiler.codeGenerator.opfix( pStackFramePertialSchedule, stackFrameAndLocalParamSize );
[3]	686
	687	//スタックフレームスケジュールを実行
[220]	688	pobj_sf->RunningSchedule( stackFrameSize );
[3]	689	delete pobj_sf;
	690	pobj_sf=0;
	691
	692
[584]	693	compiler.FinishProcedureCompile();
	694
	695
	696	//ローカル変数のネーム情報は後に解放する
[3]	697	}

Note: See TracBrowser for help on using the repository browser.

Download in other formats: