Changeset 337 in dev for trunk

Timestamp:

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

Author:

dai_9181

Message:

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

Location:

trunk/abdev

Files:

• BasicCompiler32/Compile_Func.cpp (modified) (1 diff)
• BasicCompiler_Common/error.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);

trunk/abdev/BasicCompiler_Common/error.cpp

@@ -162 +162 @@
     if(num==64) sprintf(msg,"\"%s\" 無効な名前空間です。",tempKeyWord);
     if(num==65) sprintf(msg,"ローカル領域で%sは使用できません。",tempKeyWord);
+    if(num==66) sprintf(msg,"%s 要求されている関数ポインタのパラメータまたは戻り値が一致しません。", tempKeyWord );
+    if(num==67) sprintf(msg,"%s 要求されているデリゲートのパラメータまたは戻り値が一致しません。", tempKeyWord );