Context Navigation

source: dev/trunk/ab5.0/abdev/BasicCompiler64/Compile_ProcOp.cpp@ 461

Last change on this file since 461 was 460, checked in by dai_9181, 17 years ago
[459]を64bit版にもマージ。
File size: 20.5 KB

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

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

Download in other formats: