Changeset 358 in dev for trunk/abdev/BasicCompiler32


Ignore:
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:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/abdev/BasicCompiler32/Compile_Func.cpp

    r357 r358  
    2020    if( lstrcmpi( FuncName, "_System_GetNowScopeCatchAddresses" ) == 0 )return FUNC_SYSTEM_GET_NOW_SCOPE_CATCH_ADDRESS;
    2121    if( lstrcmpi( FuncName, "_System_GetBp" ) == 0 )    return FUNC_SYSTEM_GET_BP;
     22    if( lstrcmpi( FuncName, "_System_GetSp" ) == 0 )    return FUNC_SYSTEM_GET_SP;
    2223    if( lstrcmpi( FuncName, "GetDouble" ) == 0 )        return FUNC_GETDOUBLE;
    2324    if( lstrcmpi( FuncName, "GetSingle" ) == 0 )        return FUNC_GETSINGLE;
     
    582583    compiler.codeGenerator.op_mov_RR(REG_EAX,REG_EBP);
    583584}
     585void Opcode_Func_System_Get_Sp()
     586{
     587    //mov eax,esp
     588    compiler.codeGenerator.op_mov_RR(REG_EAX,REG_ESP);
     589}
    584590
    585591void Opcode_Func_GetPtrData(const char *Parameter,const int type){
     
    679685        case FUNC_SYSTEM_GET_NOW_SCOPE_CATCH_ADDRESS:
    680686            if( isCallOn ) Exception::Opcode_Func_System_GetNowScopeCatchAddress();
    681             resultType.SetBasicType( DEF_LONG );
     687            resultType.SetBasicType( DEF_PTR_VOID );
    682688            break;
    683689        case FUNC_SYSTEM_GET_BP:
     
    685691            resultType.SetBasicType( DEF_LONG );
    686692            break;
     693        case FUNC_SYSTEM_GET_SP:
     694            if( isCallOn ) Opcode_Func_System_Get_Sp();
     695            resultType.SetBasicType( DEF_LONG );
     696            break;
    687697
    688698        case FUNC_GETDOUBLE:
  • trunk/abdev/BasicCompiler32/Compile_ProcOp.cpp

    r355 r358  
    100100        UserProc::CompileStartForUserProc( pBackUserProc );
    101101
    102 
    103         //ret
    104         compiler.codeGenerator.op_ret();
    105     }
    106     else if( userProc.GetName() == "_System_GetSp" ){
    107         //mov eax,esp
    108         compiler.codeGenerator.op_mov_RR(REG_EAX,REG_ESP);
    109 
    110         //add eax,PTR_SIZE
    111         compiler.codeGenerator.op_add_RV8(REG_EAX,PTR_SIZE);
    112102
    113103        //ret
  • trunk/abdev/BasicCompiler32/FunctionValue.h

    r357 r358  
    1919#define FUNC_SYSTEM_GET_NOW_SCOPE_CATCH_ADDRESS 0x0623
    2020#define FUNC_SYSTEM_GET_BP  0x0624
     21#define FUNC_SYSTEM_GET_SP  0x0625
    2122
    2223//ポインタ
  • trunk/abdev/BasicCompiler32/MakePeHdr.cpp

    r357 r358  
    3333    *pSub_System_Call_Destructor_of_GlobalObject,
    3434    *pSub_System_End,
    35     *pSub_System_GetSp,
    3635    *pSub_pow,
    3736    *pSub_calloc,
     
    252251    if(pSub_System_End=GetSubHash("_System_End",1)){
    253252        pSub_System_End->Using();
    254     }
    255 
    256     if(pSub_System_GetSp=GetSubHash("_System_GetSp",1)){
    257         pSub_System_GetSp->Using();
    258         pSub_System_GetSp->ThisIsSystemProc();
    259253    }
    260254
Note: See TracChangeset for help on using the changeset viewer.