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

Timestamp:

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

Author:

dai_9181

Message:

 

File:

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

trunk/abdev/BasicCompiler64/Compile_Func.cpp

@@ -9 +9 @@
 
 int GetFunctionFromName(char *FuncName){
-    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, "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, "__unsafe_call" ) == 0 )    return FUNC_UNSAFE_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;
 }
@@ -251 +252 @@
     }
 }
+
+void Opcode_Func_unsafe_call( const char *paramsStr, Type &resultType, bool isCallOn )
+{
+    if( isCallOn )
+    {
+        int i = 0;
+        char methodPtrParamStr[8192];
+        GetOneParameter( paramsStr, i, methodPtrParamStr );
+        UnsafeCall( methodPtrParamStr, paramsStr + i );
+    }
+
+    resultType = UserProc::CompilingUserProc().ReturnType();
+}
+
 void Opcode_Func_GetPtrData( const char *Parameter, const int type ){
     int reg=REG_RAX;
@@ -296 +311 @@
             Opcode_Func_ObjPtr( Parameter, resultType, isCallOn );
             break;
+        case FUNC_UNSAFE_CALL:
+            Opcode_Func_unsafe_call( Parameter, resultType, isCallOn );
+            break;
 
         case FUNC_GETDOUBLE: