source: dev/BasicCompiler32/OperatorProc.cpp@ 38

#include "../BasicCompiler_Common/common.h"
#include "Opcode.h"

void FreeTempObject(int reg,CClass *pobj_c){
    if(!IsSafeReg(reg)) SetError(300,NULL,cp);

    if(pobj_c->DestructorMemberSubIndex!=-1){
        //push reg
        op_push(reg);

        //call DestructorProcAddr
        op_call(pobj_c->ppobj_Method[pobj_c->DestructorMemberSubIndex]->psi);
    }

    //push reg
    op_push(reg);

    //call free
    extern SUBINFO *pSub_free;
    op_call(pSub_free);
}

int CallOperatorProc(int idCalc,TYPEINFO *pBaseTypeInfo,int *type,LONG_PTR *index_stack,BOOL *bUseHeap,int &sp){
    //オーバーロードされたオペレータ関数を呼び出す
    CClass *pobj_c;
    pobj_c=(CClass *)index_stack[sp-2];

    SUBINFO **ppsi;
    int num;
    ppsi=pobj_c->GetOperatorSubInfo(idCalc,num);
    if(num==0){
        HeapDefaultFree(ppsi);

        return 0;
    }


    //項の数
    BOOL bTwoTerm=1;
    if(idCalc==CALC_AS) bTwoTerm=0;


    int i;
    BOOL bReturnTypeIsObject=1;
    TYPEINFO ReturnType={DEF_OBJECT,ppsi[0]->u.ReturnIndex};
    for(i=0;i<num;i++){
        if(ppsi[i]->ReturnType!=DEF_OBJECT)
            bReturnTypeIsObject=0;
    }

    if(bReturnTypeIsObject==0){
        if(pBaseTypeInfo){
            if(pBaseTypeInfo->type==DEF_OBJECT){
                bReturnTypeIsObject=1;
                ReturnType.u.lpIndex=pBaseTypeInfo->u.lpIndex;
            }
        }
    }



    /////////////////////////////////////////////
    // オーバーロード解決用のパラメータを設定
    /////////////////////////////////////////////

    PARAMETER_INFO *ppi = (PARAMETER_INFO *)HeapAlloc(hHeap,0,sizeof(PARAMETER_INFO)*3);
    int iParmNum=0;

    if(bTwoTerm){
        ppi[iParmNum].bArray=0;
        ppi[iParmNum].bByVal=0;
        ppi[iParmNum].name=0;
        ppi[iParmNum].type=type[sp-1];
        ppi[iParmNum].u.index=index_stack[sp-1];
        ppi[iParmNum].SubScripts[0]=-1;
        iParmNum++;
    }


    //オーバーロードを解決
    char temporary[255];
    if(idCalc==CALC_EQUAL) lstrcpy(temporary,"==");
    else GetCalcName(idCalc,temporary);
    SUBINFO *psi;
    psi=OverloadSolution(temporary,ppsi,num,ppi,iParmNum,pBaseTypeInfo);
    HeapDefaultFree(ppsi);

    if(!psi){
        HeapDefaultFree(ppi);
        return -1;
    }
    else{
        //オーバーロードされていないが、パラメータ個数が一致しないとき
        if(iParmNum!=psi->ParmNum){
            HeapDefaultFree(ppi);
            return -1;
        }
    }

    for(i=0;i<iParmNum;i++){
        CheckDifferentType(
            psi->pParmInfo[i].type,
            psi->pParmInfo[i].u.index,
            ppi[i].type,
            ppi[i].u.index,
            "",
            i);
    }

    HeapDefaultFree(ppi);

    int right_side_size;
    if(type[sp-1]==DEF_OBJECT) right_side_size=PTR_SIZE;
    else right_side_size=GetTypeSize(type[sp-1],index_stack[sp-1]);

    if(bTwoTerm){
        if(psi->pParmInfo[1].type==DEF_OBJECT&&psi->pParmInfo[1].bByVal){
            //一時オブジェクトはメソッド内で破棄される
            bUseHeap[sp-1]=0;
        }
    }


    if(psi->ReturnType==DEF_OBJECT){
        //////////////////////////////////////////////////////
        // 戻り値にオブジェクト インスタンスを持つ場合
        // ※ByRef _System_ReturnObject パラメータ用領域を取得
        //////////////////////////////////////////////////////

        int object_size;
        object_size=GetSizeOfClass(psi->u.Return_pobj_c);

        //push object_size
        op_push_value(object_size);

        //call calloc
        extern SUBINFO *pSub_calloc;
        op_call(pSub_calloc);

        //mov ebx,eax
        op_mov_RR(REG_EBX,REG_EAX);
    }


    //2つの項を取り出す
    if(bTwoTerm){
        if(right_side_size==sizeof(_int64)){
            //pop eax
            op_pop(REG_EAX);

            //pop edx
            op_pop(REG_EDX);
        }
        else{
            //pop eax
            op_pop(REG_EAX);
        }
    }

    //pop ecx
    op_pop(REG_ECX);


    //ヒープ解放用に退避
    if(bUseHeap[sp-1]){
        //mov esi,eax
        op_mov_RR(REG_ESI,REG_EAX);
    }
    if(bUseHeap[sp-2]){
        //mov edi,ecx
        op_mov_RR(REG_EDI,REG_ECX);
    }



    if(bTwoTerm){
        if(right_side_size==sizeof(_int64)){
            //push edx
            op_push(REG_EDX);

            //push eax
            op_push(REG_EAX);
        }
        else{
            //push eax
            op_push(REG_EAX);
        }
    }

    if(psi->ReturnType==DEF_OBJECT){
        //push ebx
        op_push(REG_EBX);
    }

    //push ecx
    op_push(REG_ECX);

    //call operator_proc
    op_call(psi);

    if(psi->ReturnType!=-1){
        //スタックへプッシュ
        PushReturnValue(psi->ReturnType);
    }

    if(bUseHeap[sp-1]){
        FreeTempObject(REG_ESI,(CClass *)index_stack[sp-1]);
    }
    if(bUseHeap[sp-2]){
        FreeTempObject(REG_EDI,(CClass *)index_stack[sp-2]);
    }

    sp--;
    type[sp-1]=psi->ReturnType;
    index_stack[sp-1]=psi->u.ReturnIndex;

    if(psi->ReturnType==DEF_OBJECT){
        //Object型が戻ったときはヒープ領域にインスタンスが格納されている
        //※後にfreeする必要あり
        bUseHeap[sp-1]=1;
    }
    else bUseHeap[sp-1]=0;

    return 1;
}

void CallCastOperatorProc(int &CalcType,LONG_PTR &lpCalcIndex,BOOL bCalcUseHeap,int ToType,LONG_PTR lpToIndex){
    int type[10];
    LONG_PTR index_stack[10];
    BOOL array_bUseHeap[10];
    int sp=2;

    if(bCalcUseHeap){
        //未解放のインスタンスが存在する旨を示す警告
        SetError(-105,NULL,cp);
    }

    //左辺
    type[0]=CalcType;
    index_stack[0]=lpCalcIndex;
    array_bUseHeap[0]=0;
    type[1]=ToType;
    index_stack[1]=lpToIndex;
    array_bUseHeap[1]=0;

    TYPEINFO BaseTypeInfo={ToType,lpToIndex};

    int iRet;
    iRet=CallOperatorProc(CALC_AS,&BaseTypeInfo,type,index_stack,array_bUseHeap,sp);
    if(iRet==1){
        //成功したとき
        CalcType=type[0];
        lpCalcIndex=index_stack[0];
        return;
    }
    else if(iRet==-1){
        //エラーが発行されたとき
        return;
    }

    //エラーを発行
    SetError(-1,"キャスト演算子がオーバーロードされていません。",cp);
}
void CallIndexerGetterProc(CClass *pobj_Class,char *ObjectName,char *Parameter,TYPEINFO &RetTypeInfo){
    SUBINFO **ppsi;
    int num;
    ppsi=pobj_Class->GetOperatorSubInfo(CALC_ARRAY_GET,num);
    if(num==0){
        HeapDefaultFree(ppsi);

        return;
    }

    Opcode_CallProc(Parameter,ppsi[0],0,ObjectName,DEF_OBJECT);
    RetTypeInfo.type=ppsi[0]->ReturnType;
    RetTypeInfo.u.lpIndex = ppsi[0]->u.ReturnIndex;

    HeapDefaultFree(ppsi);
}