Context Navigation

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

Last change on this file since 731 was 731, checked in by dai, 16 years ago
[730]を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);
[3]	219	}
[584]	220	if( !pMethod->GetUserProc().GetParentClass().IsEqualsOrSubClass( pobj_c ) && pMethod->IsProtected() )
	221	{
[468]	222	compiler.errorMessenger.Output(110,pUserProc->GetName(),cp);
[75]	223	return false;
[3]	224	}
	225	}
	226	}
	227	else{
	228	//クラス内部からの呼び出し（継承によるACCESS_NONのみをエラーとする）
[137]	229	if( pMethod->IsNoneAccess() ){
[468]	230	compiler.errorMessenger.Output(109,pUserProc->GetName(),cp);
[75]	231	return false;
[3]	232	}
	233	}
	234	}
	235
	236
	237	///////////////////////////////////////////////////////////////
[64]	238	// _System_LocalThisのダミーをセット
[3]	239	///////////////////////////////////////////////////////////////
	240
	241	char temporary[VN_SIZE]={0};
[75]	242	if( pUserProc->GetParentClassPtr() && isStatic == false ){
[3]	243	//_System_LocalThis（第一パラメータ）のダミーを作成
	244	lstrcpy(temporary,"0,");
	245	}
[320]	246	if( pUserProc->ReturnType().IsStruct() ){
	247	// ※ByRef _System_ReturnValue パラメータのダミーをセット
	248	lstrcat(temporary,"0,");
	249	}
[3]	250
	251	if(Parameter[0]=='\0'&&temporary[0])
	252	temporary[lstrlen(temporary)-1]=0;
	253	else lstrcat(temporary,Parameter);
	254
	255
[64]	256	//パラメータセット前のspオフセットを取得（Newの場合はここにThisポインタが格納されている）
	257	int this_sp_offset = pobj_sf->GetNowSp();
	258
	259
[3]	260	////////////////////////
	261	// パラメータをセット
	262	////////////////////////
	263
	264	//パラメータオブジェクトを生成
[71]	265	ParamImpl *pobj_parameter=0;
	266	pobj_parameter=new ParamImpl(temporary);
[3]	267
[77]	268	// デフォルト引数を適用
	269	pobj_parameter->ApplyDefaultParameters( pUserProc->RealParams() );
	270
[316]	271	// 型パラメータを適用
	272	pobj_parameter->SetLeftType( leftType );
	273
[3]	274	//エラーチェック
[75]	275	if( !pobj_parameter->ErrorCheck(pUserProc->GetName(),pUserProc->RealParams(),pUserProc->GetSecondParmNum() ) ){
[31]	276	//パラメータにエラーがあるときは処理を終える
[75]	277	return false;
[31]	278	}
[3]	279
[75]	280	if(pUserProc->IsMacro()){
[3]	281	//マクロ関数の場合は、パラメータ省略を考慮する
[75]	282	pobj_parameter->MacroParameterSupport( pUserProc->RealParams() );
[3]	283	}
	284
	285	//スタックフレームに存在する既存のパラメータをバックアップ
[75]	286	pobj_parameter->BackupParameter( (int)pUserProc->RealParams().size() );
[3]	287
[20]	288	//一時オブジェクトを生成
[75]	289	pobj_parameter->NewTempParameters( pUserProc->GetName(),pUserProc->RealParams(),pUserProc->GetRealSecondParmNum() );
[20]	290
[3]	291	//レジスタ、スタックフレームにセット
[316]	292	pobj_parameter->SetParameter(pUserProc->GetName(),pUserProc->RealParams(),pUserProc->GetRealSecondParmNum(), pUserProc );
[3]	293
[320]	294	if( pUserProc->ReturnType().IsStruct() ){
[3]	295	//////////////////////////////////////////////////////
[64]	296	// 戻り値に構造体インスタンスを持つ場合
	297	// ※ByRef _System_ReturnValue パラメータをセット
[3]	298	//////////////////////////////////////////////////////
	299
	300
	301	//////////////////////////////////////////////////////
	302	///// レジスタ資源のバックアップ
	303	{ BACKUP_REGISTER_RESOURCE
	304	//////////////////////////////////////////////////////
	305
[75]	306	int object_size = pUserProc->ReturnType().GetClass().GetSize();
[3]	307
	308	//mov rcx,object_size
[226]	309	compiler.codeGenerator.op_mov_RV(sizeof(_int64),REG_RCX,object_size);
[3]	310
	311	//call calloc
[206]	312	extern const UserProc *pSub_calloc;
[226]	313	compiler.codeGenerator.op_call(pSub_calloc);
[3]	314
	315	//mov r13,rax
[226]	316	compiler.codeGenerator.op_mov_RR(REG_R13,REG_RAX);
[3]	317
	318	/////////////////////////////////////////////
	319	////// レジスタ資源を復元
	320	RESTORE_REGISTER_RESOURCE
	321	}////////////////////////////////////////////
	322
[75]	323	if( pUserProc->GetParentClassPtr() && isStatic == false ){
[3]	324	//mov rdx,r13
[226]	325	compiler.codeGenerator.op_mov_RR(REG_RDX,REG_R13);
[3]	326	}
	327	else{
	328	//mov rcx,r13
[226]	329	compiler.codeGenerator.op_mov_RR(REG_RCX,REG_R13);
[3]	330	}
	331	}
	332
	333
[75]	334	if( pUserProc->GetParentClassPtr() && isStatic == false ){
[3]	335	///////////////////////////////
	336	// メンバ関数の場合
	337	// thisポインタをrcxで受け渡す
	338	///////////////////////////////
	339
[97]	340	if(ObjectName[0] && (dwFlags&PROCFLAG_NEW)==0){
[3]	341	if(lstrcmpi(ObjectName,"Super")==0) goto InClassMember;
	342	else{
[436]	343	bool isLiteral, isNeedHeapFreeStructure = false;
[420]	344	Type baseType( DEF_OBJECT, *pUserProc->GetParentClassPtr() ) , resultType;
[436]	345	if( !TermOpe( ObjectName, baseType, resultType, isLiteral, isNeedHeapFreeStructure, NULL, false, !pMethod->IsConst() ) )
[416]	346	{
	347	return false;
[18]	348	}
[436]	349	if( !resultType.IsObject() )
	350	{
[468]	351	compiler.errorMessenger.OutputFatalError();
[436]	352	}
[18]	353
[416]	354	// 実態ポインタをraxにコピー
	355	compiler.codeGenerator.op_mov_RR( REG_RCX, REG_RAX );
[3]	356	}
	357	}
	358	else{
	359	InClassMember:
	360	if(dwFlags&PROCFLAG_NEW){
	361	//New演算子によるコンストラクタ呼び出しの場合
	362
	363	//mov rcx,qword ptr[rsp+offset] ※スタックフレームを利用
[64]	364	pobj_sf->ref_offset_data(REG_RCX, this_sp_offset);
[3]	365	}
	366	else{
	367	//自身のオブジェクトのThisポインタをrcxにコピー
	368	SetThisPtrToReg(REG_RCX);
	369	}
	370	}
	371	}
	372
[304]	373	if( pUserProc->IsVirtual() && !isFixedClass ){
[349]	374	int vtblIndex;
	375	if( pobj_c->IsInterface() )
	376	{
[370]	377	// インターフェイスメソッド呼び出し
[3]	378
[349]	379	int offset_vtbl = compiler.GetObjectModule().meta.GetClasses().GetInterfaceInfoClassPtr()->GetMemberOffset( "__vtbl" );
[348]	380
[349]	381	// vtblのポインタを取得
	382	//mov r11,qword ptr[rcx+offset_vtbl]
	383	compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,offset_vtbl,MOD_BASE_DISP8);
[3]	384
[349]	385	int offset_this = compiler.GetObjectModule().meta.GetClasses().GetInterfaceInfoClassPtr()->GetMemberOffset( "__this" );
[3]	386
[349]	387	// インターフェイスの場合は更に__thisを取得する
	388	//mov rcx,qword ptr[rcx+offset_this]
	389	compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RCX,REG_RCX,offset_this,MOD_BASE_DISP8);
	390
	391	int vtblMasterListIndex;
	392	pobj_c->GetVtblMasterListIndexAndVtblIndex( pUserProc, vtblMasterListIndex, vtblIndex );
	393	if( vtblMasterListIndex != 0 )
	394	{
[468]	395	compiler.errorMessenger.OutputFatalError();
[349]	396	}
	397	}
[370]	398	else if( pobj_c->IsComInterface() )
	399	{
	400	// COMインターフェイスメソッド呼び出し
	401
	402	//仮想関数（オブジェクトメソッド）呼び出し
	403	// pObj -> vtbl1 -> func1
	404	// -> func2
	405	// -> func3
	406
	407	int vtblMasterListIndex;
	408	pobj_c->GetVtblMasterListIndexAndVtblIndex( pUserProc, vtblMasterListIndex, vtblIndex );
	409
	410	// vtblのポインタを取得
	411	//mov r11,qword ptr[rcx]
	412	compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,0,MOD_BASE); }
[349]	413	else
	414	{
	415	//仮想関数（オブジェクトメソッド）呼び出し
	416	// pObj -> vtbl_master_list -> vtbl1 -> func1
	417	// -> func2
	418	// -> func3
	419	// -> vtbl2 -> func1
	420	// -> func2
	421	// -> func3
	422
	423	int vtblMasterListIndex;
	424	pobj_c->GetVtblMasterListIndexAndVtblIndex( pUserProc, vtblMasterListIndex, vtblIndex );
	425
	426	// vtblマスターリストのポインタを取得
[370]	427	//mov r11,qword ptr[rcx+sizeof(com_vtbl)]
	428	compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,PTR_SIZE,MOD_BASE_DISP8);
[349]	429
	430	// vtblのポインタを取得
	431	//mov r11,dword ptr[r11+vtblMasterListIndex]
	432	compiler.codeGenerator.op_mov_RM( sizeof(_int64), REG_R11, REG_R11, vtblMasterListIndex*PTR_SIZE, MOD_BASE_DISP32 );
	433	}
	434
[3]	435	//call qword ptr[r11+func_index]
[345]	436	if( vtblIndex * PTR_SIZE <= 0x7F ){
[228]	437	compiler.codeGenerator.PutOld(
	438	(char)0x41,
	439	(char)0xFF,
	440	(char)0x53,
[345]	441	(char)(vtblIndex*PTR_SIZE)
[228]	442	);
[3]	443	}
	444	else{
[228]	445	compiler.codeGenerator.PutOld(
	446	(char)0x41,
	447	(char)0xFF,
	448	(char)0x93,
[345]	449	(long)(vtblIndex*PTR_SIZE)
[228]	450	);
[3]	451	}
	452	}
	453	else{
	454	//通常呼び出し
	455
	456	//call ProcAddr
[226]	457	compiler.codeGenerator.op_call(pUserProc);
[3]	458	}
	459
	460	/* 64コンパイラでは不要
[75]	461	if(pDllProc->bCdecl){
[3]	462	//add esp,ParmSize
	463	}*/
	464
	465
	466	//レジスタのブロッキングを解除 ※パラメータセット時にロックされたレジスタ
	467	pobj_BlockReg->clear();
	468
[20]	469	//一時オブジェクトを破棄
	470	pobj_parameter->DeleteTempParameters();
	471
[3]	472	//スタックフレームに存在する既存のパラメータを復元
[75]	473	pobj_parameter->RestoreParameter( (int)pUserProc->RealParams().size() );
[3]	474
	475	//パラメータオブジェクトを破棄
	476	delete pobj_parameter;
[75]	477
	478	return true;
[3]	479	}
	480
[75]	481	bool Opcode_CallDllProc( const char lpszParms, DllProc pDllProc ){
[3]	482
	483	extern BOOL bDebugSupportProc;
[514]	484	if( compiler.IsDebug() && bDebugSupportProc==0 && pDllProc->IsEqualSymbol( LexicalAnalyzer::FullNameToSymbol( "DebugBreak" ) ) )
[460]	485	{
[3]	486	Call_DebugSys_SaveContext();
[75]	487	}
[3]	488
	489
	490	////////////////////////
	491	// パラメータのセット
	492	////////////////////////
	493
	494	//パラメータオブジェクトを生成
[71]	495	ParamImpl *pobj_parameter=0;
[75]	496	pobj_parameter=new ParamImpl(lpszParms);
[3]	497
[77]	498	// デフォルト引数を適用
	499	pobj_parameter->ApplyDefaultParameters( pDllProc->Params() );
	500
[3]	501	//エラーチェック
[75]	502	if( !pobj_parameter->ErrorCheck( pDllProc->GetName(), pDllProc->Params() ) ){
[31]	503	//パラメータにエラーがあるときは処理を終える
[75]	504	return false;
[31]	505	}
[3]	506
	507	//スタックフレームに存在する既存のパラメータをバックアップ
[75]	508	pobj_parameter->BackupParameter( (int)pDllProc->Params().size() );
[3]	509
[45]	510	//一時オブジェクトを生成
[75]	511	pobj_parameter->NewTempParameters( pDllProc->GetName(), pDllProc->Params() );
[45]	512
[3]	513	//レジスタ、スタックフレームにセット
[75]	514	pobj_parameter->SetParameter(pDllProc->GetName(), pDllProc->Params() );
[3]	515
	516
	517	//レジスタのブロッキングを解除 ※パラメータセット時にロックされたレジスタ
	518	pobj_BlockReg->clear();
	519
	520
	521	//動的リンクされたプロシージャの呼び出し
	522
	523	//call dword ptr[ImportTable]
[226]	524	compiler.codeGenerator.op_call( pDllProc );
[3]	525
	526	/* 64コンパイラでは不要
[75]	527	if(pDllProc->bCdecl){
[3]	528	//add esp,ParmSize
	529	}*/
	530
[45]	531	//一時オブジェクトを破棄
	532	pobj_parameter->DeleteTempParameters();
	533
[3]	534	//スタックフレームに存在する既存のパラメータを復元
[75]	535	pobj_parameter->RestoreParameter( (int)pDllProc->Params().size() );
[3]	536
	537	//パラメータオブジェクトを破棄
	538	delete pobj_parameter;
	539
[75]	540	return true;
[3]	541	}
[325]	542
[330]	543	void Opcode_CallDelegate( const Delegate &dg, const char methodPtrValueStr, const char objPtrValueStr, const char *params )
[325]	544	{
[339]	545	extern BOOL bDebugSupportProc;
[460]	546	if( compiler.IsDebug() && bDebugSupportProc == 0 )
	547	{
[339]	548	Call_DebugSys_SaveContext();
[460]	549	}
[339]	550
	551
[330]	552	///////////////////////////////////////////////////////////////
	553	// _System_LocalThisのダミーをセット
	554	///////////////////////////////////////////////////////////////
	555
	556	char temporary[VN_SIZE]={0};
[339]	557	bool isDynamicCall = false;
[330]	558	if( objPtrValueStr && objPtrValueStr[0] ){
	559	//_System_LocalThis（第一パラメータ）のダミーを作成
	560	lstrcpy(temporary,"0,");
[339]	561
	562	isDynamicCall = true;
[330]	563	}
	564	if( dg.ReturnType().IsStruct() ){
	565	// ※ByRef _System_ReturnValue パラメータのダミーをセット
	566	lstrcat(temporary,"0,");
	567	}
	568
	569	if(params[0]=='\0'&&temporary[0])
	570	temporary[lstrlen(temporary)-1]=0;
	571	else lstrcat(temporary,params);
	572
[339]	573	const Parameters *pParams = &dg.Params();
	574	if( isDynamicCall )
	575	{
	576	pParams = &dg.GetDynamicParams();
	577	}
[330]	578
	579
[339]	580	ParamImpl *pobj_parameter = new ParamImpl( temporary );
	581
[330]	582	//スタックフレームに存在する既存のパラメータをバックアップ
[339]	583	pobj_parameter->BackupParameter( (int)pParams->size() );
[330]	584
	585	//一時オブジェクトを生成
[339]	586	pobj_parameter->NewTempParameters( dg.GetName(), *pParams );
[330]	587
	588	//レジスタ、スタックフレームにセット
[339]	589	pobj_parameter->SetParameter( dg.GetName(), *pParams );
[330]	590
	591
	592	if( objPtrValueStr && objPtrValueStr[0] )
	593	{
	594	RELATIVE_VAR RelativeVar;
	595	//Constアクセスが不可能なメソッドの場合
	596	if( !GetVarOffsetReadWrite( objPtrValueStr, &RelativeVar, Type() ) ){
	597	Jenga::Throw( "Opcode_CallDelegate関数内で呼ばれるGetVarOffsetReadWrite関数に失敗" );
	598	return;
	599	}
	600
	601	SetVarPtrToReg(REG_RCX,&RelativeVar);
	602
	603	// 参照を実体ポインタにする
	604	//mov rcx,qword ptr[rcx]
	605	compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RCX,REG_RCX,0,MOD_BASE);
	606	}
	607
	608
	609	{
	610	////////////////////////
	611	// call
	612	////////////////////////
	613	RELATIVE_VAR RelativeVar;
	614	GetVarOffsetReadOnly( methodPtrValueStr, &RelativeVar, Type() );
	615	SetVarPtrToReg(REG_RAX,&RelativeVar);
	616
	617	//mov rax,qword ptr[rax]
	618	compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RAX,REG_RAX,0,MOD_BASE);
	619
	620	//call rax
	621	compiler.codeGenerator.PutOld(
	622	(char)0xFF,
	623	(char)0xD0
	624	);
	625	}
	626
	627
	628	//レジスタのブロッキングを解除 ※パラメータセット時にロックされたレジスタ
	629	pobj_BlockReg->clear();
	630
	631	//一時オブジェクトを破棄
	632	pobj_parameter->DeleteTempParameters();
	633
	634	//スタックフレームに存在する既存のパラメータを復元
[339]	635	pobj_parameter->RestoreParameter( (int)pParams->size() );
[330]	636
	637	//パラメータオブジェクトを破棄
	638	delete pobj_parameter;
[325]	639	}

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

Download in other formats: