Changeset 358 in dev for trunk/abdev/BasicCompiler32/Compile_Func.cpp

Timestamp:

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

Author:

dai_9181

Message:

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

File:

• trunk/abdev/BasicCompiler32/Compile_Func.cpp (modified) (4 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: