source: dev/trunk/abdev/BasicCompiler64/Compile_Func.cpp@ 345

Last change on this file since 345 was 345, checked in by dai_9181, 18 years ago

64ビット版でもインターフェイスのベース実装周りをコンパイルできるようにした（インターフェイス機構自体はまだ未完成）
File size: 13.1 KB
Line 
1#include "stdafx.h"
2
3#include <jenga/include/smoothie/Smoothie.h>
4
5#include <Compiler.h>
6
7#include "../BasicCompiler_Common/common.h"
8#include "Opcode.h"
9
10int GetFunctionFromName(char *FuncName){
11 if( lstrcmpi( FuncName, "Len" ) == 0 ) return FUNC_LEN;
12 if( lstrcmpi( FuncName, "AddressOf" ) == 0 ) return FUNC_ADDRESSOF;
13 if( lstrcmpi( FuncName, "SizeOf" ) == 0 ) return FUNC_SIZEOF;
14 if( lstrcmpi( FuncName, "VarPtr" ) == 0 ) return FUNC_VARPTR;
15 if( lstrcmpi( FuncName, "ObjPtr" ) == 0 ) return FUNC_OBJPTR;
16 if( lstrcmpi( FuncName, "__delegate_dynamicmethod_call" ) == 0 ) return FUNC_DELEGATE_DYNAMICMETHOD_CALL;
17 if( lstrcmpi( FuncName, "__delegate_staticmethod_call" ) == 0 ) return FUNC_DELEGATE_STATICMETHOD_CALL;
18 if( lstrcmpi( FuncName, "GetDouble" ) == 0 ) return FUNC_GETDOUBLE;
19 if( lstrcmpi( FuncName, "GetSingle" ) == 0 ) return FUNC_GETSINGLE;
20 if( lstrcmpi( FuncName, "GetQWord" ) == 0 ) return FUNC_GETQWORD;
21 if( lstrcmpi( FuncName, "GetDWord" ) == 0 ) return FUNC_GETDWORD;
22 if( lstrcmpi( FuncName, "GetWord" ) == 0 ) return FUNC_GETWORD;
23 if( lstrcmpi( FuncName, "GetByte" ) == 0 ) return FUNC_GETBYTE;
24 return 0;
25}
26void Opcode_Func_Len( const char *Parameter ){
27 BOOL bArrayHead;
28
29 const char *tempParm=Parameter;
30 char temporary[VN_SIZE];
31 char temp2[32];
32 Type type;
33 if( !GetVarType(Parameter,type,0) ){
34 sprintf(temporary,"_System_DummyStr2=%s",Parameter);
35 OpcodeCalc(temporary);
36
37 lstrcpy(temp2,"_System_DummyStr2");
38 tempParm=temp2;
39
40 type.SetType( DEF_OBJECT, compiler.GetObjectModule().meta.GetClasses().GetStringClassPtr() );
41 }
42
43 if( type.IsStringClass() ){
44 //Stringオブジェクトの場合
45 sprintf(temporary,"%s.Length",tempParm);
46
47 int reg=REG_RAX;
48 NumOpe(&reg,temporary,Type(),Type());
49 return;
50 }
51
52 Subscripts subscripts;
53 RELATIVE_VAR RelativeVar;
54 if(!GetVarOffsetReadOnly(tempParm,&RelativeVar,type,&subscripts)) return;
55
56 if(type.GetBasicType()&FLAG_PTR){
57 type.SetBasicType( type.GetBasicType() & ( ~FLAG_PTR ) );
58
59 bArrayHead=1;
60 }
61 else bArrayHead=0;
62
63 int typeSize = type.GetSize();
64
65 if(bArrayHead) typeSize*=JumpSubScripts(subscripts);
66
67 //mov rax,TypeSize
68 compiler.codeGenerator.op_mov_RV(sizeof(_int64),REG_RAX,typeSize);
69
70 return;
71}
72
73void _Opcode_Func_AddressOf( const char *methodInstanceName, const UserProc &userProc )
74{
75 if( userProc.IsVirtual() )
76 {
77 ///////////////////////////////
78 // 仮想関数の場合
79 // thisポインタをrcxにコピー
80 ///////////////////////////////
81
82 const CClass *pobj_c;
83
84 char ObjectName[VN_SIZE];
85 ReferenceKind referenceKind;
86 SplitObjectName(methodInstanceName,ObjectName, referenceKind );
87
88 if(ObjectName[0]){
89 if(lstrcmpi(ObjectName,"Super")==0) goto InClassMember;
90 else{
91 RELATIVE_VAR RelativeVar;
92 Type type;
93 if(!GetVarOffsetReadOnly(ObjectName,&RelativeVar,type)) return;
94 SetVarPtrToReg(REG_RCX,&RelativeVar);
95
96 //参照タイプが整合しているかをチェック
97 if( !( type.IsObject() && referenceKind == RefDot
98 || type.IsObjectPtr() && referenceKind == RefPointer ) )
99 {
100 SetError(104,ObjectName,cp);
101 }
102
103 if(type.IsObjectPtr()){
104 //mov rcx,qword ptr[rcx]
105 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RCX,REG_RCX,0,MOD_BASE);
106 }
107 }
108 }
109 else{
110InClassMember:
111 //自身のオブジェクトのThisポインタをrcxにコピー
112 SetThisPtrToReg(REG_RCX);
113
114 pobj_c=compiler.pCompilingClass;
115 }
116
117
118 //仮想関数（オブジェクトメソッド）
119 //pObj->func_table->func1
120 // ->func2
121 // ->func3
122
123 // vtblマスターリストのポインタを取得
124 //mov r11,qword ptr[rcx]
125 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,0,MOD_BASE);
126
127 // vtblのポインタを取得
128 //mov r11,dword ptr[r11+vtblMasterListIndex]
129 int vtblMasterListIndex = pobj_c->GetVtblMasterListIndex( &userProc );
130 compiler.codeGenerator.op_mov_RM( sizeof(_int64), REG_R11, REG_R11, vtblMasterListIndex, MOD_BASE_DISP32 );
131
132 int vtblIndex = pobj_c->GetFuncNumInVtbl( &userProc );
133
134 //mov rax,qword ptr[r11+func_index]
135 if( vtblIndex * PTR_SIZE <= 0x7F )
136 {
137 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RAX,REG_R11,vtblIndex*PTR_SIZE,MOD_BASE_DISP8);
138 }
139 else
140 {
141 compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_RAX,REG_R11,vtblIndex*PTR_SIZE,MOD_BASE_DISP32);
142 }
143 }
144 else{
145 //一般の関数
146
147 //mov rax,ProcAddr
148 compiler.codeGenerator.op_addressof( REG_RAX, &userProc );
149 }
150
151 userProc.Using();
152}
153void Opcode_CreateDelegate( const CClass &dgClass, const char *methodInstanceName, const UserProc &userProc )
154{
155 /////////////////////////////////////////////////////////////////
156 // 関数ポインタをpush
157 /////////////////////////////////////////////////////////////////
158
159 //mov rax,AddressOf
160 _Opcode_Func_AddressOf( methodInstanceName, userProc );
161
162
163 if( userProc.GetMethod().IsDynamic() )
164 {
165 //mov rdx,rax
166 compiler.codeGenerator.op_mov_RR( REG_RDX, REG_RAX );
167
168 pobj_BlockReg->lock( REG_RDX );
169
170
171 /////////////////////////////////////////////////////////////////
172 // オブジェクト ポインタをpush
173 /////////////////////////////////////////////////////////////////
174
175 // オブジェクト名を取得
176 char objectName[VN_SIZE];
177 char memberName[VN_SIZE];
178 char *thisPtrName = "This";
179 Type type;
180 if( SplitMemberName( methodInstanceName, objectName, memberName ) )
181 {
182 if( GetVarType( objectName, type, false ) )
183 {
184 thisPtrName = objectName;
185 }
186 }
187
188 // オブジェクト ポインタを取得
189 RELATIVE_VAR relativeVar;
190 GetVarOffsetReadOnly( thisPtrName, &relativeVar, type );
191 if( !type.IsObject() )
192 {
193 extern int cp;
194 SetError(1,NULL,cp);
195 return;
196 }
197
198 SetVarPtrToReg( REG_RAX, &relativeVar );
199
200 //mov rcx,dword ptr[rax]
201 compiler.codeGenerator.op_mov_RM( sizeof(_int64), REG_RCX, REG_RAX, 0, MOD_BASE );
202
203 pobj_BlockReg->unlock( REG_RDX );
204 }
205 else
206 {
207 //mov rcx,rax
208 compiler.codeGenerator.op_mov_RR( REG_RCX, REG_RAX );
209 }
210
211
212 /////////////////////////////////////////////////////////////////
213 // call _CreateDynamicDelegate/_CreateStaticDelegate
214 /////////////////////////////////////////////////////////////////
215
216 std::vector<const UserProc *> subs;
217 if( userProc.GetMethod().IsDynamic() )
218 {
219 dgClass.GetStaticMethods().Enum( "_CreateDynamicDelegate", subs );
220 }
221 else
222 {
223 dgClass.GetStaticMethods().Enum( "_CreateStaticDelegate", subs );
224 }
225
226 // call _CreateDynamicDelegate
227 compiler.codeGenerator.op_call( subs[0] );
228}
229void Opcode_Func_AddressOf( const char *name, const Type &baseType, bool isCallOn, Type &resultType )
230{
231 extern int cp;
232 const UserProc *pUserProc;
233
234 const Parameters *pBaseParams = NULL;
235 if( baseType.IsProcPtr() )
236 {
237 // 左辺で関数ポインタを要求されているとき
238 pBaseParams = &compiler.GetObjectModule().meta.GetProcPointers()[baseType.GetIndex()]->Params();
239 }
240 else if( baseType.IsDelegate() )
241 {
242 // 左辺でデリゲートを要求されているとき
243 pBaseParams = &baseType.GetClass().GetDelegate().Params();
244 }
245
246 if( pBaseParams )
247 {
248 //左辺の型にのっとり、オーバーロードを解決
249
250 std::vector<const UserProc *> subs;
251 GetOverloadSubHash( name, subs );
252 if( subs.size() == 0 ){
253 SetError(27,name,cp);
254 return;
255 }
256
257 //オーバーロードを解決
258 pUserProc=OverloadSolution( name, subs, *pBaseParams, Type() );
259
260 if( isCallOn && baseType.IsDelegate() )
261 {
262 // コード生成を伴う場合はエラーチェックを行う
263 if( !pUserProc->Params().Equals( *pBaseParams )
264 || !pUserProc->ReturnType().Equals( baseType.GetClass().GetDelegate().ReturnType() ) )
265 {
266 if( baseType.IsDelegate() )
267 {
268 SetError(67, name, cp );
269 }
270 else
271 {
272 SetError(66, name, cp );
273 }
274 }
275 }
276
277 if(!pUserProc){
278 SetError(27,name,cp);
279 return;
280 }
281 }
282 else{
283 pUserProc=GetSubHash(name);
284 if(!pUserProc){
285 SetError(27,name,cp);
286 return;
287 }
288 }
289
290 if( baseType.IsDelegate() )
291 {
292 if( isCallOn )
293 {
294 // デリゲートのとき
295 Opcode_CreateDelegate( baseType.GetClass(), name, *pUserProc );
296 }
297 resultType = baseType;
298 }
299 else
300 {
301 if( isCallOn )
302 {
303 // 関数ポインタのとき
304 _Opcode_Func_AddressOf( name, *pUserProc );
305 }
306 resultType.SetBasicType( DEF_PTR_VOID );
307 }
308}
309void Opcode_Func_SizeOf( const string &typeName ){
310 Type tempType;
311 if( !compiler.StringToType( typeName, tempType ) ){
312 SetError(3,typeName,cp);
313 return;
314 }
315
316 int typeSize = ( tempType.IsObject() ) ?
317 tempType.GetClass().GetSize() : tempType.GetSize();
318
319 //mov rax,size
320 compiler.codeGenerator.op_mov_RV(sizeof(_int64),REG_RAX,typeSize);
321}
322void Opcode_Func_VarPtr( const char *Parameter, Type &resultType, bool isCallOn ){
323 if( isCallOn == false ){
324 // 戻り値の型を取得するだけ
325
326 //変数のアドレスを取得
327 if(!GetVarType( Parameter, resultType, true )) return;
328
329 resultType.PtrLevelUp();
330
331 return;
332 }
333
334 RELATIVE_VAR RelativeVar;
335
336 //変数のアドレスを取得
337 if(!GetVarOffsetReadOnly( Parameter, &RelativeVar, resultType )) return;
338
339 int beforeType = resultType.GetBasicType();
340
341 resultType.PtrLevelUp();
342
343 SetVarPtrToReg(REG_RAX,&RelativeVar);
344
345 // TODO: 取り除く（この動きはObjPtrに託す）
346 /*
347 if( beforeType == DEF_OBJECT && lstrcmpi( Parameter, "This" ) != 0 ){
348 //参照をオブジェクトポインタに変更
349
350 //mov rax,qword ptr[rax]
351 compiler.codeGenerator.op_mov_RM( sizeof(_int64), REG_RAX, REG_RAX, 0, MOD_BASE );
352
353 SetError(-120,NULL,cp);
354 }*/
355}
356void Opcode_Func_ObjPtr( const char *Parameter, Type &resultType, bool isCallOn ){
357 if( isCallOn == false ){
358 // 戻り値の型を取得するだけ
359
360 //変数のアドレスを取得
361 if(!GetVarType( Parameter, resultType, true )) return;
362
363 resultType.PtrLevelUp();
364
365 return;
366 }
367
368 RELATIVE_VAR RelativeVar;
369
370 //変数のアドレスを取得
371 if(!GetVarOffsetReadOnly( Parameter, &RelativeVar, resultType )) return;
372
373 int beforeType = resultType.GetBasicType();
374
375 resultType.PtrLevelUp();
376
377 SetVarPtrToReg(REG_RAX,&RelativeVar);
378
379 if( lstrcmpi( Parameter, "This" )==0 ){
380 // Thisの場合は特別にオブジェクトポインタが返ってくるので、何もせずに抜ける
381 }
382 else if( beforeType == DEF_OBJECT ){
383 //参照をオブジェクトポインタに変更
384
385 //mov rax,qword ptr[rax]
386 compiler.codeGenerator.op_mov_RM( sizeof(_int64), REG_RAX, REG_RAX, 0, MOD_BASE );
387 }
388 else{
389 SetError(134,NULL,cp );
390 }
391}
392
393void Opcode_Func_delegate_call( const char *paramsStr, Type &resultType, bool isDynamicCall, bool isCallOn )
394{
395 if( isCallOn )
396 {
397 int i = 0;
398 char methodPtrParamStr[VN_SIZE];
399 i = GetOneParameter( paramsStr, i, methodPtrParamStr );
400
401 char objPtrValueStr[VN_SIZE] = "";
402 if( isDynamicCall )
403 {
404 i = GetOneParameter( paramsStr, i, objPtrValueStr );
405 }
406
407 Opcode_CallDelegate( compiler.pCompilingClass->GetDelegate(), methodPtrParamStr, objPtrValueStr, paramsStr + i );
408 }
409
410 resultType = UserProc::CompilingUserProc().ReturnType();
411}
412
413void Opcode_Func_GetPtrData( const char *Parameter, const int type ){
414 int reg=REG_RAX;
415 Type tempType;
416 if( !NumOpe(&reg,Parameter,Type(),tempType) ){
417 return;
418 }
419 if(!tempType.IsWhole()){
420 SetError(11,Parameter,cp);
421 return;
422 }
423
424 if(type==DEF_DOUBLE){
425 //movlpd xmm0,qword ptr[rax]
426 compiler.codeGenerator.op_movlpd_RM(REG_XMM0,REG_RAX,0,MOD_BASE);
427 }
428 else if(type==DEF_SINGLE){
429 //movss xmm0,dword ptr[rax]
430 compiler.codeGenerator.op_movss_RM(REG_XMM0,REG_RAX,0,MOD_BASE);
431 }
432 else{
433 //mov rax,ptr[rax]
434 compiler.codeGenerator.op_mov_RM(Type(type).GetSize(),REG_RAX,REG_RAX,0,MOD_BASE);
435 }
436}
437
438bool Opcode_CallFunc( const char *Parameter, const int FuncNum, const Type &baseType, Type &resultType, bool isCallOn )
439{
440 switch(FuncNum){
441 case FUNC_LEN:
442 if( isCallOn ) Opcode_Func_Len(Parameter);
443 resultType.SetBasicType( DEF_LONG );
444 break;
445 case FUNC_ADDRESSOF:
446 Opcode_Func_AddressOf( Parameter, baseType, isCallOn, resultType );
447 break;
448 case FUNC_SIZEOF:
449 if( isCallOn ) Opcode_Func_SizeOf(Parameter);
450 resultType.SetBasicType( DEF_LONG );
451 break;
452 case FUNC_VARPTR:
453 Opcode_Func_VarPtr( Parameter, resultType, isCallOn );
454 break;
455 case FUNC_OBJPTR:
456 Opcode_Func_ObjPtr( Parameter, resultType, isCallOn );
457 break;
458 case FUNC_DELEGATE_DYNAMICMETHOD_CALL:
459 Opcode_Func_delegate_call( Parameter, resultType, true, isCallOn );
460 break;
461 case FUNC_DELEGATE_STATICMETHOD_CALL:
462 Opcode_Func_delegate_call( Parameter, resultType, false, isCallOn );
463 break;
464
465 case FUNC_GETDOUBLE:
466 if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_DOUBLE);
467 resultType.SetBasicType( DEF_DOUBLE );
468 break;
469 case FUNC_GETSINGLE:
470 if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_SINGLE);
471 resultType.SetBasicType( DEF_SINGLE );
472 break;
473 case FUNC_GETQWORD:
474 if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_QWORD);
475 resultType.SetBasicType( DEF_QWORD );
476 break;
477 case FUNC_GETDWORD:
478 if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_DWORD);
479 resultType.SetBasicType( DEF_DWORD );
480 break;
481 case FUNC_GETWORD:
482 if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_WORD);
483 resultType.SetBasicType( DEF_WORD );
484 break;
485 case FUNC_GETBYTE:
486 if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_BYTE);
487 resultType.SetBasicType( DEF_BYTE );
488 break;
489 default:
490 return false;
491 }
492 return true;
493}
Note: See TracBrowser for help on using the repository browser.