Changeset 75 in dev for BasicCompiler64/Compile_Func.cpp


Ignore:
Timestamp:
Mar 20, 2007, 4:36:16 AM (18 years ago)
Author:
dai_9181
Message:

TYPEINFO→Typeへのリファクタリングを実施。64bitはほぼ完了。32bitが全般的に未完成。

File:
1 edited

Legend:

Unmodified
Added
Removed

  • BasicCompiler64/Compile_Func.cpp

    r73 r75  
    4040}
    4141void Opcode_Func_Len( const char *Parameter ){
    42     int type,TypeSize;
    43     LONG_PTR lpIndex;
    4442    BOOL bArrayHead;
    45 
    46     type=GetVarType(Parameter,&lpIndex,0);
    4743
    4844    const char *tempParm=Parameter;
    4945    char temporary[VN_SIZE];
    5046    char temp2[32];
    51     if(type==-1){
     47    Type type;
     48    if( !GetVarType(Parameter,type,0) ){
    5249        sprintf(temporary,"_System_DummyStr2=%s",Parameter);
    5350        OpcodeCalc(temporary);
    … …  
    5754
    5855        extern CClass *pobj_StringClass;
    59         type=DEF_OBJECT;
    60         lpIndex=(LONG_PTR)pobj_StringClass;
    61     }
    62 
    63     TYPEINFO TypeInfo={type,lpIndex};
    64     if(IsStringObjectType(TypeInfo)){
     56        type.SetType( DEF_OBJECT, pobj_StringClass );
     57    }
     58
     59    if( type.IsStringObject() ){
    6560        //Stringオブジェクトの場合
    6661        sprintf(temporary,"%s.Length",tempParm);
    6762
    6863        int reg=REG_RAX;
    69         NumOpe(&reg,temporary,0,0,NULL,NULL);
     64        NumOpe(&reg,temporary,Type(),Type(),NULL);
    7065        return;
    7166    }
    … …  
    7469    int SubScripts[MAX_ARRAYDIM];
    7570    RELATIVE_VAR RelativeVar;
    76     if(!GetVarOffsetReadOnly(tempParm,&type,&RelativeVar,&lpIndex,SubScripts)) return;
    77 
    78 
    79     if(type&FLAG_PTR){
    80         type&=~FLAG_PTR;
     71    if(!GetVarOffsetReadOnly(tempParm,&RelativeVar,type,SubScripts)) return;
     72
     73
     74    if(type.GetBasicType()&FLAG_PTR){
     75        type.SetBasicType( type.GetBasicType() & ( ~FLAG_PTR ) );
    8176
    8277        bArrayHead=1;
    … …  
    8479    else bArrayHead=0;
    8580
    86     TypeSize=GetTypeSize(type,lpIndex);
    87 
    88     if(bArrayHead) TypeSize*=JumpSubScripts(SubScripts);
     81    int typeSize = type.GetSize();
     82
     83    if(bArrayHead) typeSize*=JumpSubScripts(SubScripts);
    8984
    9085    //mov rax,TypeSize
    91     op_mov_RV(sizeof(_int64),REG_RAX,TypeSize);
     86    op_mov_RV(sizeof(_int64),REG_RAX,typeSize);
    9287
    9388    return;
    … …  
    9590void Opcode_Func_AddressOf( const char *name ){
    9691    extern int cp;
    97     SubInfo *psi;
     92    UserProc *pUserProc;
    9893
    9994    extern LONG_PTR ProcPtr_BaseIndex;
    … …  
    10196        //左辺の型にのっとり、オーバーロードを解決
    10297
    103         std::vector<SubInfo *> subs;
     98        std::vector<UserProc *> subs;
    10499        GetOverloadSubHash( name, subs );
    105100        if( subs.size() == 0 ){
    … …  
    109104
    110105        //オーバーロードを解決
    111         extern PROCPTRINFO *pProcPtrInfo;
    112         psi=OverloadSolution(name,subs,pProcPtrInfo[ProcPtr_BaseIndex].pParmInfo,pProcPtrInfo[ProcPtr_BaseIndex].ParmNum,NULL);
    113 
    114         if(!psi){
     106        extern ProcPointer **ppProcPointer;
     107        pUserProc=OverloadSolution(name,subs,ppProcPointer[ProcPtr_BaseIndex]->Params(), Type() );
     108
     109        if(!pUserProc){
    115110            SetError(27,name,cp);
    116111            return;
    … …  
    118113    }
    119114    else{
    120         psi=GetSubHash(name);
    121         if(!psi){
     115        pUserProc=GetSubHash(name);
     116        if(!pUserProc){
    122117            SetError(27,name,cp);
    123118            return;
    … …  
    125120    }
    126121
    127 
    128     if(psi->bVirtual){
     122    if( pUserProc->IsVirtual() ){
    129123        ///////////////////////////////
    130124        // 仮想関数の場合
    … …  
    142136            else{
    143137                RELATIVE_VAR RelativeVar;
    144                 int type;
    145                 if(!GetVarOffsetReadOnly(ObjectName,&type,&RelativeVar,(LONG_PTR *)&pobj_c)) return;
     138                Type type;
     139                if(!GetVarOffsetReadOnly(ObjectName,&RelativeVar,type)) return;
    146140                SetVarPtrToReg(REG_RCX,&RelativeVar);
    147141
    148142                //参照タイプが整合しているかをチェック
    149                 if(type!=RefType) SetError(104,ObjectName,cp);
    150 
    151                 if(type==DEF_PTR_OBJECT){
     143                if(type.GetBasicType()!=RefType) SetError(104,ObjectName,cp);
     144
     145                if(type.IsObjectPtr()){
    152146                    //mov rcx,qword ptr[rcx]
    153147                    op_mov_RM(sizeof(_int64),REG_RCX,REG_RCX,0,MOD_BASE);
    … …  
    172166        op_mov_RM(sizeof(_int64),REG_R11,REG_RCX,0,MOD_BASE);
    173167
    174         int i2 = pobj_c->GetFuncNumInVtbl( psi );
     168        int i2 = pobj_c->GetFuncNumInVtbl( pUserProc );
    175169
    176170        //mov rax,qword ptr[r11+func_index]
    … …  
    188182        op_mov_RV(sizeof(_int64),REG_RAX,0);
    189183        obp-=sizeof(long);
    190         pobj_SubAddrSchedule->add(psi,0);
     184        pobj_SubAddrSchedule->add(pUserProc,0);
    191185        obp+=sizeof(long);
    192186    }
    193187
    194     psi->bUse=1;
     188    pUserProc->Using();
    195189}
    196190void Opcode_Func_SizeOf( const char *Parameter ){
    … …  
    210204    op_mov_RV(sizeof(_int64),REG_RAX,size);
    211205}
    212 void Opcode_Func_VarPtr( const char *Parameter, TYPEINFO &ReturnTypeInfo ){
     206void Opcode_Func_VarPtr( const char *Parameter, Type &resultType, bool isCallOn ){
     207    if( isCallOn == false ){
     208        // 戻り値の型を取得するだけ
     209
     210        //変数のアドレスを取得
     211        if(!GetVarType( Parameter, resultType, true )) return;
     212
     213        resultType.PtrLevelUp();
     214
     215        return;
     216    }
     217
    213218    RELATIVE_VAR RelativeVar;
    214219
    215220    //変数のアドレスを取得
    216     if(!GetVarOffsetReadOnly( Parameter, &ReturnTypeInfo.type, &RelativeVar, &ReturnTypeInfo.u.lpIndex )) return;
    217 
    218     int beforeType = ReturnTypeInfo.type;
    219 
    220     PTR_LEVEL_UP( ReturnTypeInfo.type );
     221    if(!GetVarOffsetReadOnly( Parameter, &RelativeVar, resultType )) return;
     222
     223    int beforeType = resultType.GetBasicType();
     224
     225    resultType.PtrLevelUp();
    221226
    222227    SetVarPtrToReg(REG_RAX,&RelativeVar);
    … …  
    230235}
    231236void Opcode_Func_GetPtrData( const char *Parameter, const int type ){
    232     int i2;
    233 
    234237    int reg=REG_RAX;
    235     i2=NumOpe(&reg,Parameter,0,0,0);
    236     if(!IsWholeNumberType(i2)){
    237         extern int cp;
     238    Type tempType;
     239    if( !NumOpe(&reg,Parameter,Type(),tempType) ){
     240        return;
     241    }
     242    if(!tempType.IsWhole()){
    238243        SetError(11,Parameter,cp);
    239244        return;
    … …  
    254259}
    255260
    256 void Opcode_CallFunc( const char *Parameter, const int FuncNum, TYPEINFO &ReturnTypeInfo ){
     261bool Opcode_CallFunc( const char *Parameter, const int FuncNum, Type &resultType, bool isCallOn ){
    257262    switch(FuncNum){
    258263        case FUNC_LEN:
    259             Opcode_Func_Len(Parameter);
    260             ReturnTypeInfo.type = DEF_LONG;
     264            if( isCallOn ) Opcode_Func_Len(Parameter);
     265            resultType.SetBasicType( DEF_LONG );
    261266            break;
    262267        case FUNC_ADDRESSOF:
    263             Opcode_Func_AddressOf(Parameter);
    264             ReturnTypeInfo.type = DEF_PTR_VOID;
     268            if( isCallOn ) Opcode_Func_AddressOf(Parameter);
     269            resultType.SetBasicType( DEF_PTR_VOID );
    265270            break;
    266271        case FUNC_SIZEOF:
    267             Opcode_Func_SizeOf(Parameter);
    268             ReturnTypeInfo.type = DEF_LONG;
     272            if( isCallOn ) Opcode_Func_SizeOf(Parameter);
     273            resultType.SetBasicType( DEF_LONG );
    269274            break;
    270275        case FUNC_VARPTR:
    271             Opcode_Func_VarPtr( Parameter, ReturnTypeInfo );
     276            Opcode_Func_VarPtr( Parameter, resultType, isCallOn );
    272277            break;
    273278
    274279        case FUNC_GETDOUBLE:
    275             Opcode_Func_GetPtrData(Parameter,DEF_DOUBLE);
    276             ReturnTypeInfo.type = DEF_DOUBLE;
     280            if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_DOUBLE);
     281            resultType.SetBasicType( DEF_DOUBLE );
    277282            break;
    278283        case FUNC_GETSINGLE:
    279             Opcode_Func_GetPtrData(Parameter,DEF_SINGLE);
    280             ReturnTypeInfo.type = DEF_SINGLE;
     284            if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_SINGLE);
     285            resultType.SetBasicType( DEF_SINGLE );
    281286            break;
    282287        case FUNC_GETQWORD:
    283             Opcode_Func_GetPtrData(Parameter,DEF_QWORD);
    284             ReturnTypeInfo.type = DEF_QWORD;
     288            if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_QWORD);
     289            resultType.SetBasicType( DEF_QWORD );
    285290            break;
    286291        case FUNC_GETDWORD:
    287             Opcode_Func_GetPtrData(Parameter,DEF_DWORD);
    288             ReturnTypeInfo.type = DEF_DWORD;
     292            if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_DWORD);
     293            resultType.SetBasicType( DEF_DWORD );
    289294            break;
    290295        case FUNC_GETWORD:
    291             Opcode_Func_GetPtrData(Parameter,DEF_WORD);
    292             ReturnTypeInfo.type = DEF_WORD;
     296            if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_WORD);
     297            resultType.SetBasicType( DEF_WORD );
    293298            break;
    294299        case FUNC_GETBYTE:
    295             Opcode_Func_GetPtrData(Parameter,DEF_BYTE);
    296             ReturnTypeInfo.type = DEF_BYTE;
    297             break;
    298     }
    299 }
     300            if( isCallOn ) Opcode_Func_GetPtrData(Parameter,DEF_BYTE);
     301            resultType.SetBasicType( DEF_BYTE );
     302            break;
     303        default:
     304            return false;
     305    }
     306    return true;
     307}
Note: See TracChangeset for help on using the changeset viewer.