Changeset 327 in dev for trunk/abdev/BasicCompiler_Common/Subroutine.cpp

Timestamp:

Sep 25, 2007, 9:23:38 PM (17 years ago)

Author:

dai_9181

Message:

デリゲートのベースがほぼ実装できた

File:

• trunk/abdev/BasicCompiler_Common/Subroutine.cpp (modified) (2 diffs)

trunk/abdev/BasicCompiler_Common/Subroutine.cpp

@@ -61 +61 @@
     if(*ppInfo) return PROC_BUILTIN;
 
-    //関数ポインタ
+
+    /////////////////////////////////////////////////////////////////
+    //関数ポインタ、またはデリゲート
+    /////////////////////////////////////////////////////////////////
+
     Type type;
     if( !GetVarType( name, type, false ) ){
         return 0;
     }
-    if( type.IsProcPtr() ){
+
+    if( type.IsProcPtr() )
+    {
+        // 関数ポインタ
         return PROC_PTR;
+    }
+
+    if( type.IsObject() && type.GetClass().IsDelegate() )
+    {
+        // デリゲート
+        return PROC_DELEGATE;
     }
 
@@ -185 +198 @@
             }
         }
+    }
+    else if( kind == PROC_DELEGATE )
+    {
+        // デリゲート
+        char tempName[VN_SIZE];
+        lstrcpy( tempName, fullCallName );
+        lstrcat( tempName, ".Call" );
+
+        void *pInfo=(void *)GetSubHash( tempName );
+        if( !pInfo )
+        {
+            Jenga::Throw( "デリゲートの内部Callメソッドの取得に失敗" );
+        }
+
+        return CallProc( PROC_DEFAULT, pInfo, tempName, lpszParms, resultType, isCallOn );
     }
     else{