Context Navigation

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

Last change on this file since 201 was 198, checked in by dai_9181, 17 years ago

File size: 26.2 KB

Line
1	#include <jenga/include/smoothie/Smoothie.h>
2	#include <jenga/include/smoothie/LexicalAnalysis.h>
3
4	#include <Program.h>
5	#include <Compiler.h>
6	#include <LexicalScopingImpl.h>
7	#include <ClassImpl.h>
8	#include <VariableImpl.h>
9	#include <NamespaceSupporter.h>
10
11	#include "../BasicCompiler_Common/common.h"
12	#include "Opcode.h"
13
14	void SystemProc( const UserProc &userProc ){
15	if( userProc.GetName() == "_System_GetEip" ){
16	//mov rax,qword ptr[rsp]
17	op_mov_RM(sizeof(_int64),REG_RAX,REG_RSP,0,MOD_BASE);
18
19	//ret
20	op_ret();
21	}
22	else if( userProc.GetName() == "_System_InitDllGlobalVariables" ){
23	////////////////////////////////////////
24	// DLLのグローバル領域をコンパイル
25	////////////////////////////////////////
26	extern BOOL bDll;
27	if(!bDll){
28	//ret
29	op_ret();
30
31	return;
32	}
33
34	UserProc *pBackUserProc;
35	pBackUserProc = &UserProc::CompilingUserProc();
36	UserProc::CompileStartForGlobalArea();
37
38	int BackCp;
39	BackCp=cp;
40	cp=-1;
41
42	//sub rsp,スタックフレームサイズ
43	int StackFrameSchedule;
44	op_sub_rsp(0xFFFFFFFF);
45	StackFrameSchedule=obp-sizeof(long);
46
47	extern BOOL bDebugCompile;
48	if(bDebugCompile){
49	//デバッグ用の変数を定義
50	DebugVariable();
51	}
52
53	//GC用の変数を定義
54	InitGCVariables();
55
56	//_System_StartupProgramの呼び出し
57	extern UserProc *pSub_System_StartupProgram;
58	op_call(pSub_System_StartupProgram);
59
60	//クラスに属する静的メンバを定義
61	compiler.GetMeta().GetClasses().InitStaticMember();
62
63	GetGlobalDataForDll();
64
65	//add rsp,スタックフレームサイズ
66	op_add_RV(REG_RSP,pobj_sf->GetFrameSize());
67
68	//スタックフレームスケジュール（subコマンドに渡す値）
69	((long )(OpBuffer+StackFrameSchedule))=pobj_sf->GetFrameSize();
70
71	UserProc::CompileStartForUserProc( pBackUserProc );
72	cp=BackCp;
73
74	//ret
75	op_ret();
76	}
77	else if( userProc.GetName() == "_System_InitStaticLocalVariables" ){
78	//静的ローカルオブジェクトのコンストラクタ呼び出し
79
80	//sub rsp,スタックフレームサイズ
81	int StackFrameSchedule;
82	op_sub_rsp(0xFFFFFFFF);
83	StackFrameSchedule=obp-sizeof(long);
84
85	BOOST_FOREACH( Variable *pVar, globalVars ){
86	if(memicmp(pVar->GetName().c_str(),"Static%",7)==0){
87	//コンストラクタ呼び出し
88	if( pVar->IsObject() ){
89
90	//エラー用
91	cp=pVar->source_code_address;
92
93	CallConstructor(
94	pVar->GetName().c_str(),
95	pVar->GetSubScriptsPtr(),
96	*pVar,
97	pVar->paramStrForConstructor.c_str());
98	}
99	}
100	}
101
102	//add rsp,スタックフレームサイズ
103	op_add_RV(REG_RSP,pobj_sf->GetFrameSize());
104
105	//スタックフレームスケジュール（subコマンドに渡す値）
106	((long )(OpBuffer+StackFrameSchedule))=pobj_sf->GetFrameSize();
107
108	//ret
109	op_ret();
110	}
111	else if( userProc.GetName() == "_System_Call_Destructor_of_GlobalObject" ){
112	//sub rsp,8（※RSPを16バイト境界にあわせるため）
113	op_sub_rsp(0x8);
114
115
116	UserProc *pBackUserProc;
117	pBackUserProc = &UserProc::CompilingUserProc();
118	UserProc::CompileStartForGlobalArea();
119
120	GetLexicalScopes().CallDestructorsOfScopeEnd();
121
122	UserProc::CompileStartForUserProc( pBackUserProc );
123
124
125	//add rsp,8
126	op_add_RV(REG_RSP,0x8);
127
128	//ret
129	op_ret();
130	}
131	else if( userProc.GetName() == "_System_GetSp" ){
132	//mov rax,rsp
133	op_mov_RR(REG_RAX,REG_RSP);
134
135	//add rax,PTR_SIZE
136	op_add_RV(REG_RAX,PTR_SIZE);
137
138	//ret
139	op_ret();
140	}
141	else if( userProc.GetName() == "_allrem" ){
142	//乗除演算用の特殊関数（64ビット整数対応）
143	BYTE Buffer_allrem[]={
144	0x53,0x57,0x33,0xFF,0x8B,0x44,0x24,0x10,0x0B,0xC0,0x7D,0x14,0x47,0x8B,0x54,0x24,0x0C,0xF7,0xD8,0xF7,0xDA,0x83,0xD8,0x00,0x89,0x44,0x24,0x10,0x89,0x54,0x24,0x0C,0x8B,0x44,0x24,0x18,0x0B,0xC0,0x7D,0x13,0x8B,0x54,0x24,0x14,0xF7,0xD8,0xF7,0xDA,0x83,0xD8,0x00,0x89,0x44,0x24,0x18,0x89,0x54,0x24,0x14,0x0B,0xC0,0x75,0x1B,0x8B,0x4C,0x24,0x14,0x8B,0x44,0x24,0x10,0x33,0xD2,0xF7,0xF1,0x8B,0x44,0x24,0x0C,0xF7,0xF1,0x8B,0xC2,0x33,0xD2,0x4F,0x79,0x4E,0xEB,0x53,0x8B,0xD8,0x8B,0x4C,0x24,0x14,0x8B,0x54,0x24,0x10,0x8B,0x44,0x24,0x0C,0xD1,0xEB,0xD1,0xD9,0xD1,0xEA,0xD1,0xD8,0x0B,0xDB,0x75,0xF4,0xF7,0xF1,0x8B,0xC8,0xF7,0x64,0x24,0x18,0x91,0xF7,0x64,0x24,0x14,0x03,0xD1,0x72,0x0E,0x3B,0x54,0x24,0x10,0x77,0x08,0x72,0x0E,0x3B,0x44,0x24,0x0C,0x76,0x08,0x2B,0x44,0x24,0x14,0x1B,0x54,0x24,0x18,0x2B,0x44,0x24,0x0C,0x1B,0x54,0x24,0x10,0x4F,0x79,0x07,0xF7,0xDA,0xF7,0xD8,0x83,0xDA,0x00,0x5F,0x5B,0xC2,0x10,0x00
145	};
146
147	memcpy(OpBuffer+obp,Buffer_allrem,178);
148	obp+=178;
149	}
150	else if( userProc.GetName() == "_allmul" ){
151	//乗算用の特殊関数（64ビット整数対応）
152	BYTE Buffer_allmul[]={
153	0x8B,0x44,0x24,0x08,0x8B,0x4C,0x24,0x10,0x0B,0xC8,0x8B,0x4C,0x24,0x0C,0x75,0x09,0x8B,0x44,0x24,0x04,0xF7,0xE1,0xC2,0x10,0x00,0x53,0xF7,0xE1,0x8B,0xD8,0x8B,0x44,0x24,0x08,0xF7,0x64,0x24,0x14,0x03,0xD8,0x8B,0x44,0x24,0x08,0xF7,0xE1,0x03,0xD3,0x5B,0xC2,0x10,0x00
154	};
155
156	memcpy(OpBuffer+obp,Buffer_allmul,52);
157	obp+=52;
158	}
159	else if( userProc.GetName() == "_alldiv" ){
160	//除算用の特殊関数（64ビット整数対応）
161	BYTE Buffer_alldiv[]={
162	0x57,0x56,0x53,0x33,0xFF,0x8B,0x44,0x24,0x14,0x0B,0xC0,0x7D,0x14,0x47,0x8B,0x54,0x24,0x10,0xF7,0xD8,0xF7,0xDA,0x83,0xD8,0x00,0x89,0x44,0x24,0x14,0x89,0x54,0x24,0x10,0x8B,0x44,0x24,0x1C,0x0B,0xC0,0x7D,0x14,0x47,0x8B,0x54,0x24,0x18,0xF7,0xD8,0xF7,0xDA,0x83,0xD8,0x00,0x89,0x44,0x24,0x1C,0x89,0x54,0x24,0x18,0x0B,0xC0,0x75,0x18,0x8B,0x4C,0x24,0x18,0x8B,0x44,0x24,0x14,0x33,0xD2,0xF7,0xF1,0x8B,0xD8,0x8B,0x44,0x24,0x10,0xF7,0xF1,0x8B,0xD3,0xEB,0x41,0x8B,0xD8,0x8B,0x4C,0x24,0x18,0x8B,0x54,0x24,0x14,0x8B,0x44,0x24,0x10,0xD1,0xEB,0xD1,0xD9,0xD1,0xEA,0xD1,0xD8,0x0B,0xDB,0x75,0xF4,0xF7,0xF1,0x8B,0xF0,0xF7,0x64,0x24,0x1C,0x8B,0xC8,0x8B,0x44,0x24,0x18,0xF7,0xE6,0x03,0xD1,0x72,0x0E,0x3B,0x54,0x24,0x14,0x77,0x08,0x72,0x07,0x3B,0x44,0x24,0x10,0x76,0x01,0x4E,0x33,0xD2,0x8B,0xC6,0x4F,0x75,0x07,0xF7,0xDA,0xF7,0xD8,0x83,0xDA,0x00,0x5B,0x5E,0x5F,0xC2,0x10,0x00
163	};
164
165	memcpy(OpBuffer+obp,Buffer_alldiv,170);
166	obp+=170;
167	}
168	else if( userProc.GetName() == "_allshl" ){
169	//符号あり左ビットシフト用の特殊関数（64ビット整数対応）
170	BYTE Buffer_allshl[]={
171	0x80,0xF9,0x40,0x73,0x15,0x80,0xF9,0x20,0x73,0x06,0x0F,0xA5,0xC2,0xD3,0xE0,0xC3,0x8B,0xD0,0x33,0xC0,0x80,0xE1,0x1F,0xD3,0xE2,0xC3,0x33,0xC0,0x33,0xD2,0xC3
172	};
173
174	memcpy(OpBuffer+obp,Buffer_allshl,31);
175	obp+=31;
176	}
177	else if( userProc.GetName() == "_allshr" ){
178	//符号あり右ビットシフト用の特殊関数（64ビット整数対応）
179	BYTE Buffer_allshr[]={
180	0x80,0xF9,0x40,0x73,0x16,0x80,0xF9,0x20,0x73,0x06,0x0F,0xAD,0xD0,0xD3,0xFA,0xC3,0x8B,0xC2,0xC1,0xFA,0x1F,0x80,0xE1,0x1F,0xD3,0xF8,0xC3,0xC1,0xFA,0x1F,0x8B,0xC2,0xC3
181	};
182
183	memcpy(OpBuffer+obp,Buffer_allshr,33);
184	obp+=33;
185	}
186	else if( userProc.GetName() == "_aullshr" ){
187	//符号なし右ビットシフト用の特殊関数（64ビット整数対応）
188	BYTE Buffer_aullshr[]={
189	0x80,0xF9,0x40, //cmp cl,40h
190	0x73,0x15, //jae RETZERO (0040d71a)
191	0x80,0xF9,0x20, //cmp cl,20h
192	0x73,0x06, //jae MORE32 (0040d710)
193	0x0F,0xAD,0xD0, //shrd eax,edx,cl
194	0xD3,0xEA, //shr edx,cl
195	0xC3, //ret
196	//MORE32:
197	0x8B,0xC2, //mov eax,edx
198	0x33,0xD2, //xor edx,edx
199	0x80,0xE1,0x1F, //and cl,1Fh
200	0xD3,0xE8, //shr eax,cl
201	0xC3, //ret
202	//RETZERO:
203	0x33,0xC0, //xor eax,eax
204	0x33,0xD2, //xor edx,edx
205	0xC3 //ret
206	};
207
208	memcpy(OpBuffer+obp,Buffer_aullshr,31);
209	obp+=31;
210	}
211	else{
212	SetError();
213	}
214	}
215	void AutoGeneration(UserProc &userProc){
216	if( userProc.GetName() == "InitializeUserTypes"
217	&& userProc.HasParentClass()
218	&& userProc.GetParentClass().GetName() == "_System_TypeBase" ){
219
220	compiler.GetMeta().GetClasses().Compile_System_InitializeUserTypes();
221	}
222	else if( userProc.GetName() == "RegisterGlobalRoots"
223	&& userProc.HasParentClass()
224	&& userProc.GetParentClass().GetName() == "_System_CGarbageCollection" ){
225
226	Compile_AddGlobalRootsForGc();
227	}
228	else{
229	SetError();
230	}
231	}
232	void _compile_proc(UserProc *pUserProc){
233	extern char *basbuf;
234	extern HANDLE hHeap;
235	extern GlobalProc **ppSubHash;
236	extern BOOL bDebugCompile;
237	int i3,i4;
238	char temporary[VN_SIZE];
239
240	if( pUserProc->IsUsing() == false \|\| pUserProc->IsCompiled() ) return;
241
242	if( pUserProc->localVars.size() ){
243	SetError();
244	return;
245	}
246
247	pUserProc->CompleteCompile();
248
249	extern BOOL bSystemProc;
250	if(memcmp(pUserProc->GetName().c_str(),"_System_",8)==0) bSystemProc=1;
251	else bSystemProc=0;
252
253	extern BOOL bDebugSupportProc;
254	if(memcmp(pUserProc->GetName().c_str(),"_DebugSys_",10)==0){
255	if(!bDebugCompile){
256	return;
257	}
258	bDebugSupportProc=1;
259	}
260	else bDebugSupportProc=0;
261
262	pUserProc->beginOpAddress=obp;
263
264	//コンパイル中の関数が属するクラス
265	Smoothie::Temp::pCompilingClass=pUserProc->GetParentClassPtr();
266
267	//コンパイルスタートをクラス管理クラスに追加
268	compiler.GetMeta().GetClasses().StartCompile( pUserProc );
269
270	//コンパイル中の関数
271	UserProc::CompileStartForUserProc( pUserProc );
272
273	// コンパイル中の関数が属する名前空間
274	namespaceSupporter.SetLivingNamespaceScopes( pUserProc->GetNamespaceScopes() );
275
276	// コンパイル中の関数でImportsされている名前空間
277	namespaceSupporter.SetImportedNamespaces( pUserProc->GetImportedNamespaces() );
278
279	if(pUserProc->IsSystem()){
280	////////////////////
281	// 特殊関数
282	////////////////////
283
284	extern int AllLocalVarSize;
285	AllLocalVarSize=0;
286
287	//スタックフレーム管理用オブジェクトを初期化
288	extern CStackFrame *pobj_sf;
289	pobj_sf=new CStackFrame();
290
291	SystemProc(*pUserProc);
292
293	//スタックフレーム管理用オブジェクトを破棄
294	delete pobj_sf;
295	pobj_sf=0;
296
297	pUserProc->endOpAddress=obp;
298	return;
299	}
300
301	cp=pUserProc->GetCodePos();
302	for(;;cp++){
303	if(IsCommandDelimitation(basbuf[cp])) break;
304	}
305	cp--;
306
307	//プロシージャ抜け出しスケジュール（Exit Sub/Function）
308	extern DWORD *pExitSubSchedule;
309	extern int ExitSubScheduleNum;
310	pExitSubSchedule=(DWORD *)HeapAlloc(hHeap,0,1);
311	ExitSubScheduleNum=0;
312
313	//ラベル用のメモリを確保
314	extern LABEL *pLabelNames;
315	extern int MaxLabelNum;
316	pLabelNames=(LABEL *)HeapAlloc(hHeap,0,1);
317	MaxLabelNum=0;
318
319	//Gotoラベルスケジュール
320	extern GOTOLABELSCHEDULE *pGotoLabelSchedule;
321	extern int GotoLabelScheduleNum;
322	pGotoLabelSchedule=(GOTOLABELSCHEDULE *)HeapAlloc(hHeap,0,1);
323	GotoLabelScheduleNum=0;
324
325	//With情報のメモリを確保
326	extern WITHINFO WithInfo;
327	WithInfo.ppName=(char **)HeapAlloc(hHeap,0,1);
328	WithInfo.pWithCp=(int *)HeapAlloc(hHeap,0,1);
329	WithInfo.num=0;
330
331	//重複エラー情報管理のメモリを確保
332	extern char **SynonymErrorWords;
333	extern int SynonymErrorNum;
334	SynonymErrorNum=0;
335	SynonymErrorWords=(char **)HeapAlloc(hHeap,0,1);
336
337	//Continueアドレスを初期化
338	extern DWORD dwContinueAddress;
339	dwContinueAddress=-1;
340
341	//ローカル変数に関する情報
342	extern int AllLocalVarSize;
343	AllLocalVarSize=0;
344
345	//ローカル変数アドレススケジュール
346	extern DWORD *pLocalVarAddrSchedule;
347	extern int LocalVarAddrScheduleNum;
348	pLocalVarAddrSchedule=(DWORD *)HeapAlloc(hHeap,0,1);
349	LocalVarAddrScheduleNum=0;
350
351	//レキシカルスコープ情報を初期化
352	GetLexicalScopes().Init(obp);
353
354
355	/////////////////////////////////////
356	// パラメータ用の変数データを考慮
357	/////////////////////////////////////
358
359	//パラメータ用の変数データを考慮
360	for(i3=(int)pUserProc->RealParams().size()-1;i3>=0;i3--){
361	Parameter &param = *pUserProc->RealParams()[i3];
362
363	Variable *pVar = new VariableImpl( param.GetVarName(), param, false, param.IsRef() );
364
365	if( param.IsArray() ){
366	pVar->SetArray( param.GetSubScriptsPtr() );
367	}
368
369	int varSize;
370	if( param.IsRef() == false && param.IsStruct() ){
371	//構造体のByValパラメータ
372	pVar->ThisIsParameter();
373	varSize=PTR_SIZE;
374	}
375	else{
376	if( param.IsArray() == false ){
377	varSize = pVar->GetMemorySize();
378	}
379	else{
380	varSize=PTR_SIZE;
381	}
382	}
383	AllLocalVarSize+=varSize;
384	pVar->offset=AllLocalVarSize;
385
386	//レキシカルスコープ情報
387	pVar->ScopeLevel=GetLexicalScopes().GetNowLevel();
388	pVar->ScopeStartAddress=GetLexicalScopes().GetStartAddress();
389	pVar->bLiving=TRUE;
390
391	pUserProc->localVars.push_back( pVar );
392	}
393
394	//Thisポインタを示すローカルオフセット値をセット
395	extern int LocalVar_ThisPtrOffset;
396	LocalVar_ThisPtrOffset=AllLocalVarSize;
397
398	//スタックフレーム管理用クラスを初期化
399	extern CStackFrame *pobj_sf;
400	pobj_sf=new CStackFrame();
401
402
403	///////////////////////
404	// ここからコード生成
405
406	for(i3=(int)pUserProc->RealParams().size()-1;i3>=0;i3--){
407	Parameter &param = *pUserProc->RealParams()[i3];
408	if(i3==3){
409	if(param.IsReal()&&param.IsRef() == false){
410	//movsd qword ptr[rsp+0x20],xmm3
411	op_movsd_MR(REG_XMM3,REG_RSP,0x20,MOD_BASE_DISP32);
412	}
413	else{
414	//mov qword ptr[rsp+0x20],r9
415	op_mov_MR(sizeof(_int64),REG_R9,REG_RSP,0x20,MOD_BASE_DISP32);
416	}
417	}
418	if(i3==2){
419	if(param.IsReal()&&param.IsRef() == false){
420	//movsd qword ptr[rsp+0x18],xmm2
421	op_movsd_MR(REG_XMM2,REG_RSP,0x18,MOD_BASE_DISP32);
422	}
423	else{
424	//mov qword ptr[rsp+0x18],r8
425	op_mov_MR(sizeof(_int64),REG_R8,REG_RSP,0x18,MOD_BASE_DISP32);
426	}
427	}
428	if(i3==1){
429	if(param.IsReal()&&param.IsRef() == false){
430	//movsd qword ptr[rsp+0x10],xmm1
431	op_movsd_MR(REG_XMM1,REG_RSP,0x10,MOD_BASE_DISP32);
432	}
433	else{
434	//mov qword ptr[rsp+0x10],rdx
435	op_mov_MR(sizeof(_int64),REG_RDX,REG_RSP,0x10,MOD_BASE_DISP32);
436	}
437	}
438	if(i3==0){
439	if(param.IsReal()&&param.IsRef() == false){
440	//movsd qword ptr[rsp+0x8],xmm0
441	op_movsd_MR(REG_XMM0,REG_RSP,0x8,MOD_BASE_DISP32);
442	}
443	else{
444	//mov qword ptr[rsp+0x8],rcx
445	op_mov_MR(sizeof(_int64),REG_RCX,REG_RSP,0x8,MOD_BASE_DISP32);
446	}
447	}
448	}
449
450	//ret用のアドレスを考慮
451	AllLocalVarSize+=sizeof(_int64);
452
453	//sub rsp,スタックフレームサイズ
454	int StackFrameSchedule;
455	op_sub_rsp(0xFFFFFFFF);
456	StackFrameSchedule=obp-sizeof(long);
457
458	//mov qword ptr[rsp+offset],reg ※スタックフレームを利用
459	pobj_sf->push(REG_RBX);
460	pobj_sf->push(REG_RSI);
461	pobj_sf->push(REG_RDI);
462	pobj_sf->push(REG_R12);
463	pobj_sf->push(REG_R13);
464	pobj_sf->push(REG_R14);
465	pobj_sf->push(REG_R15);
466
467	//ローカル変数のベース値
468	int BaseLocalVar;
469	BaseLocalVar=AllLocalVarSize;
470
471	if( !pUserProc->ReturnType().IsNull() ){
472	//戻り値が存在するとき
473
474	const char *temp = pUserProc->GetName().c_str();
475	if( temp[0]==1&&temp[1]==ESC_OPERATOR ){
476	temp = "_System_ReturnValue";
477	}
478
479	if( pUserProc->ReturnType().IsStruct() ){
480	//戻り値用の構造体（値型）はパラメータで引き渡される
481	}
482	else{
483	if( pUserProc->ReturnType().IsObject() ){
484	sprintf(temporary,"%s=Nothing%c%c%s",temp,1,ESC_AS, Compiler::TypeToString( pUserProc->ReturnType() ).c_str() );
485	}
486	else{
487	//戻り値用の変数の定義
488	sprintf(temporary,"%s%c%c%s",temp,1,ESC_AS, Compiler::TypeToString( pUserProc->ReturnType() ).c_str() );
489	}
490
491	OpcodeDim(temporary,0);
492	}
493	}
494
495	int RspOffsetSchedule=0;
496	int RspOffsetSchedule2;
497	if(bDebugCompile&&bDebugSupportProc==0){
498	//mov rdx, qword ptr[rsp+スタックフレームサイズ]
499	op_mov_RM(sizeof(_int64),REG_RDX,REG_RSP,0,MOD_BASE_DISP32);
500	RspOffsetSchedule=obp-sizeof(long);
501
502	//mov rcx,rsp
503	op_mov_RR(REG_RCX,REG_RSP);
504
505	//add rcx,スタックフレームサイズ+sizeof(_int64) ※ret用のサイズを考慮
506	op_add_RV(REG_RCX,0);
507	RspOffsetSchedule2=obp-sizeof(long);
508
509	//call _DebugSys_StartProc
510	extern UserProc *pSub_DebugSys_StartProc;
511	op_call(pSub_DebugSys_StartProc);
512	}
513
514	if(Smoothie::Temp::pCompilingClass){
515	if( pUserProc->GetName() == Smoothie::Temp::pCompilingClass->GetName() ){
516	////////////////////////////////////
517	// コンストラクタをコンパイルするとき
518	////////////////////////////////////
519
520	//コンストラクタのコンパイル開始を通知
521	Smoothie::Temp::pCompilingClass->NotifyStartConstructorCompile();
522
523	//基底クラスかどうかの識別
524	//（継承元がインターフェイスの場合も基底クラスと見なす）
525	BOOL bThisIsSuperClass;
526	if(Smoothie::Temp::pCompilingClass->pobj_InheritsClass==0) bThisIsSuperClass=1;
527	else if( Smoothie::Temp::pCompilingClass->pobj_InheritsClass->GetConstructorMethod() == NULL ){
528	//インターフェイスを継承したときはコンストラクタを持たない
529	bThisIsSuperClass=1;
530	}
531	else bThisIsSuperClass=0;
532
533	if(!bThisIsSuperClass){
534	/* サブクラスコンストラクタをコンパイルしているときは、
535	基底クラスのコンストラクタを呼び出す */
536
537	i3=cp+1;
538	while(IsCommandDelimitation(basbuf[i3])) i3++;
539	for(i4=0;;i3++,i4++){
540	if(!IsVariableChar(basbuf[i3])){
541	temporary[i4]=0;
542	break;
543	}
544	temporary[i4]=basbuf[i3];
545	}
546	if( Smoothie::Temp::pCompilingClass->pobj_InheritsClass->GetName() == temporary ){
547	//基底クラスのコンストラクタを呼び出す
548	cp=i3;
549	for(i4=0;;cp++,i4++){
550	if(IsCommandDelimitation(basbuf[cp])){
551	temporary[i4]=0;
552	break;
553	}
554	temporary[i4]=basbuf[cp];
555	}
556	if(!(temporary[0]=='('&&temporary[lstrlen(temporary)-1]==')')){
557	SetError(1,NULL,cp);
558	}
559	RemoveStringPare(temporary);
560
561	Type dummyType;
562	CallProc( PROC_DEFAULT
563	, Smoothie::Temp::pCompilingClass->pobj_InheritsClass->GetConstructorMethod()->pUserProc
564	, Smoothie::Temp::pCompilingClass->pobj_InheritsClass->GetConstructorMethod()->pUserProc->GetName().c_str()
565	, temporary
566	, dummyType );
567	}
568	else{
569	//基底クラスのコンストラクタを暗黙的に呼び出す
570	Opcode_CallProc("",
571	Smoothie::Temp::pCompilingClass->pobj_InheritsClass->GetConstructorMethod()->pUserProc,
572	0,
573	"",
574	0);
575	}
576	}
577
578	//仮想関数テーブルを初期化
579	if( Smoothie::Temp::pCompilingClass->IsExistVirtualFunctions()
580	&& !Smoothie::Temp::pCompilingClass->IsAbstract() ){
581	//関数テーブルに値をセット
582	int offset = (int)Smoothie::Temp::pCompilingClass->GetVtblGlobalOffset();
583
584	//mov rax,offset
585	op_mov_RV(sizeof(_int64),REG_RAX,offset);
586	obp-=sizeof(long);
587	pobj_DataTableSchedule->add();
588	obp+=sizeof(long);
589
590	//Thisポインタをrcxにコピー
591	SetThisPtrToReg(REG_RCX);
592
593	//mov qword ptr[rcx],rax
594	op_mov_MR(sizeof(_int64),REG_RAX,REG_RCX,0,MOD_BASE);
595	}
596	}
597	else if( pUserProc->IsDestructor() ){
598	//デストラクタをコンパイルしたとき
599
600	//デストラクタのコンパイル開始を通知
601	Smoothie::Temp::pCompilingClass->NotifyStartDestructorCompile();
602	}
603	}
604
605	//////////////////////////////////////////
606	//////////////////////////////////////////
607	////// プロシージャ内をコンパイル ////////
608	if( pUserProc->IsAutoGeneration() ){
609	AutoGeneration( *pUserProc );
610	}
611	else{
612	if(pUserProc->IsMacro()){
613	CompileBuffer(ESC_ENDMACRO,0);
614	}
615	else{
616	if(pUserProc->IsSub()){
617	CompileBuffer(ESC_ENDSUB,0);
618	}
619	else if(pUserProc->IsFunction()){
620	CompileBuffer(ESC_ENDFUNCTION,0);
621	}
622	}
623	}
624	//////////////////////////////////////////
625	//////////////////////////////////////////
626
627	if( Smoothie::Temp::pCompilingClass ){
628
629	if( Smoothie::Temp::pCompilingClass->IsCompilingConstructor() ){
630	// コンストラクタをコンパイルしていたとき
631
632	// コンストラクタのコンパイルが完了したことを通知
633	Smoothie::Temp::pCompilingClass->NotifyFinishConstructorCompile();
634	}
635	else if( pUserProc->IsDestructor() ){
636	////////////////////////////////////
637	//デストラクタをコンパイルしたとき
638	////////////////////////////////////
639
640	// デストラクタのコンパイルが完了したことを通知
641	Smoothie::Temp::pCompilingClass->NotifyFinishDestructorCompile();
642
643	if(Smoothie::Temp::pCompilingClass->pobj_InheritsClass){
644	/* サブクラスのデストラクタをコンパイルしているときは、
645	基底クラスのデストラクタを呼び出す */
646
647	const CMethod *method = Smoothie::Temp::pCompilingClass->pobj_InheritsClass->GetDestructorMethod();
648	if( method ){
649	Opcode_CallProc("",
650	method->pUserProc,
651	0,
652	"",
653	0);
654	}
655	}
656	}
657	}
658
659	//ラベル用のメモリを解放
660	for(i3=0;i3<MaxLabelNum;i3++){
661	if(pLabelNames[i3].pName) HeapDefaultFree(pLabelNames[i3].pName);
662	}
663	HeapDefaultFree(pLabelNames);
664
665	//Goto未知ラベルスケジュールを解放
666	for(i3=0;i3<GotoLabelScheduleNum;i3++){
667	if(pGotoLabelSchedule[i3].pName){
668	SetError(6,pGotoLabelSchedule[i3].pName,pGotoLabelSchedule[i3].now_cp);
669	HeapDefaultFree(pGotoLabelSchedule[i3].pName);
670	}
671	else{
672	sprintf(temporary,"%d",pGotoLabelSchedule[i3].line);
673	SetError(6,temporary,pGotoLabelSchedule[i3].now_cp);
674	}
675	}
676	HeapDefaultFree(pGotoLabelSchedule);
677
678	//With情報のメモリを解放
679	for(i3=0;i3<WithInfo.num;i3++){
680	SetError(22,"With",WithInfo.pWithCp[i3]);
681	HeapDefaultFree(WithInfo.ppName[i3]);
682	}
683	HeapDefaultFree(WithInfo.ppName);
684	HeapDefaultFree(WithInfo.pWithCp);
685
686	//ローカルオブジェクト（レキシカルスコープレベル=0）の解放処理
687	GetLexicalScopes().CallDestructorsOfScopeEnd();
688
689	//プロシージャ抜け出しスケジュール（Exit Sub/Function）
690	for(i3=0;i3<ExitSubScheduleNum;i3++){
691	((long )(OpBuffer+pExitSubSchedule[i3]))=obp-(pExitSubSchedule[i3]+sizeof(long));
692	}
693	HeapDefaultFree(pExitSubSchedule);
694
695	if(bDebugCompile&&bDebugSupportProc==0){
696	//call _DebugSys_EndProc
697	extern UserProc *pSub_DebugSys_EndProc;
698	op_call(pSub_DebugSys_EndProc);
699	}
700
701	if( !pUserProc->ReturnType().IsNull() ){
702	//////////////////////////////////
703	// 戻り値をraxまたはxmm0に設定
704	//////////////////////////////////
705
706	RELATIVE_VAR RelativeVar;
707
708	const char *temp = pUserProc->GetName().c_str();
709	if( temp[0]==1 && temp[1]==ESC_OPERATOR ){
710	temp="_System_ReturnValue";
711	}
712	GetVarOffsetReadWrite(temp,&RelativeVar,Type());
713
714	i3=pUserProc->ReturnType().GetBasicType();
715
716	if(i3==DEF_OBJECT \|\| i3==DEF_STRUCT){
717	SetVarPtrToReg(REG_RAX,&RelativeVar);
718	if( i3==DEF_OBJECT ){
719	//mov rax,qword ptr[rax]
720	op_mov_RM( sizeof(_int64), REG_RAX, REG_RAX, 0, MOD_BASE );
721	}
722	}
723	else if(i3==DEF_DOUBLE){
724	//64ビット実数型
725	SetXmmReg_DoubleVariable(&RelativeVar,REG_XMM0);
726	}
727	else if(i3==DEF_SINGLE){
728	//32ビット実数型
729	SetXmmReg_SingleVariable(&RelativeVar,REG_XMM0);
730	}
731	else if(IsWholeNumberType(i3)){
732	//整数型
733	SetReg_WholeVariable(i3,&RelativeVar,REG_RAX);
734	}
735	else SetError(300,NULL,cp);
736	}
737
738	//ローカル変数領域のサイズをスタックフレームに通知
739	int iLocalParmSize;
740	iLocalParmSize=AllLocalVarSize-BaseLocalVar;
741	pobj_sf->SetLocalParmSize(iLocalParmSize);
742
743	//ローカル変数アドレススケジュール
744	for(i3=0;i3<LocalVarAddrScheduleNum;i3++){
745	((long )(OpBuffer+pLocalVarAddrSchedule[i3]))+=AllLocalVarSize+pobj_sf->GetFrameSize();
746	}
747	HeapDefaultFree(pLocalVarAddrSchedule);
748	BOOST_FOREACH( Variable *pVar, pUserProc->localVars ){
749	//後にデバッグで利用する
750	pVar->offset = AllLocalVarSize + pobj_sf->GetFrameSize() - pVar->offset;
751	}
752
753	//mov reg,qword ptr[rsp+offset] ※スタックフレームを利用
754	pobj_sf->pop(REG_R15);
755	pobj_sf->pop(REG_R14);
756	pobj_sf->pop(REG_R13);
757	pobj_sf->pop(REG_R12);
758	pobj_sf->pop(REG_RDI);
759	pobj_sf->pop(REG_RSI);
760	pobj_sf->pop(REG_RBX);
761
762	int iStackFrameSize;
763	iStackFrameSize=iLocalParmSize + pobj_sf->GetFrameSize();
764
765	//add rsp,スタックフレームサイズ
766	op_add_rsp(iStackFrameSize);
767
768	//ret
769	op_ret();
770
771
772	//デバッグ用
773	if(RspOffsetSchedule){
774	((long )(OpBuffer+RspOffsetSchedule))=iStackFrameSize;
775	((long )(OpBuffer+RspOffsetSchedule2))=iStackFrameSize+sizeof(_int64);
776	}
777
778
779	//スタックフレームスケジュール（subコマンド）
780	((long )(OpBuffer+StackFrameSchedule))=iStackFrameSize;
781
782	//スタックフレームスケジュールを実行
783	pobj_sf->RunningSchedule();
784	delete pobj_sf;
785	pobj_sf=0;
786
787
788	pUserProc->endOpAddress=obp;
789
790
791	//重複エラー情報管理のメモリを解放
792	for(i3=0;i3<SynonymErrorNum;i3++) HeapDefaultFree(SynonymErrorWords[i3]);
793	HeapDefaultFree(SynonymErrorWords);
794	}
795
796	void CompileBufferInProcedure( UserProc &userProc ){
797	if( userProc.IsUsing() == false \|\| userProc.IsCompiled() ) return;
798
799	_compile_proc( &userProc );
800
801	// ログを履く
802	char temporary[8192];
803	temporary[0]=0;
804	lstrcat( temporary, "------------------------------------------------------------------\n" );
805	sprintf( temporary + lstrlen(temporary), "【 %s のコード情報】\n", userProc.GetName().c_str() );
806	sprintf( temporary + lstrlen(temporary), "code size: %d bytes\n", userProc.GetCodeSize() );
807	lstrcat( temporary, "------------------------------------------------------------------\n" );
808	lstrcat( temporary, "\n" );
809	trace_for_size( temporary );
810	}
811	void CompileLocal(){
812	extern GlobalProc **ppSubHash;
813	int i2;
814
815	extern BOOL bDll;
816	if(bDll){
817	//DLLの場合はグローバル変数を初期化するための関数を一番初めにコンパイルする
818	UserProc *pUserProc=GetSubHash("_System_InitDllGlobalVariables");
819	if(pUserProc){
820	CompileBufferInProcedure( *pUserProc );
821	}
822	else SetError(300,NULL,cp);
823	}
824
825	//_System_TypeBase_InitializeUserTypesは一番最後にコンパイル
826	extern UserProc *pSubStaticMethod_System_TypeBase_InitializeUserTypes;
827	pSubStaticMethod_System_TypeBase_InitializeUserTypes->CompleteCompile();
828
829	//_System_InitStaticLocalVariablesは一番最後にコンパイル
830	//※一般関数内の静的変数オブジェクトをすべて収集しなければならない
831	extern UserProc *pSub_System_InitStaticLocalVariables;
832	pSub_System_InitStaticLocalVariables->CompleteCompile();
833
834	//_System_Call_Destructor_of_GlobalObjectは一番最後にコンパイル
835	extern UserProc *pSub_System_Call_Destructor_of_GlobalObject;
836	pSub_System_Call_Destructor_of_GlobalObject->CompleteCompile();
837
838	repeat:
839	GlobalProc *pGlobalProc;
840	for(i2=0;i2<MAX_HASH;i2++){
841	pGlobalProc=ppSubHash[i2];
842	while(pGlobalProc){
843	CompileBufferInProcedure( *pGlobalProc );
844	pGlobalProc=pGlobalProc->pNextData;
845	}
846	}
847
848	if( IsNeedProcCompile() ){
849	//プロシージャコンパイルによって、プロシージャコンパイルが必要になる場合
850	goto repeat;
851	}
852
853	//_System_TypeBase_InitializeUserTypesは最後のほうでコンパイル
854	pSubStaticMethod_System_TypeBase_InitializeUserTypes->KillCompileStatus();
855	CompileBufferInProcedure( *pSubStaticMethod_System_TypeBase_InitializeUserTypes );
856
857	if( IsNeedProcCompile() ){
858	//プロシージャコンパイルによって、プロシージャコンパイルが必要になる場合
859	for(i2=0;i2<MAX_HASH;i2++){
860	pGlobalProc=ppSubHash[i2];
861	while(pGlobalProc){
862	CompileBufferInProcedure( *pGlobalProc );
863	pGlobalProc=pGlobalProc->pNextData;
864	}
865	}
866	}
867
868	//_System_InitStaticLocalVariablesは一番最後にコンパイル
869	pSub_System_InitStaticLocalVariables->KillCompileStatus();
870	CompileBufferInProcedure( *pSub_System_InitStaticLocalVariables );
871
872	//_System_Call_Destructor_of_GlobalObjectは一番最後にコンパイル
873	pSub_System_Call_Destructor_of_GlobalObject->KillCompileStatus();
874	CompileBufferInProcedure( *pSub_System_Call_Destructor_of_GlobalObject );
875	}

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

Download in other formats: