Changeset 432 in dev for trunk/abdev

Timestamp:

Mar 11, 2008, 7:22:05 PM (17 years ago)

Author:

dai_9181

Message:

[431]を64bit版にマージ。

Location:

trunk/abdev/BasicCompiler64

Files:

• Compile_Func.cpp (modified) (4 diffs)
• FunctionValue.h (modified) (1 diff)

trunk/abdev/BasicCompiler64/Compile_Func.cpp

@@ -7 +7 @@
 #include "../BasicCompiler_Common/common.h"
 #include "Opcode.h"
+
+#ifdef _AMD64_
+#include "../BasicCompiler64/FunctionValue.h"
+#else
+#include "../BasicCompiler32/FunctionValue.h"
+#endif
 
 int GetFunctionFromName(char *FuncName){
@@ -20 +26 @@
     if( lstrcmpi( FuncName, "_System_GetBp" ) == 0 )    return FUNC_SYSTEM_GET_BP;
     if( lstrcmpi( FuncName, "_System_GetSp" ) == 0 )    return FUNC_SYSTEM_GET_SP;
-    if( lstrcmp( FuncName, "_System_New" ) == 0 )       return FUNC_SYSTEM_NEW;
+    if( lstrcmp( FuncName, "_System_GetComVtbl" ) == 0 )        return FUNC_SYSTEM_GET_COM_VTBL;
+    if( lstrcmp( FuncName, "_System_GetVtblList" ) == 0 )       return FUNC_SYSTEM_GET_VTBL_LIST;
+    if( lstrcmp( FuncName, "_System_GetDefaultConstructor" ) == 0 ) return FUNC_SYSTEM_GET_DEFAULT_CONSTRUCTOR;
+    if( lstrcmp( FuncName, "_System_GetDestructor" ) == 0 )         return FUNC_SYSTEM_GET_DESTRUCTOR;
     if( lstrcmpi( FuncName, "GetDouble" ) == 0 )        return FUNC_GETDOUBLE;
     if( lstrcmpi( FuncName, "GetSingle" ) == 0 )        return FUNC_GETSINGLE;
@@ -471 +480 @@
 }
 
-void Opcode_Func_System_New( const char *parameter, Type &resultType, bool isCallOn )
-{
-    if( !compiler.StringToType( parameter, resultType ) )
-    {
-        SetError();
-        return;
-    }
-    if( !resultType.IsObject() )
-    {
-        SetError();
-        return;
-    }
-
-    if( isCallOn )
-    {
-        Type tempResultType;
-        if( !Operator_New( parameter, resultType, tempResultType ) )
-        {
-            return;
-        }
-
-        if( !resultType.Equals( tempResultType ) )
-        {
-            SetError();
-        }
-    }
+void Opcode_Func_System_GetComVtbl( const char *parameter )
+{
+    Type classType;
+    compiler.StringToType( parameter, classType );
+
+    // mov rax,com_vtbl
+    compiler.codeGenerator.op_mov_RV_com_vtbl( REG_RAX, &classType.GetClass() );
+}
+void Opcode_Func_System_GetVtblList( const char *parameter )
+{
+    Type classType;
+    compiler.StringToType( parameter, classType );
+
+    // mov rax,com_vtbl
+    compiler.codeGenerator.op_mov_RV_vtbl( REG_RAX, &classType.GetClass() );
+}
+void Opcode_Func_System_GetDefaultConstructor( const char *parameter )
+{
+    Type classType;
+    compiler.StringToType( parameter, classType );
+
+    if( classType.GetClass().GetConstructorMethod() )
+    {
+        //mov rax,ProcAddr
+        compiler.codeGenerator.op_addressof( REG_RAX, &classType.GetClass().GetConstructorMethod()->GetUserProc() );
+    }
+    else
+    {
+        // デフォルトコンストラクタを持たない
+
+        //xor rax,rax
+        compiler.codeGenerator.op_zero_reg( REG_RAX );
+    }
+}
+void Opcode_Func_System_GetDestructor( const char *parameter )
+{
+    Type classType;
+    compiler.StringToType( parameter, classType );
+
+    //mov rax,ProcAddr
+    compiler.codeGenerator.op_addressof( REG_RAX, &classType.GetClass().GetDestructorMethod()->GetUserProc() );
 }
 
@@ -566 +590 @@
             resultType.SetBasicType( DEF_INT64 );
             break;
-        case FUNC_SYSTEM_NEW:
-            Opcode_Func_System_New( Parameter, resultType, isCallOn );
+        case FUNC_SYSTEM_GET_COM_VTBL:
+            if( isCallOn ) Opcode_Func_System_GetComVtbl( Parameter );
+            resultType.SetBasicType( DEF_PTR_VOID );
+            break;
+        case FUNC_SYSTEM_GET_VTBL_LIST:
+            if( isCallOn ) Opcode_Func_System_GetVtblList( Parameter );
+            resultType.SetBasicType( DEF_PTR_VOID );
+            break;
+        case FUNC_SYSTEM_GET_DEFAULT_CONSTRUCTOR:
+            if( isCallOn ) Opcode_Func_System_GetDefaultConstructor( Parameter );
+            resultType.SetBasicType( DEF_PTR_VOID );
+            break;
+        case FUNC_SYSTEM_GET_DESTRUCTOR:
+            if( isCallOn ) Opcode_Func_System_GetDestructor( Parameter );
+            resultType.SetBasicType( DEF_PTR_VOID );
             break;
 

trunk/abdev/BasicCompiler64/FunctionValue.h

@@ -20 +20 @@
 #define FUNC_SYSTEM_GET_BP  0x0625
 #define FUNC_SYSTEM_GET_SP  0x0626
-#define FUNC_SYSTEM_NEW     0x0627
+#define FUNC_SYSTEM_GET_COM_VTBL    0x0627
+#define FUNC_SYSTEM_GET_VTBL_LIST   0x0628
+#define FUNC_SYSTEM_GET_DEFAULT_CONSTRUCTOR     0x0629
+#define FUNC_SYSTEM_GET_DESTRUCTOR              0x062A
 
 //ポインタ