Changeset 358 in dev for trunk/abdev/BasicCompiler64

Timestamp:

Nov 6, 2007, 2:35:15 AM (17 years ago)

Author:

dai_9181

Message:

Try-Catchを試験的に実装。
（まだ下記の動作しか実装していません）
・Try
・Catch（パラメータ無し）
・Throw（パラメータ無し）

Location:

trunk/abdev/BasicCompiler64

Files:

• Compile_Func.cpp (modified) (3 diffs)
• Compile_ProcOp.cpp (modified) (1 diff)
• FunctionValue.h (modified) (1 diff)
• MakePeHdr.cpp (modified) (2 diffs)

trunk/abdev/BasicCompiler64/Compile_Func.cpp

@@ -17 +17 @@
     if( lstrcmpi( FuncName, "__delegate_staticmethod_call" ) == 0 )     return FUNC_DELEGATE_STATICMETHOD_CALL;
     if( lstrcmpi( FuncName, "_System_GetNowScopeCatchAddresses" ) == 0 )return FUNC_SYSTEM_GET_NOW_SCOPE_CATCH_ADDRESS;
+    if( lstrcmpi( FuncName, "_System_GetBp" ) == 0 )    return FUNC_SYSTEM_GET_BP;
+    if( lstrcmpi( FuncName, "_System_GetSp" ) == 0 )    return FUNC_SYSTEM_GET_SP;
     if( lstrcmpi( FuncName, "GetDouble" ) == 0 )        return FUNC_GETDOUBLE;
     if( lstrcmpi( FuncName, "GetSingle" ) == 0 )        return FUNC_GETSINGLE;
@@ -447 +449 @@
     compiler.codeGenerator.op_mov_RR(REG_RAX,REG_RBP);
 }
+void Opcode_Func_System_Get_Sp()
+{
+    //mov rax,rsp
+    compiler.codeGenerator.op_mov_RR(REG_RAX,REG_RSP);
+}
 
 void Opcode_Func_GetPtrData( const char *Parameter, const int type ){
@@ -501 +508 @@
         case FUNC_SYSTEM_GET_NOW_SCOPE_CATCH_ADDRESS:
             if( isCallOn ) Exception::Opcode_Func_System_GetNowScopeCatchAddress();
-            resultType.SetBasicType( DEF_LONG );
+            resultType.SetBasicType( DEF_PTR_VOID );
             break;
         case FUNC_SYSTEM_GET_BP:
             if( isCallOn ) Opcode_Func_System_Get_Bp();
-            resultType.SetBasicType( DEF_LONG );
+            resultType.SetBasicType( DEF_INT64 );
+            break;
+        case FUNC_SYSTEM_GET_SP:
+            if( isCallOn ) Opcode_Func_System_Get_Sp();
+            resultType.SetBasicType( DEF_INT64 );
             break;
 

trunk/abdev/BasicCompiler64/Compile_ProcOp.cpp

@@ -117 +117 @@
         //add rsp,8
         compiler.codeGenerator.op_add_RV(REG_RSP,0x8);
-
-        //ret
-        compiler.codeGenerator.op_ret();
-    }
-    else if( userProc.GetName() == "_System_GetSp" ){
-        //mov rax,rsp
-        compiler.codeGenerator.op_mov_RR(REG_RAX,REG_RSP);
-
-        //add rax,PTR_SIZE
-        compiler.codeGenerator.op_add_RV(REG_RAX,PTR_SIZE);
 
         //ret

trunk/abdev/BasicCompiler64/FunctionValue.h

@@ -18 +18 @@
 #define FUNC_SYSTEM_GET_NOW_SCOPE_CATCH_ADDRESS 0x0623
 #define FUNC_SYSTEM_GET_BP  0x0624
+#define FUNC_SYSTEM_GET_SP  0x0625
 
 //ポインタ

trunk/abdev/BasicCompiler64/MakePeHdr.cpp

@@ -33 +33 @@
     *pSub_System_Call_Destructor_of_GlobalObject,
     *pSub_System_End,
-    *pSub_System_GetSp,
     *pSub_pow,
     *pSub_calloc,
@@ -245 +244 @@
     if(pSub_System_End=GetSubHash("_System_End",1)){
         pSub_System_End->Using();
-    }
-
-    if(pSub_System_GetSp=GetSubHash("_System_GetSp",1)){
-        pSub_System_GetSp->Using();
-        pSub_System_GetSp->ThisIsSystemProc();
     }