Changeset 299 in dev for trunk/abdev/BasicCompiler32

Timestamp:

Aug 23, 2007, 6:17:00 PM (17 years ago)

Author:

dai_9181

Message:

 

Location:

trunk/abdev/BasicCompiler32

Files:

• CParameter.cpp (modified) (1 diff)
• Compile_Func.cpp (modified) (1 diff)
• Compile_ProcOp.cpp (modified) (1 diff)
• Compile_Var.cpp (modified) (2 diffs)
• NumOpe.cpp (modified) (2 diffs)
• Opcode.h (modified) (1 diff)
• OperatorProc.cpp (modified) (1 diff)
• stdafx.h (modified) (1 diff)

trunk/abdev/BasicCompiler32/CParameter.cpp

@@ -214 +214 @@
             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();
-                }
-            }
-
-            //
-            /////////////////////////////////////////////////////////
+            // 型パラメータを解決
+            ResolveFormalGenericTypeParameter( dummyType, leftType );
         }
 

trunk/abdev/BasicCompiler32/Compile_Func.cpp

@@ -324 +324 @@
 void Opcode_Func_SizeOf( const string &typeName ){
     Type tempType;
-    if( !Compiler::StringToType( typeName, tempType ) ){
+    if( !compiler.StringToType( typeName, tempType ) ){
         SetError(3,typeName,cp);
         return;

trunk/abdev/BasicCompiler32/Compile_ProcOp.cpp

@@ -388 +388 @@
         else{
             if( pUserProc->ReturnType().IsObject() ){
-                sprintf(temporary,"%s=Nothing%c%c%s",temp,1,ESC_AS, Compiler::TypeToString( pUserProc->ReturnType() ).c_str() );
+                sprintf(temporary,"%s=Nothing%c%c%s",temp,1,ESC_AS, compiler.TypeToString( pUserProc->ReturnType() ).c_str() );
             }
             else{
                 //戻り値用の変数の定義
-                sprintf(temporary,"%s%c%c%s",temp,1,ESC_AS, Compiler::TypeToString( pUserProc->ReturnType() ).c_str() );
+                sprintf(temporary,"%s%c%c%s",temp,1,ESC_AS, compiler.TypeToString( pUserProc->ReturnType() ).c_str() );
             }
 

trunk/abdev/BasicCompiler32/Compile_Var.cpp

@@ -223 +223 @@
     resultType = pMember->GetType();
 
-
-    /////////////////////////////////////////////////////////
-    // ☆★☆ ジェネリクスサポート ☆★☆
-
-    if( resultType.IsTypeParameter() )
-    {
-        // 型パラメータだったとき
-
-        int ptrLevel = PTR_LEVEL( resultType.GetBasicType() );
-
-        if( classType.HasActualGenericType() )
-        {
-            // TODO: GetDummyActualGenericTypeを適切な形に実装し直す
-            resultType = classType.GetDummyActualGenericType();
-        }
-        else
-        {
-            // TODO: ベースオブジェクト（指定されていないときはObjectクラス）にセットする
-            resultType.SetBasicType( DEF_OBJECT );
-        }
-
-        for( int i=0; i<ptrLevel; i++ )
-        {
-            resultType.PtrLevelUp();
-        }
-    }
-
-    //
-    /////////////////////////////////////////////////////////
+    // 型パラメータを解決
+    ResolveFormalGenericTypeParameter( resultType, classType );
 
 
@@ -1121 +1094 @@
 }
 
-void dim( char *VarName, const Subscripts &subscripts, Type &type,const char *InitBuf,const char *ConstractParameter,DWORD dwFlags){
+void dim( char *VarName, const Subscripts &subscripts, const Type &type,const char *InitBuf,const char *ConstractParameter,DWORD dwFlags){
     if( UserProc::IsGlobalAreaCompiling() ){
         /////////////////////////

trunk/abdev/BasicCompiler32/NumOpe.cpp

@@ -221 +221 @@
                 //SetUseRegFromRax(resultType.GetBasicType(),UseReg,XmmReg);
 
-
-                /////////////////////////////////////////////////////////
-                // ☆★☆ ジェネリクスサポート ☆★☆
-
-                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();
-                    }
-                }
-
-                //
-                /////////////////////////////////////////////////////////
+                // 型パラメータを解決
+                ResolveFormalGenericTypeParameter( resultType, leftType, pUserProc );
             }
             
@@ -780 +753 @@
                     // As演算子の右辺値
                     //型名
-                    if( Compiler::StringToType( term, resultType ) ){
+                    if( compiler.StringToType( term, resultType ) ){
                         resultType.SetBasicType( resultType.GetBasicType() | FLAG_CAST );
                     }

trunk/abdev/BasicCompiler32/Opcode.h

@@ -164 +164 @@
 #define DIMFLAG_STATIC                  4
 #define DIMFLAG_CONST                   8
-void dim( char *VarName, const Subscripts &subscripts, Type &type, const char *InitBuf,const char *ConstractParameter,DWORD dwFlags);
+void dim( char *VarName, const Subscripts &subscripts, const Type &type, const char *InitBuf,const char *ConstractParameter,DWORD dwFlags);
 void SetVarPtrToEax(RELATIVE_VAR *pRelativeVar);
 void SetVarPtrToReg(int reg,RELATIVE_VAR *pRelativeVar);

trunk/abdev/BasicCompiler32/OperatorProc.cpp

@@ -259 +259 @@
     }
 
-    Opcode_CallProc(Parameter,subs[0],0,ObjectName);
-    resultType = subs[0]->ReturnType();
-
-
-    /////////////////////////////////////////////////////////
-    // ☆★☆ ジェネリクスサポート ☆★☆
-
-    if( resultType.IsTypeParameter() )
-    {
-        // 型パラメータだったとき
-
-        int ptrLevel = PTR_LEVEL( resultType.GetBasicType() );
-
-        if( classType.HasActualGenericType() )
-        {
-            // TODO: GetDummyActualGenericTypeを適切な形に実装し直す
-            resultType = classType.GetDummyActualGenericType();
-        }
-        else
-        {
-            // TODO: ベースオブジェクト（指定されていないときはObjectクラス）にセットする
-            resultType.SetBasicType( DEF_OBJECT );
-        }
-
-        for( int i=0; i<ptrLevel; i++ )
-        {
-            resultType.PtrLevelUp();
-        }
-    }
-
-    //
-    /////////////////////////////////////////////////////////
-}
+    const UserProc *pUserProc = subs[0];
+
+    Opcode_CallProc(Parameter,pUserProc,0,ObjectName);
+    resultType = pUserProc->ReturnType();
+
+    // 型パラメータを解決
+    ResolveFormalGenericTypeParameter( resultType, classType, pUserProc );
+}

trunk/abdev/BasicCompiler32/stdafx.h

@@ -17 +17 @@
 #include <boost/foreach.hpp>
 
+#include <jenga/include/common/String.h>
+
 #include "../BasicCompiler_Common/common.h"