Changeset 337 in dev for trunk/abdev/BasicCompiler32

Timestamp:

Sep 29, 2007, 1:21:08 PM (17 years ago)

Author:

dai_9181

Message:

デリゲートにエラーチェックを仕込んだ

File:

• trunk/abdev/BasicCompiler32/Compile_Func.cpp (modified) (1 diff)

trunk/abdev/BasicCompiler32/Compile_Func.cpp

@@ -393 +393 @@
         pUserProc=OverloadSolution( name, subs, *pBaseParams, Type() );
 
+        if( isCallOn )
+        {
+            // コード生成を伴う場合はエラーチェックを行う
+            if( !pUserProc->Params().Equals( *pBaseParams )
+                || !pUserProc->ReturnType().Equals( baseType.GetClass().GetDelegate().ReturnType() ) )
+            {
+                if( baseType.IsDelegate() )
+                {
+                    SetError(67, name, cp );
+                }
+                else
+                {
+                    SetError(66, name, cp );
+                }
+            }
+        }
+
         if(!pUserProc){
             SetError(27,name,cp);