Changeset 292 in dev for trunk/abdev/BasicCompiler32

Timestamp:

Aug 22, 2007, 3:46:23 AM (17 years ago)

Author:

dai_9181

Message:

 

Location:

trunk/abdev/BasicCompiler32

Files:

• CParameter.cpp (modified) (1 diff)
• Compile_CallProc.cpp (modified) (3 diffs)
• Compile_Var.cpp (modified) (3 diffs)
• NumOpe.cpp (modified) (4 diffs)
• Opcode.h (modified) (3 diffs)
• OperatorProc.cpp (modified) (2 diffs)

trunk/abdev/BasicCompiler32/CParameter.cpp

@@ -213 +213 @@
             dummyType = *params[i2];
             bByVal = ( params[i2]->IsRef() == false ) ? TRUE:FALSE;
+
+
+            /////////////////////////////////////////////////////////
+            // ☆★☆ ジェネリクスサポート ☆★☆
+
+            if( dummyType.IsTypeParameter() )
+            {
+                // 型パラメータだったとき
+
+                int ptrLevel = PTR_LEVEL( dummyType.GetBasicType() );
+
+                if( leftType.HasActualGenericType() )
+                {
+                    // TODO: GetDummyActualGenericTypeを適切な形に実装し直す
+                    dummyType = leftType.GetDummyActualGenericType();
+                }
+                else
+                {
+                    // TODO: ベースオブジェクト（指定されていないときはObjectクラス）にセットする
+                    dummyType.SetBasicType( DEF_OBJECT );
+                }
+
+                for( int i=0; i<ptrLevel; i++ )
+                {
+                    dummyType.PtrLevelUp();
+                }
+            }
+
+            //
+            /////////////////////////////////////////////////////////
         }
 

trunk/abdev/BasicCompiler32/Compile_CallProc.cpp

@@ -104 +104 @@
     const CClass *pobj_c = NULL;
     const CMethod *pMethod = NULL;
+    Type leftType;
     if( pUserProc->GetParentClassPtr() ){
         //クラスのメンバ関数を呼び出す場合はアクセスチェックを行う
@@ -118 +119 @@
                 {
                     pobj_c = &varType.GetClass();
+                    leftType = varType;
                 }
                 else
@@ -222 +224 @@
     pobj_parameter->ApplyDefaultParameters( pUserProc->RealParams() );
 
+    // 型パラメータを適用
+    pobj_parameter->SetLeftType( leftType );
+
     //エラーチェック
     if( !pobj_parameter->ErrorCheck(pUserProc->GetName(),pUserProc->RealParams(),pUserProc->GetSecondParmNum() ) ){

trunk/abdev/BasicCompiler32/Compile_Var.cpp

@@ -230 +230 @@
     {
         // 型パラメータだったとき
+
+        int ptrLevel = PTR_LEVEL( resultType.GetBasicType() );
+
         if( classType.HasActualGenericType() )
         {
@@ -239 +242 @@
             // TODO: ベースオブジェクト（指定されていないときはObjectクラス）にセットする
             resultType.SetBasicType( DEF_OBJECT );
+        }
+
+        for( int i=0; i<ptrLevel; i++ )
+        {
+            resultType.PtrLevelUp();
         }
     }
@@ -436 +444 @@
             pSubscripts = &pVar->GetSubscripts();
             bConst = pVar->IsConst();
+
+
+            /////////////////////////////////////////////////////////
+            // ☆★☆ ジェネリクスサポート ☆★☆
+
+            if( resultType.IsTypeParameter() )
+            {
+                // 型パラメータだったとき
+
+                int ptrLevel = PTR_LEVEL( resultType.GetBasicType() );
+
+                // TODO: ベースオブジェクト（指定されていないときはObjectクラス）にセットする
+                resultType.SetBasicType( DEF_OBJECT );
+
+                for( int i=0; i<ptrLevel; i++ )
+                {
+                    resultType.PtrLevelUp();
+                }
+            }
+
+            //
+            /////////////////////////////////////////////////////////
 
             goto ok;

trunk/abdev/BasicCompiler32/NumOpe.cpp

@@ -228 +228 @@
                 {
                     // 型パラメータだったとき
+
+                    int ptrLevel = PTR_LEVEL( resultType.GetBasicType() );
+
                     if( leftType.HasActualGenericType() )
                     {
@@ -237 +240 @@
                         // TODO: ベースオブジェクト（指定されていないときはObjectクラス）にセットする
                         resultType.SetBasicType( DEF_OBJECT );
+                    }
+
+                    for( int i=0; i<ptrLevel; i++ )
+                    {
+                        resultType.PtrLevelUp();
                     }
                 }
@@ -253 +261 @@
     char parameter[VN_SIZE];
 
-    if( (string)term=="a.x")
+    if( (string)term=="a[1]")
     {
         int test=0;
@@ -447 +455 @@
     GetArrayElement(termFull,VarName,ArrayElements);
     if(ArrayElements[0]){
-        GetVarType(VarName,resultType,false);
-        if( resultType.IsObject() ){
-            CallIndexerGetterProc(/*UseReg,*/&resultType.GetClass(),VarName,ArrayElements,resultType);
+        Type leftType;
+        GetVarType(VarName,leftType,false);
+        if( leftType.IsObject() )
+        {
+            CallIndexerGetterProc(/*UseReg,*/&resultType.GetClass(),VarName, leftType, ArrayElements,resultType);
 
             isLiteral = false;

trunk/abdev/BasicCompiler32/Opcode.h

@@ -175 +175 @@
     int ParmsNum;
 
+    Type leftType;
     Type returnType;
 
@@ -186 +187 @@
     ParamImpl(const Parameters &params);
     ~ParamImpl();
+    void SetLeftType( const Type &type )
+    {
+        this->leftType = type;
+    }
     void SetReturnType( const Type &returnType );
 
@@ -222 +227 @@
 int CallOperatorProc(int idCalc, const Type &baseType, int *type_stack,LONG_PTR *index_stack,BOOL *bUseHeap,int &sp);
 void CallCastOperatorProc(Type &calcType,BOOL bCalcUseHeap,const Type &toType);
-void CallIndexerGetterProc(const CClass *pobj_Class,char *ObjectName,char *Parameter,Type &resultType);
+void CallIndexerGetterProc(const CClass *pobj_Class,char *ObjectName, const Type &leftType, char *Parameter,Type &resultType);
 
 //Compile_Statement.cpp

trunk/abdev/BasicCompiler32/OperatorProc.cpp

@@ -252 +252 @@
     SetError(-1,"キャスト演算子がオーバーロードされていません。",cp);
 }
-void CallIndexerGetterProc(const CClass *pobj_Class,char *ObjectName,char *Parameter,Type &resultType){
+void CallIndexerGetterProc(const CClass *pobj_Class,char *ObjectName, const Type &leftType, char *Parameter,Type &resultType){
     std::vector<const UserProc *> subs;
     pobj_Class->GetMethods().Enum( CALC_ARRAY_GET, subs );
@@ -261 +261 @@
     Opcode_CallProc(Parameter,subs[0],0,ObjectName);
     resultType = subs[0]->ReturnType();
-}
+
+
+    /////////////////////////////////////////////////////////
+    // ☆★☆ ジェネリクスサポート ☆★☆
+
+    if( resultType.IsTypeParameter() )
+    {
+        // 型パラメータだったとき
+
+        int ptrLevel = PTR_LEVEL( resultType.GetBasicType() );
+
+        if( leftType.HasActualGenericType() )
+        {
+            // TODO: GetDummyActualGenericTypeを適切な形に実装し直す
+            resultType = leftType.GetDummyActualGenericType();
+        }
+        else
+        {
+            // TODO: ベースオブジェクト（指定されていないときはObjectクラス）にセットする
+            resultType.SetBasicType( DEF_OBJECT );
+        }
+
+        for( int i=0; i<ptrLevel; i++ )
+        {
+            resultType.PtrLevelUp();
+        }
+    }
+
+    //
+    /////////////////////////////////////////////////////////
+}