Context Navigation

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

Last change on this file since 193 was 183, checked in by dai_9181, 17 years ago

File size: 26.1 KB

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

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

Download in other formats: