Changeset 325 in dev for trunk/abdev/BasicCompiler32/Compile_Func.cpp

Timestamp:

Sep 25, 2007, 8:56:38 AM (17 years ago)

Author:

dai_9181

Message:

 

File:

• trunk/abdev/BasicCompiler32/Compile_Func.cpp (modified) (3 diffs)

trunk/abdev/BasicCompiler32/Compile_Func.cpp

@@ -9 +9 @@
 
 int GetFunctionFromName(char *FuncName){
-    if(lstrcmpi(FuncName,"CUDbl")==0)       return FUNC_CUDBL;
-    if(lstrcmpi(FuncName,"Fix")==0)         return FUNC_FIX;
-    if(lstrcmpi(FuncName,"Len")==0)         return FUNC_LEN;
-    if(lstrcmpi(FuncName,"AddressOf")==0)   return FUNC_ADDRESSOF;
-    if(lstrcmpi(FuncName,"SizeOf")==0)      return FUNC_SIZEOF;
-    if(lstrcmpi(FuncName,"VarPtr")==0)      return FUNC_VARPTR;
-    if(lstrcmpi(FuncName,"ObjPtr")==0)      return FUNC_OBJPTR;
-    if(lstrcmpi(FuncName,"GetDouble")==0)   return FUNC_GETDOUBLE;
-    if(lstrcmpi(FuncName,"GetSingle")==0)   return FUNC_GETSINGLE;
-    if(lstrcmpi(FuncName,"GetQWord")==0)    return FUNC_GETQWORD;
-    if(lstrcmpi(FuncName,"GetDWord")==0)    return FUNC_GETDWORD;
-    if(lstrcmpi(FuncName,"GetWord")==0)     return FUNC_GETWORD;
-    if(lstrcmpi(FuncName,"GetByte")==0)     return FUNC_GETBYTE;
+    if( lstrcmpi( FuncName, "CUDbl" ) == 0 )            return FUNC_CUDBL;
+    if( lstrcmpi( FuncName, "Fix" ) == 0 )              return FUNC_FIX;
+    if( lstrcmpi( FuncName, "Len" ) == 0 )              return FUNC_LEN;
+    if( lstrcmpi( FuncName, "AddressOf" ) == 0 )        return FUNC_ADDRESSOF;
+    if( lstrcmpi( FuncName, "SizeOf" ) == 0 )           return FUNC_SIZEOF;
+    if( lstrcmpi( FuncName, "VarPtr" ) == 0 )           return FUNC_VARPTR;
+    if( lstrcmpi( FuncName, "ObjPtr" ) == 0 )           return FUNC_OBJPTR;
+    if( lstrcmpi( FuncName, "__delegate_dynamicmethod_call" ) == 0 )    return FUNC_DELEGATE_DYNAMICMETHOD_CALL;
+    if( lstrcmpi( FuncName, "__delegate_staticmethod_call" ) == 0 )     return FUNC_DELEGATE_STATICMETHOD_CALL;
+    if( lstrcmpi( FuncName, "GetDouble" ) == 0 )        return FUNC_GETDOUBLE;
+    if( lstrcmpi( FuncName, "GetSingle" ) == 0 )        return FUNC_GETSINGLE;
+    if( lstrcmpi( FuncName, "GetQWord" ) == 0 )         return FUNC_GETQWORD;
+    if( lstrcmpi( FuncName, "GetDWord" ) == 0 )         return FUNC_GETDWORD;
+    if( lstrcmpi( FuncName, "GetWord" ) == 0 )          return FUNC_GETWORD;
+    if( lstrcmpi( FuncName, "GetByte" ) == 0 )          return FUNC_GETBYTE;
     return 0;
 }
@@ -394 +396 @@
     }
 }
+
+void Opcode_Func_delegate_call( const char *paramsStr, Type &resultType, bool isDynamicCall, bool isCallOn )
+{
+    if( isCallOn )
+    {
+        int i = 0;
+        char methodPtrParamStr[VN_SIZE];
+        i = GetOneParameter( paramsStr, i, methodPtrParamStr );
+
+        char objPtrValueStr[VN_SIZE];
+        if( isDynamicCall )
+        {
+            i = GetOneParameter( paramsStr, i, objPtrValueStr );
+        }
+
+        Opcode_CallDelegate( compiler.pCompilingClass->GetDelegate(), methodPtrParamStr, objPtrValueStr, paramsStr + i );
+    }
+
+    resultType = UserProc::CompilingUserProc().ReturnType();
+}
+
 void Opcode_Func_GetPtrData(const char *Parameter,const int type){
     Type tempType;
@@ -482 +505 @@
             Opcode_Func_ObjPtr( Parameter, resultType, isCallOn );
             break;
+        case FUNC_DELEGATE_DYNAMICMETHOD_CALL:
+            Opcode_Func_delegate_call( Parameter, resultType, true, isCallOn );
+            break;
+        case FUNC_DELEGATE_STATICMETHOD_CALL:
+            Opcode_Func_delegate_call( Parameter, resultType, false, isCallOn );
+            break;
 
         case FUNC_GETDOUBLE: