Changeset 370 in dev for trunk/abdev/BasicCompiler32

Timestamp:

Nov 15, 2007, 3:18:41 AM (17 years ago)

Author:

dai_9181

Message:

COM修飾子に対応。COMインターフェイスを呼び出せるようにした

Location:

trunk/abdev/BasicCompiler32

Files:

• Compile_CallProc.cpp (modified) (3 diffs)
• Compile_Func.cpp (modified) (2 diffs)
• Compile_Object.cpp (modified) (1 diff)
• Compile_ProcOp.cpp (modified) (1 diff)
• Compile_Statement.cpp (modified) (1 diff)
• Compile_Var.cpp (modified) (1 diff)
• NumOpe.cpp (modified) (3 diffs)
• x86CodeGenerator.cpp (modified) (2 diffs)

trunk/abdev/BasicCompiler32/Compile_CallProc.cpp

@@ -326 +326 @@
         if( pobj_c->IsInterface() )
         {
-            // インターフェイスメソッド呼び出し
+            // インターフェイス メソッド呼び出し
 
             int offset_vtbl = compiler.GetObjectModule().meta.GetClasses().GetInterfaceInfoClassPtr()->GetMemberOffset( "__vtbl" );
@@ -349 +349 @@
                 SetError();
             }
+        }
+        else if( pobj_c->IsComInterface() )
+        {
+            // COMインターフェイス メソッド呼び出し
+
+            //仮想関数（オブジェクトメソッド）呼び出し
+            // pObj -> vtbl1 -> func1
+            //               -> func2
+            //               -> func3
+
+            int vtblMasterListIndex;
+            pobj_c->GetVtblMasterListIndexAndVtblIndex( pUserProc, vtblMasterListIndex, vtblIndex );
+
+            // vtblのポインタを取得
+            //mov edx,dword ptr[ecx]
+            compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EDX, REG_ECX, 0, MOD_BASE );
         }
         else
@@ -364 +380 @@
 
             // vtblマスターリストのポインタを取得
-            //mov edx,dword ptr[ecx]
-            compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EDX, REG_ECX, 0, MOD_BASE );
+            //mov edx,dword ptr[ecx+sizeof(com_vtbl)]
+            compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EDX, REG_ECX, PTR_SIZE, MOD_BASE_DISP8 );
             
             // vtblのポインタを取得

trunk/abdev/BasicCompiler32/Compile_Func.cpp

@@ -300 +300 @@
             }
         }
+        else if( pobj_c->IsComInterface() )
+        {
+            // COMインターフェイス メソッド呼び出し
+
+            //仮想関数（オブジェクトメソッド）呼び出し
+            // pObj -> vtbl1 -> func1
+            //               -> func2
+            //               -> func3
+
+            int vtblMasterListIndex;
+            pobj_c->GetVtblMasterListIndexAndVtblIndex( &userProc, vtblMasterListIndex, vtblIndex );
+
+            // vtblのポインタを取得
+            //mov edx,dword ptr[ecx]
+            compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EDX, REG_ECX, 0, MOD_BASE );
+        }
         else
         {
@@ -314 +330 @@
 
             // vtblマスターリストのポインタを取得
-            //mov edx,dword ptr[ecx]
-            compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EDX, REG_ECX, 0, MOD_BASE );
+            //mov edx,dword ptr[ecx+sizeof(com_vtbl)]
+            compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EDX, REG_ECX, PTR_SIZE, MOD_BASE_DISP8 );
             
             // vtblのポインタを取得

trunk/abdev/BasicCompiler32/Compile_Object.cpp

@@ -218 +218 @@
         && !pClass->IsAbstract() )
     {
-        // mov ecx,vtblAddress
-        compiler.codeGenerator.op_mov_RV_vtbl( REG_ECX, pClass );
+        // mov ecx,com_vtbl
+        compiler.codeGenerator.op_mov_RV_com_vtbl( REG_ECX, pClass );
 
         //mov dword ptr[eax],ecx
         compiler.codeGenerator.op_mov_MR( sizeof(long), REG_ECX, REG_EAX, 0, MOD_BASE );
+
+        // mov rcx,vtblAddress
+        compiler.codeGenerator.op_mov_RV_vtbl( REG_ECX, pClass );
+
+        //mov qword ptr[rax+sizeof(com_vtbl)],rcx
+        compiler.codeGenerator.op_mov_MR(sizeof(long),REG_ECX,REG_EAX,PTR_SIZE,MOD_BASE_DISP8);
 
         // 仮想関数になるメソッドに使用チェックをつける

trunk/abdev/BasicCompiler32/Compile_ProcOp.cpp

@@ -267 +267 @@
         char temporary[1024];
         sprintf( temporary,
-            "Return New %s(ObjPtr( This ),Get_LONG_PTR( (Get_LONG_PTR( ObjPtr(This) ) + SizeOf(LONG_PTR)*%d) As VoidPtr ) As VoidPtr )",
+            "Return New %s(ObjPtr( This ),Get_LONG_PTR( (Get_LONG_PTR( ObjPtr(This)+SizeOf(VoidPtr) ) + SizeOf(LONG_PTR)*%d) As VoidPtr ) As VoidPtr )",
             userProc.ReturnType().GetClass().GetName().c_str(),
             vtblMasterListIndex

trunk/abdev/BasicCompiler32/Compile_Statement.cpp

@@ -115 +115 @@
             FreeTempObject(REG_EBX,&resultType.GetClass());
         }
-
-        //成功
-        return;
-    }
-
-    // 失敗
-    SetError(1, NULL,cp);
+    }
 }
 

trunk/abdev/BasicCompiler32/Compile_Var.cpp

@@ -1215 +1215 @@
     //New呼び出し
     if( type.IsObject()
-        && !type.IsInterface()
+        && !type.IsInterface() &&  !type.IsComInterface()
         &&(dwFlags&DIMFLAG_NONCALL_CONSTRACTOR)==0
         &&InitBuf[0]=='\0')

trunk/abdev/BasicCompiler32/NumOpe.cpp

@@ -278 +278 @@
     }
 
+    SetError();
+
     return false;
 }
@@ -331 +333 @@
         if( !leftType.HasMember() ){
             // メンバを持たない型の場合
+            if( isProcedureCallOnly )
+            {
+                SetError(1,NULL,cp);
+            }
             return false;
         }
@@ -550 +556 @@
     }
 
+    if( isProcedureCallOnly )
+    {
+        SetError(3, termLeft, cp );
+    }
 
     return false;

trunk/abdev/BasicCompiler32/x86CodeGenerator.cpp

@@ -1319 +1319 @@
     pNativeCode->PutUserProcSchedule( pUserProc, false );
 }
-void CodeGenerator::op_mov_RV_vtbl( int reg, const CClass *pClass )
+void CodeGenerator::op_mov_RV_com_vtbl( int reg, const CClass *pClass )
 {
     // mov reg,vtblAddress
@@ -1327 +1327 @@
 
     //DISP32
+    pNativeCode->PutComVtblSchedule( pClass );
+}
+void CodeGenerator::op_mov_RV_vtbl( int reg, const CClass *pClass )
+{
+    // mov reg,vtblAddress
+
+    //オペコード、レジスタ
+    pNativeCode->Put( (char)(0xB8|REGISTER_OPERAND(reg)) );
+
+    //DISP32
     pNativeCode->PutVtblSchedule( pClass );
 }