Changeset 370 in dev for trunk/abdev/BasicCompiler64

Timestamp:

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

Author:

dai_9181

Message:

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

Location:

trunk/abdev/BasicCompiler64

Files:

• CodeGenerator.cpp (modified) (1 diff)
• Compile_Calc.cpp (modified) (1 diff)
• 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) (2 diffs)
• Compile_Var.cpp (modified) (1 diff)
• NumOpe.cpp (modified) (3 diffs)

trunk/abdev/BasicCompiler64/CodeGenerator.cpp

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

trunk/abdev/BasicCompiler64/Compile_Calc.cpp

@@ -208 +208 @@
     //変数アドレスを取得
     RELATIVE_VAR VarRelativeVar;
-    if(!GetVarOffsetReadWrite(
+    bool result = GetVarOffsetReadWrite(
         variable,
         &VarRelativeVar,
-        varType)) return;
+        varType);
 
     //レジスタのブロッキングを解除
     pobj_BlockReg->clear();
+
+    if( !result )
+    {
+        return;
+    }
 
     if(varType.GetBasicType()&FLAG_PTR){

trunk/abdev/BasicCompiler64/Compile_CallProc.cpp

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

trunk/abdev/BasicCompiler64/Compile_Func.cpp

@@ -144 +144 @@
             }
         }
+        else if( pobj_c->IsComInterface() )
+        {
+            //仮想関数（オブジェクトメソッド）
+            // pObj -> vtbl1 -> func1
+            //               -> func2
+            //               -> func3
+
+            int vtblMasterListIndex;
+            pobj_c->GetVtblMasterListIndexAndVtblIndex( &userProc, vtblMasterListIndex, vtblIndex );
+
+            // vtblのポインタを取得
+            //mov r11,qword ptr[rcx]
+            compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,0,MOD_BASE);
+        }
         else
         {
@@ -158 +172 @@
 
             // vtblマスターリストのポインタを取得
-            //mov r11,qword ptr[rcx]
-            compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,0,MOD_BASE);
+            //mov r11,qword ptr[rcx+sizeof(com_vtbl)]
+            compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,PTR_SIZE,MOD_BASE_DISP8);
 
             // vtblのポインタを取得

trunk/abdev/BasicCompiler64/Compile_Object.cpp

@@ -212 +212 @@
         && !pClass->IsAbstract() )
     {
+        // mov rcx,com_vtbl
+        compiler.codeGenerator.op_mov_RV_com_vtbl( REG_RCX, pClass );
+
+        //mov qword ptr[rax],rcx
+        compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_RCX,REG_RAX,0,MOD_BASE);
+
         // mov rcx,vtblAddress
         compiler.codeGenerator.op_mov_RV_vtbl( REG_RCX, pClass );
 
-        //mov qword ptr[rax],rcx
-        compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_RCX,REG_RAX,0,MOD_BASE);
+        //mov qword ptr[rax+sizeof(com_vtbl)],rcx
+        compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_RCX,REG_RAX,PTR_SIZE,MOD_BASE_DISP8);
 
 

trunk/abdev/BasicCompiler64/Compile_ProcOp.cpp

@@ -189 +189 @@
         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/BasicCompiler64/Compile_Statement.cpp

@@ -96 +96 @@
     pobj_reg=new CRegister(REG_RAX);
 
+    if( strstr(leftTerm,"赤"))
+    {
+        int test=0;
+    }
+
     Type resultType;
     bool isLiteral;
@@ -116 +121 @@
             FreeTempObject(REG_R14,&resultType.GetClass());
         }
-
-        //成功
-        return;
-    }
-
-    // 失敗
-    SetError(1, NULL,cp);
+    }
 }
 

trunk/abdev/BasicCompiler64/Compile_Var.cpp

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

trunk/abdev/BasicCompiler64/NumOpe.cpp

@@ -291 +291 @@
     }
 
+    SetError();
+
     return false;
 }
@@ -344 +346 @@
         if( !leftType.HasMember() ){
             // メンバを持たない型の場合
+            if( isProcedureCallOnly )
+            {
+                SetError(1,NULL,cp);
+            }
             return false;
         }
@@ -580 +586 @@
     }
 
+    if( isProcedureCallOnly )
+    {
+        SetError(3, termLeft, cp );
+    }
 
     return false;