Changeset 345 in dev for trunk/abdev/BasicCompiler64/Compile_CallProc.cpp

Timestamp:

Oct 10, 2007, 1:52:43 AM (17 years ago)

Author:

dai_9181

Message:

64ビット版でもインターフェイスのベース実装周りをコンパイルできるようにした（インターフェイス機構自体はまだ未完成）

File:

• trunk/abdev/BasicCompiler64/Compile_CallProc.cpp (modified) (4 diffs)

trunk/abdev/BasicCompiler64/Compile_CallProc.cpp

@@ -89 +89 @@
 }
 
-bool Opcode_CallProc(const char *Parameter,const UserProc *pUserProc,DWORD dwFlags,const char *ObjectName){
-    int i2;
-
+bool Opcode_CallProc(const char *Parameter,const UserProc *pUserProc,DWORD dwFlags,const char *ObjectName)
+{
     if( pUserProc->IsMacro() ){
         if( lstrcmpi( pUserProc->GetName().c_str(), "Print" ) == 0 ){
@@ -165 +164 @@
         /////////////////////////////////
         pMethod = NULL;
-        if( ! isStatic ) pMethod = pobj_c->GetMethods().GetMethodPtr( pUserProc );
+        if( ! isStatic ) pMethod = pobj_c->GetDynamicMethods().GetMethodPtr( pUserProc );
         if( ! pMethod ){
             //動的メソッドが取得できなかったときは静的メソッドを当たる
@@ -362 +361 @@
         //                ->func3
 
+        // vtblマスターリストのポインタを取得
         //mov r11,qword ptr[rcx]
         compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,0,MOD_BASE);
 
-        i2 = pobj_c->GetFuncNumInVtbl( pUserProc );
+        // vtblのポインタを取得
+        //mov r11,dword ptr[r11+vtblMasterListIndex]
+        int vtblMasterListIndex = pobj_c->GetVtblMasterListIndex( pUserProc );
+        compiler.codeGenerator.op_mov_RM( sizeof(_int64), REG_R11, REG_R11, vtblMasterListIndex, MOD_BASE_DISP32 );
+
+        int vtblIndex = pobj_c->GetFuncNumInVtbl( pUserProc );
 
         //call qword ptr[r11+func_index]
-        if(i2*PTR_SIZE<=0x7F){
+        if( vtblIndex * PTR_SIZE <= 0x7F ){
             compiler.codeGenerator.PutOld(
                 (char)0x41,
                 (char)0xFF,
                 (char)0x53,
-                (char)(i2*PTR_SIZE)
+                (char)(vtblIndex*PTR_SIZE)
             );
         }
@@ -381 +386 @@
                 (char)0xFF,
                 (char)0x93,
-                (long)(i2*PTR_SIZE)
+                (long)(vtblIndex*PTR_SIZE)
             );
         }