Changeset 358 in dev for trunk/abdev/BasicCompiler32

Timestamp:

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

Author:

dai_9181

Message:

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

Location:

trunk/abdev/BasicCompiler32

Files:

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

trunk/abdev/BasicCompiler32/Compile_Func.cpp

@@ -20 +20 @@
     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;
@@ -582 +583 @@
     compiler.codeGenerator.op_mov_RR(REG_EAX,REG_EBP);
 }
+void Opcode_Func_System_Get_Sp()
+{
+    //mov eax,esp
+    compiler.codeGenerator.op_mov_RR(REG_EAX,REG_ESP);
+}
 
 void Opcode_Func_GetPtrData(const char *Parameter,const int type){
@@ -679 +685 @@
         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:
@@ -685 +691 @@
             resultType.SetBasicType( DEF_LONG );
             break;
+        case FUNC_SYSTEM_GET_SP:
+            if( isCallOn ) Opcode_Func_System_Get_Sp();
+            resultType.SetBasicType( DEF_LONG );
+            break;
 
         case FUNC_GETDOUBLE:

trunk/abdev/BasicCompiler32/Compile_ProcOp.cpp

@@ -100 +100 @@
         UserProc::CompileStartForUserProc( pBackUserProc );
 
-
-        //ret
-        compiler.codeGenerator.op_ret();
-    }
-    else if( userProc.GetName() == "_System_GetSp" ){
-        //mov eax,esp
-        compiler.codeGenerator.op_mov_RR(REG_EAX,REG_ESP);
-
-        //add eax,PTR_SIZE
-        compiler.codeGenerator.op_add_RV8(REG_EAX,PTR_SIZE);
 
         //ret

trunk/abdev/BasicCompiler32/FunctionValue.h

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

trunk/abdev/BasicCompiler32/MakePeHdr.cpp

@@ -33 +33 @@
     *pSub_System_Call_Destructor_of_GlobalObject,
     *pSub_System_End,
-    *pSub_System_GetSp,
     *pSub_pow,
     *pSub_calloc,
@@ -252 +251 @@
     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();
     }