Context Navigation

source: dev/trunk/abdev/BasicCompiler64/Compile_ProcOp.cpp@ 285

Last change on this file since 285 was 266, checked in by dai_9181, 17 years ago
BasicSourceのシリアライズがうまくいっていない
File size: 22.4 KB

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

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

Download in other formats: