Changeset 325 in dev for trunk/abdev/BasicCompiler64

Timestamp:

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

Author:

dai_9181

Message:

 

Location:

trunk/abdev/BasicCompiler64

Files:

• Compile_CallProc.cpp (modified) (1 diff)
• Compile_Func.cpp (modified) (3 diffs)
• FunctionValue.h (modified) (1 diff)
• Opcode.h (modified) (1 diff)

trunk/abdev/BasicCompiler64/Compile_CallProc.cpp

@@ -474 +474 @@
     return true;
 }
+
+void UnsafeCall( const char *methodPtrValueStr, const char *params )
+{
+}

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:

trunk/abdev/BasicCompiler64/FunctionValue.h

@@ -12 +12 @@
 
 //その他
-#define FUNC_ADDRESSOF  0x0619
-#define FUNC_SIZEOF     0x0620
+#define FUNC_ADDRESSOF      0x0619
+#define FUNC_SIZEOF         0x0620
+#define FUNC_UNSAFE_CALL    0x0621
 
 //ポインタ
-#define FUNC_GETDOUBLE  0x0630
-#define FUNC_GETSINGLE  0x0631
-#define FUNC_GETQWORD   0x0632
-#define FUNC_GETDWORD   0x0634
-#define FUNC_GETWORD    0x0635
-#define FUNC_GETBYTE    0x0636
+#define FUNC_GETDOUBLE      0x0630
+#define FUNC_GETSINGLE      0x0631
+#define FUNC_GETQWORD       0x0632
+#define FUNC_GETDWORD       0x0634
+#define FUNC_GETWORD        0x0635
+#define FUNC_GETBYTE        0x0636

trunk/abdev/BasicCompiler64/Opcode.h

@@ -333 +333 @@
 bool Opcode_CallProc(const char *Parameter,const UserProc *pUserProc,DWORD dwFlags,const char *ObjectName);
 bool Opcode_CallDllProc( const char *lpszParms,DllProc *pDllProc);
+void UnsafeCall( const char *methodPtrValueStr, const char *params );
 
 //Compile_ProcOp.cpp