Context Navigation

source: dev/trunk/ab5.0/abdev/compiler_x64/Compile_CallProc.cpp@ 704

Last change on this file since 704 was 704, checked in by dai_9181, 16 years ago
[702]を64bit版にマージ。
File size: 17.6 KB

Rev	Line
[206]	1	#include "stdafx.h"
	2
[198]	3	#include <Compiler.h>
	4
[3]	5	#include "../BasicCompiler_Common/common.h"
	6	#include "Opcode.h"
	7
[514]	8	using namespace ActiveBasic::Compiler;
	9
[3]	10	void Call_DebugSys_SaveContext(){
	11	//call _System_GetEip
[206]	12	extern const UserProc *pSub_System_GetEip;
[226]	13	compiler.codeGenerator.op_call(pSub_System_GetEip);
[3]	14
	15	//mov rdx,rax
[226]	16	compiler.codeGenerator.op_mov_RR(REG_RDX,REG_RAX);
[3]	17
	18	//mov rcx,rsp
[226]	19	compiler.codeGenerator.op_mov_RR(REG_RCX,REG_RSP);
[3]	20
	21	//call _DebugSys_SaveContext
[206]	22	extern const UserProc *pSub_DebugSys_SaveContext;
[226]	23	compiler.codeGenerator.op_call(pSub_DebugSys_SaveContext);
[3]	24	}
	25
[330]	26	bool Opcode_CallProcPtr( const char variable, const char lpszParms,ProcPointer *pProcPointer)
	27	{
[3]	28	extern BOOL bDebugSupportProc;
[460]	29	if( compiler.IsDebug() && bDebugSupportProc == 0 )
	30	{
[3]	31	Call_DebugSys_SaveContext();
[460]	32	}
[3]	33
	34
	35	////////////////////////
	36	// パラメータのセット
	37	////////////////////////
	38
	39	//パラメータオブジェクトを生成
[71]	40	ParamImpl *pobj_parameter=0;
[75]	41	pobj_parameter=new ParamImpl(lpszParms);
[3]	42
[77]	43	// デフォルト引数を適用
	44	pobj_parameter->ApplyDefaultParameters( pProcPointer->Params() );
	45
[3]	46	//エラーチェック
[75]	47	if( !pobj_parameter->ErrorCheck(variable,pProcPointer->Params() ) ){
[31]	48	//パラメータにエラーがあるときは処理を終える
[75]	49	return false;
[31]	50	}
[3]	51
	52	//スタックフレームに存在する既存のパラメータをバックアップ
[75]	53	pobj_parameter->BackupParameter( (int)pProcPointer->Params().size() );
[3]	54
[20]	55	//一時オブジェクトを生成
[75]	56	pobj_parameter->NewTempParameters( variable,pProcPointer->Params() );
[20]	57
[3]	58	//レジスタ、スタックフレームにセット
[75]	59	pobj_parameter->SetParameter(variable,pProcPointer->Params() );
[3]	60
	61
	62
	63	RELATIVE_VAR RelativeVar;
[75]	64	GetVarOffsetReadOnly(variable,&RelativeVar,Type());
[3]	65	SetVarPtrToReg(REG_RAX,&RelativeVar);
	66
	67	//mov rax,qword ptr[rax]
[226]	68	compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RAX,REG_RAX,0,MOD_BASE);
[3]	69
	70	//call rax
[228]	71	compiler.codeGenerator.PutOld(
	72	(char)0xFF,
	73	(char)0xD0
	74	);
[3]	75
	76
	77	//レジスタのブロッキングを解除 ※パラメータセット時にロックされたレジスタ
	78	pobj_BlockReg->clear();
	79
[20]	80	//一時オブジェクトを破棄
	81	pobj_parameter->DeleteTempParameters();
	82
[3]	83	//スタックフレームに存在する既存のパラメータを復元
[75]	84	pobj_parameter->RestoreParameter( (int)pProcPointer->Params().size() );
[3]	85
	86	//パラメータオブジェクトを破棄
	87	delete pobj_parameter;
	88
[75]	89	return true;
[3]	90	}
	91
[345]	92	bool Opcode_CallProc(const char Parameter,const UserProc pUserProc,DWORD dwFlags,const char *ObjectName)
	93	{
[75]	94	if( pUserProc->IsMacro() ){
	95	if( lstrcmpi( pUserProc->GetName().c_str(), "Print" ) == 0 ){
[3]	96	Opcode_Print(Parameter,0);
[75]	97	return true;
[3]	98	}
[75]	99	if( lstrcmpi( pUserProc->GetName().c_str(), "Input" ) == 0 ){
[3]	100	Opcode_Input(Parameter);
[75]	101	return true;
[3]	102	}
[75]	103	if( lstrcmpi( pUserProc->GetName().c_str(), "Write" ) == 0 ){
[3]	104	Opcode_Print(Parameter,1);
[75]	105	return true;
[3]	106	}
	107	}
[704]	108	if( (dwFlags&PROCFLAG_PERMIT_CONSTRUCTOR) == 0 && pUserProc->IsConstructor() )
	109	{
	110	// コンストラクタの直接呼出しはエラーとする
	111	compiler.errorMessenger.Output(145,NULL,cp);
	112	return false;
	113	}
	114	if( (dwFlags&PROCFLAG_PERMIT_DESTRUCTOR) == 0 && pUserProc->IsDestructor() )
	115	{
	116	// デストラクタの直接呼出しはエラーとする
	117	compiler.errorMessenger.Output(146,NULL,cp);
	118	return false;
	119	}
[3]	120
[75]	121	pUserProc->Using();
[3]	122
[47]	123	bool isStatic = false;
[75]	124	const CClass *pobj_c = NULL;
[135]	125	const CMethod *pMethod = NULL;
[304]	126	Type leftType;
	127	bool isFixedClass = false;
[75]	128	if( pUserProc->GetParentClassPtr() ){
[3]	129	//クラスのメンバ関数を呼び出す場合はアクセスチェックを行う
[304]	130	if(ObjectName[0] && (dwFlags&PROCFLAG_NEW)==0)
	131	{
	132	if(lstrcmpi(ObjectName,"Super")==0)
	133	{
[27]	134	//クラスメンバ関数内から基底クラスの呼び出し
[584]	135	pobj_c=&compiler.GetCompilingClass().GetSuperClass();
[304]	136
	137	isFixedClass = true;
[3]	138	}
[304]	139	else
	140	{
[47]	141	//"->"によってオブジェクトを指定する通常のメンバ関数呼び出し
[75]	142	Type varType;
[416]	143	if( GetTermType( ObjectName, varType ) )
[308]	144	{
[416]	145	if( varType.IsObject() )
	146	{
	147	pobj_c = &varType.GetClass();
	148	leftType = varType;
	149	}
[308]	150	}
[416]	151
	152	if( !pobj_c )
[308]	153	{
[598]	154	pobj_c = compiler.GetObjectModule().meta.FindClassSupportedTypeDef(
	155	LexicalAnalyzer::FullNameToSymbol( ObjectName )
	156	);
[47]	157	if( pobj_c ){
	158	isStatic = true;
	159	}
	160	else{
[468]	161	compiler.errorMessenger.Output(300,NULL,cp);
[47]	162	}
[3]	163	}
	164	}
	165	}
	166	else{
	167	if(dwFlags&PROCFLAG_NEW){
[316]	168	GetVarType( ObjectName, leftType, false );
	169
[3]	170	//New演算子によるコンストラクタ呼び出し
[584]	171	pobj_c = pUserProc->GetParentClassPtr();
[3]	172	}
	173	else{
	174	//クラスメンバ関数内から同一クラスのメンバ関数の呼び出し
[584]	175	pobj_c = &compiler.GetCompilingClass();
[3]	176	}
	177	}
	178
[18]	179
	180	/////////////////////////////////
	181	// メソッド情報を取得
	182	/////////////////////////////////
[27]	183	pMethod = NULL;
[350]	184	if( ! isStatic ) pMethod = pobj_c->GetDynamicMethodOrInterfaceMethod( pUserProc );
[27]	185	if( ! pMethod ){
[18]	186	//動的メソッドが取得できなかったときは静的メソッドを当たる
[135]	187	pMethod = pobj_c->GetStaticMethods().GetMethodPtr( pUserProc );
[18]	188	if( !pMethod ){
[468]	189	compiler.errorMessenger.Output(300,NULL,cp);
[75]	190	return false;
[3]	191	}
[26]	192
	193	//静的メンバ
[47]	194	isStatic = true;
[3]	195	}
	196
	197
	198	//////////////////////////////
	199	// アクセスエラーチェック
	200	//////////////////////////////
	201
	202	if(ObjectName[0]){
	203	//外部からの呼び出し
[584]	204	if( compiler.IsCompilingClass() && pobj_c == &compiler.GetCompilingClass() )
	205	{
[3]	206	//同一クラスオブジェクトの場合はプライベートアクセスを容認する
[584]	207	if( pMethod->IsNoneAccess() )
	208	{
[468]	209	compiler.errorMessenger.Output(109,pUserProc->GetName(),cp);
[75]	210	return false;
[3]	211	}
	212	}
[584]	213	else
	214	{
[137]	215	if( pMethod->IsPrivate()
[584]	216	\|\| pMethod->IsNoneAccess() )
	217	{
[468]	218	compiler.errorMessenger.Output(109,pUserProc->GetName(),cp);
[75]	219	return false;
[3]	220	}
[584]	221	if( !pMethod->GetUserProc().GetParentClass().IsEqualsOrSubClass( pobj_c ) && pMethod->IsProtected() )
	222	{
[468]	223	compiler.errorMessenger.Output(110,pUserProc->GetName(),cp);
[75]	224	return false;
[3]	225	}
	226	}
	227	}
	228	else{
	229	//クラス内部からの呼び出し（継承によるACCESS_NONのみをエラーとする）
[137]	230	if( pMethod->IsNoneAccess() ){
[468]	231	compiler.errorMessenger.Output(109,pUserProc->GetName(),cp);
[75]	232	return false;
[3]	233	}
	234	}
	235	}
	236
	237
	238	///////////////////////////////////////////////////////////////
[64]	239	// _System_LocalThisのダミーをセット
[3]	240	///////////////////////////////////////////////////////////////
	241
	242	char temporary[VN_SIZE]={0};
[75]	243	if( pUserProc->GetParentClassPtr() && isStatic == false ){
[3]	244	//_System_LocalThis（第一パラメータ）のダミーを作成
	245	lstrcpy(temporary,"0,");
	246	}
[320]	247	if( pUserProc->ReturnType().IsStruct() ){
	248	// ※ByRef _System_ReturnValue パラメータのダミーをセット
	249	lstrcat(temporary,"0,");
	250	}
[3]	251
	252	if(Parameter[0]=='\0'&&temporary[0])
	253	temporary[lstrlen(temporary)-1]=0;
	254	else lstrcat(temporary,Parameter);
	255
	256
[64]	257	//パラメータセット前のspオフセットを取得（Newの場合はここにThisポインタが格納されている）
	258	int this_sp_offset = pobj_sf->GetNowSp();
	259
	260
[3]	261	////////////////////////
	262	// パラメータをセット
	263	////////////////////////
	264
	265	//パラメータオブジェクトを生成
[71]	266	ParamImpl *pobj_parameter=0;
	267	pobj_parameter=new ParamImpl(temporary);
[3]	268
[77]	269	// デフォルト引数を適用
	270	pobj_parameter->ApplyDefaultParameters( pUserProc->RealParams() );
	271
[316]	272	// 型パラメータを適用
	273	pobj_parameter->SetLeftType( leftType );
	274
[3]	275	//エラーチェック
[75]	276	if( !pobj_parameter->ErrorCheck(pUserProc->GetName(),pUserProc->RealParams(),pUserProc->GetSecondParmNum() ) ){
[31]	277	//パラメータにエラーがあるときは処理を終える
[75]	278	return false;
[31]	279	}
[3]	280
[75]	281	if(pUserProc->IsMacro()){
[3]	282	//マクロ関数の場合は、パラメータ省略を考慮する
[75]	283	pobj_parameter->MacroParameterSupport( pUserProc->RealParams() );
[3]	284	}
	285
	286	//スタックフレームに存在する既存のパラメータをバックアップ
[75]	287	pobj_parameter->BackupParameter( (int)pUserProc->RealParams().size() );
[3]	288
[20]	289	//一時オブジェクトを生成
[75]	290	pobj_parameter->NewTempParameters( pUserProc->GetName(),pUserProc->RealParams(),pUserProc->GetRealSecondParmNum() );
[20]	291
[3]	292	//レジスタ、スタックフレームにセット
[316]	293	pobj_parameter->SetParameter(pUserProc->GetName(),pUserProc->RealParams(),pUserProc->GetRealSecondParmNum(), pUserProc );
[3]	294
[320]	295	if( pUserProc->ReturnType().IsStruct() ){
[3]	296	//////////////////////////////////////////////////////
[64]	297	// 戻り値に構造体インスタンスを持つ場合
	298	// ※ByRef _System_ReturnValue パラメータをセット
[3]	299	//////////////////////////////////////////////////////
	300
	301
	302	//////////////////////////////////////////////////////
	303	///// レジスタ資源のバックアップ
	304	{ BACKUP_REGISTER_RESOURCE
	305	//////////////////////////////////////////////////////
	306
[75]	307	int object_size = pUserProc->ReturnType().GetClass().GetSize();
[3]	308
	309	//mov rcx,object_size
[226]	310	compiler.codeGenerator.op_mov_RV(sizeof(_int64),REG_RCX,object_size);
[3]	311
	312	//call calloc
[206]	313	extern const UserProc *pSub_calloc;
[226]	314	compiler.codeGenerator.op_call(pSub_calloc);
[3]	315
	316	//mov r13,rax
[226]	317	compiler.codeGenerator.op_mov_RR(REG_R13,REG_RAX);
[3]	318
	319	/////////////////////////////////////////////
	320	////// レジスタ資源を復元
	321	RESTORE_REGISTER_RESOURCE
	322	}////////////////////////////////////////////
	323
[75]	324	if( pUserProc->GetParentClassPtr() && isStatic == false ){
[3]	325	//mov rdx,r13
[226]	326	compiler.codeGenerator.op_mov_RR(REG_RDX,REG_R13);
[3]	327	}
	328	else{
	329	//mov rcx,r13
[226]	330	compiler.codeGenerator.op_mov_RR(REG_RCX,REG_R13);
[3]	331	}
	332	}
	333
	334
[75]	335	if( pUserProc->GetParentClassPtr() && isStatic == false ){
[3]	336	///////////////////////////////
	337	// メンバ関数の場合
	338	// thisポインタをrcxで受け渡す
	339	///////////////////////////////
	340
[97]	341	if(ObjectName[0] && (dwFlags&PROCFLAG_NEW)==0){
[3]	342	if(lstrcmpi(ObjectName,"Super")==0) goto InClassMember;
	343	else{
[436]	344	bool isLiteral, isNeedHeapFreeStructure = false;
[420]	345	Type baseType( DEF_OBJECT, *pUserProc->GetParentClassPtr() ) , resultType;
[436]	346	if( !TermOpe( ObjectName, baseType, resultType, isLiteral, isNeedHeapFreeStructure, NULL, false, !pMethod->IsConst() ) )
[416]	347	{
	348	return false;
[18]	349	}
[436]	350	if( !resultType.IsObject() )
	351	{
[468]	352	compiler.errorMessenger.OutputFatalError();
[436]	353	}
[18]	354
[416]	355	// 実態ポインタをraxにコピー
	356	compiler.codeGenerator.op_mov_RR( REG_RCX, REG_RAX );
[3]	357	}
	358	}
	359	else{
	360	InClassMember:
	361	if(dwFlags&PROCFLAG_NEW){
	362	//New演算子によるコンストラクタ呼び出しの場合
	363
	364	//mov rcx,qword ptr[rsp+offset] ※スタックフレームを利用
[64]	365	pobj_sf->ref_offset_data(REG_RCX, this_sp_offset);
[3]	366	}
	367	else{
	368	//自身のオブジェクトのThisポインタをrcxにコピー
	369	SetThisPtrToReg(REG_RCX);
	370	}
	371	}
	372	}
	373
[304]	374	if( pUserProc->IsVirtual() && !isFixedClass ){
[349]	375	int vtblIndex;
	376	if( pobj_c->IsInterface() )
	377	{
[370]	378	// インターフェイスメソッド呼び出し
[3]	379
[349]	380	int offset_vtbl = compiler.GetObjectModule().meta.GetClasses().GetInterfaceInfoClassPtr()->GetMemberOffset( "__vtbl" );
[348]	381
[349]	382	// vtblのポインタを取得
	383	//mov r11,qword ptr[rcx+offset_vtbl]
	384	compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,offset_vtbl,MOD_BASE_DISP8);
[3]	385
[349]	386	int offset_this = compiler.GetObjectModule().meta.GetClasses().GetInterfaceInfoClassPtr()->GetMemberOffset( "__this" );
[3]	387
[349]	388	// インターフェイスの場合は更に__thisを取得する
	389	//mov rcx,qword ptr[rcx+offset_this]
	390	compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RCX,REG_RCX,offset_this,MOD_BASE_DISP8);
	391
	392	int vtblMasterListIndex;
	393	pobj_c->GetVtblMasterListIndexAndVtblIndex( pUserProc, vtblMasterListIndex, vtblIndex );
	394	if( vtblMasterListIndex != 0 )
	395	{
[468]	396	compiler.errorMessenger.OutputFatalError();
[349]	397	}
	398	}
[370]	399	else if( pobj_c->IsComInterface() )
	400	{
	401	// COMインターフェイスメソッド呼び出し
	402
	403	//仮想関数（オブジェクトメソッド）呼び出し
	404	// pObj -> vtbl1 -> func1
	405	// -> func2
	406	// -> func3
	407
	408	int vtblMasterListIndex;
	409	pobj_c->GetVtblMasterListIndexAndVtblIndex( pUserProc, vtblMasterListIndex, vtblIndex );
	410
	411	// vtblのポインタを取得
	412	//mov r11,qword ptr[rcx]
	413	compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,0,MOD_BASE); }
[349]	414	else
	415	{
	416	//仮想関数（オブジェクトメソッド）呼び出し
	417	// pObj -> vtbl_master_list -> vtbl1 -> func1
	418	// -> func2
	419	// -> func3
	420	// -> vtbl2 -> func1
	421	// -> func2
	422	// -> func3
	423
	424	int vtblMasterListIndex;
	425	pobj_c->GetVtblMasterListIndexAndVtblIndex( pUserProc, vtblMasterListIndex, vtblIndex );
	426
	427	// vtblマスターリストのポインタを取得
[370]	428	//mov r11,qword ptr[rcx+sizeof(com_vtbl)]
	429	compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,PTR_SIZE,MOD_BASE_DISP8);
[349]	430
	431	// vtblのポインタを取得
	432	//mov r11,dword ptr[r11+vtblMasterListIndex]
	433	compiler.codeGenerator.op_mov_RM( sizeof(_int64), REG_R11, REG_R11, vtblMasterListIndex*PTR_SIZE, MOD_BASE_DISP32 );
	434	}
	435
[3]	436	//call qword ptr[r11+func_index]
[345]	437	if( vtblIndex * PTR_SIZE <= 0x7F ){
[228]	438	compiler.codeGenerator.PutOld(
	439	(char)0x41,
	440	(char)0xFF,
	441	(char)0x53,
[345]	442	(char)(vtblIndex*PTR_SIZE)
[228]	443	);
[3]	444	}
	445	else{
[228]	446	compiler.codeGenerator.PutOld(
	447	(char)0x41,
	448	(char)0xFF,
	449	(char)0x93,
[345]	450	(long)(vtblIndex*PTR_SIZE)
[228]	451	);
[3]	452	}
	453	}
	454	else{
	455	//通常呼び出し
	456
	457	//call ProcAddr
[226]	458	compiler.codeGenerator.op_call(pUserProc);
[3]	459	}
	460
	461	/* 64コンパイラでは不要
[75]	462	if(pDllProc->bCdecl){
[3]	463	//add esp,ParmSize
	464	}*/
	465
	466
	467	//レジスタのブロッキングを解除 ※パラメータセット時にロックされたレジスタ
	468	pobj_BlockReg->clear();
	469
[20]	470	//一時オブジェクトを破棄
	471	pobj_parameter->DeleteTempParameters();
	472
[3]	473	//スタックフレームに存在する既存のパラメータを復元
[75]	474	pobj_parameter->RestoreParameter( (int)pUserProc->RealParams().size() );
[3]	475
	476	//パラメータオブジェクトを破棄
	477	delete pobj_parameter;
[75]	478
	479	return true;
[3]	480	}
	481
[75]	482	bool Opcode_CallDllProc( const char lpszParms, DllProc pDllProc ){
[3]	483
	484	extern BOOL bDebugSupportProc;
[514]	485	if( compiler.IsDebug() && bDebugSupportProc==0 && pDllProc->IsEqualSymbol( LexicalAnalyzer::FullNameToSymbol( "DebugBreak" ) ) )
[460]	486	{
[3]	487	Call_DebugSys_SaveContext();
[75]	488	}
[3]	489
	490
	491	////////////////////////
	492	// パラメータのセット
	493	////////////////////////
	494
	495	//パラメータオブジェクトを生成
[71]	496	ParamImpl *pobj_parameter=0;
[75]	497	pobj_parameter=new ParamImpl(lpszParms);
[3]	498
[77]	499	// デフォルト引数を適用
	500	pobj_parameter->ApplyDefaultParameters( pDllProc->Params() );
	501
[3]	502	//エラーチェック
[75]	503	if( !pobj_parameter->ErrorCheck( pDllProc->GetName(), pDllProc->Params() ) ){
[31]	504	//パラメータにエラーがあるときは処理を終える
[75]	505	return false;
[31]	506	}
[3]	507
	508	//スタックフレームに存在する既存のパラメータをバックアップ
[75]	509	pobj_parameter->BackupParameter( (int)pDllProc->Params().size() );
[3]	510
[45]	511	//一時オブジェクトを生成
[75]	512	pobj_parameter->NewTempParameters( pDllProc->GetName(), pDllProc->Params() );
[45]	513
[3]	514	//レジスタ、スタックフレームにセット
[75]	515	pobj_parameter->SetParameter(pDllProc->GetName(), pDllProc->Params() );
[3]	516
	517
	518	//レジスタのブロッキングを解除 ※パラメータセット時にロックされたレジスタ
	519	pobj_BlockReg->clear();
	520
	521
	522	//動的リンクされたプロシージャの呼び出し
	523
	524	//call dword ptr[ImportTable]
[226]	525	compiler.codeGenerator.op_call( pDllProc );
[3]	526
	527	/* 64コンパイラでは不要
[75]	528	if(pDllProc->bCdecl){
[3]	529	//add esp,ParmSize
	530	}*/
	531
[45]	532	//一時オブジェクトを破棄
	533	pobj_parameter->DeleteTempParameters();
	534
[3]	535	//スタックフレームに存在する既存のパラメータを復元
[75]	536	pobj_parameter->RestoreParameter( (int)pDllProc->Params().size() );
[3]	537
	538	//パラメータオブジェクトを破棄
	539	delete pobj_parameter;
	540
[75]	541	return true;
[3]	542	}
[325]	543
[330]	544	void Opcode_CallDelegate( const Delegate &dg, const char methodPtrValueStr, const char objPtrValueStr, const char *params )
[325]	545	{
[339]	546	extern BOOL bDebugSupportProc;
[460]	547	if( compiler.IsDebug() && bDebugSupportProc == 0 )
	548	{
[339]	549	Call_DebugSys_SaveContext();
[460]	550	}
[339]	551
	552
[330]	553	///////////////////////////////////////////////////////////////
	554	// _System_LocalThisのダミーをセット
	555	///////////////////////////////////////////////////////////////
	556
	557	char temporary[VN_SIZE]={0};
[339]	558	bool isDynamicCall = false;
[330]	559	if( objPtrValueStr && objPtrValueStr[0] ){
	560	//_System_LocalThis（第一パラメータ）のダミーを作成
	561	lstrcpy(temporary,"0,");
[339]	562
	563	isDynamicCall = true;
[330]	564	}
	565	if( dg.ReturnType().IsStruct() ){
	566	// ※ByRef _System_ReturnValue パラメータのダミーをセット
	567	lstrcat(temporary,"0,");
	568	}
	569
	570	if(params[0]=='\0'&&temporary[0])
	571	temporary[lstrlen(temporary)-1]=0;
	572	else lstrcat(temporary,params);
	573
[339]	574	const Parameters *pParams = &dg.Params();
	575	if( isDynamicCall )
	576	{
	577	pParams = &dg.GetDynamicParams();
	578	}
[330]	579
	580
[339]	581	ParamImpl *pobj_parameter = new ParamImpl( temporary );
	582
[330]	583	//スタックフレームに存在する既存のパラメータをバックアップ
[339]	584	pobj_parameter->BackupParameter( (int)pParams->size() );
[330]	585
	586	//一時オブジェクトを生成
[339]	587	pobj_parameter->NewTempParameters( dg.GetName(), *pParams );
[330]	588
	589	//レジスタ、スタックフレームにセット
[339]	590	pobj_parameter->SetParameter( dg.GetName(), *pParams );
[330]	591
	592
	593	if( objPtrValueStr && objPtrValueStr[0] )
	594	{
	595	RELATIVE_VAR RelativeVar;
	596	//Constアクセスが不可能なメソッドの場合
	597	if( !GetVarOffsetReadWrite( objPtrValueStr, &RelativeVar, Type() ) ){
	598	Jenga::Throw( "Opcode_CallDelegate関数内で呼ばれるGetVarOffsetReadWrite関数に失敗" );
	599	return;
	600	}
	601
	602	SetVarPtrToReg(REG_RCX,&RelativeVar);
	603
	604	// 参照を実体ポインタにする
	605	//mov rcx,qword ptr[rcx]
	606	compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RCX,REG_RCX,0,MOD_BASE);
	607	}
	608
	609
	610	{
	611	////////////////////////
	612	// call
	613	////////////////////////
	614	RELATIVE_VAR RelativeVar;
	615	GetVarOffsetReadOnly( methodPtrValueStr, &RelativeVar, Type() );
	616	SetVarPtrToReg(REG_RAX,&RelativeVar);
	617
	618	//mov rax,qword ptr[rax]
	619	compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RAX,REG_RAX,0,MOD_BASE);
	620
	621	//call rax
	622	compiler.codeGenerator.PutOld(
	623	(char)0xFF,
	624	(char)0xD0
	625	);
	626	}
	627
	628
	629	//レジスタのブロッキングを解除 ※パラメータセット時にロックされたレジスタ
	630	pobj_BlockReg->clear();
	631
	632	//一時オブジェクトを破棄
	633	pobj_parameter->DeleteTempParameters();
	634
	635	//スタックフレームに存在する既存のパラメータを復元
[339]	636	pobj_parameter->RestoreParameter( (int)pParams->size() );
[330]	637
	638	//パラメータオブジェクトを破棄
	639	delete pobj_parameter;
[325]	640	}

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

Download in other formats: