Context Navigation

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

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

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

Download in other formats: