Changeset 408 in dev for trunk


Ignore:
Timestamp:
Mar 2, 2008, 5:40:44 AM (17 years ago)
Author:
dai_9181
Message:

Select Caseに指定された値でエラーが起こったとき、スコープ処理に不具合が生じてしまう問題を修正。

Location:
trunk/abdev
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/abdev/BasicCompiler32/Compile_Statement.cpp

    r402 r408  
    922922std::vector<SelectSchedule> selectSchedules;
    923923
    924 void OpcodeSelect(const char *lpszParms){
     924void OpcodeSelect(const char *lpszParms)
     925{
    925926    extern HANDLE hHeap;
    926927    extern char *basbuf;
    … …  
    929930   
    930931    Type type1;
    931     if( !NumOpe(lpszParms,Type(), type1 ) ){
    932         return;
    933     }
     932    bool result = NumOpe(lpszParms,Type(), type1 );
    934933
    935934    selectSchedules.push_back( SelectSchedule( type1.GetSize() ) );
    936935
    937     if( selectSchedules.back().typeSize < sizeof(long) ){
    938         selectSchedules.back().typeSize = sizeof(long);
    939     }
    940 
    941     for(i=cp,sw=0;;i++){
    942         if(basbuf[i]=='\0'){
    943             selectSchedules.pop_back();
    944             SetError(22,"Select",cp);
    945             return;
    946         }
    947         if(basbuf[i]==1&&basbuf[i+1]==ESC_SELECTCASE){
    948             for(i2=0;;i++){
    949                 if(basbuf[i]==1&&basbuf[i+1]==ESC_SELECTCASE) i2++;
    950                 if(basbuf[i]==1&&basbuf[i+1]==ESC_ENDSELECT){
    951                     i2--;
    952                     if(i2==0) break;
     936    if( result )
     937    {
     938        if( selectSchedules.back().typeSize < sizeof(long) ){
     939            selectSchedules.back().typeSize = sizeof(long);
     940        }
     941
     942        for(i=cp,sw=0;;i++){
     943            if(basbuf[i]=='\0'){
     944                selectSchedules.pop_back();
     945                SetError(22,"Select",cp);
     946                return;
     947            }
     948            if(basbuf[i]==1&&basbuf[i+1]==ESC_SELECTCASE){
     949                for(i2=0;;i++){
     950                    if(basbuf[i]==1&&basbuf[i+1]==ESC_SELECTCASE) i2++;
     951                    if(basbuf[i]==1&&basbuf[i+1]==ESC_ENDSELECT){
     952                        i2--;
     953                        if(i2==0) break;
     954                    }
    953955                }
    954             }
    955             continue;
    956         }
    957         if(basbuf[i]==1&&basbuf[i+1]==ESC_ENDSELECT){
    958             if(sw==0){
    959                 //add esp,CaseTypeSize
    960                 compiler.codeGenerator.op_add_esp( selectSchedules.back().typeSize );
    961             }
    962             break;
    963         }
    964         if(basbuf[i]==1&&basbuf[i+1]==ESC_CASE){
    965             NowCaseCp=i;
    966 
    967             i++;
    968             while(1){
    969                 for(i++,i2=0;;i++,i2++){
    970                     if(basbuf[i]=='\"'){
    971                         i3=GetStringInQuotation(temporary+i2,basbuf+i);
    972                         i+=i3-1;
    973                         i2+=i3-1;
    974                         continue;
     956                continue;
     957            }
     958            if(basbuf[i]==1&&basbuf[i+1]==ESC_ENDSELECT){
     959                if(sw==0){
     960                    //add esp,CaseTypeSize
     961                    compiler.codeGenerator.op_add_esp( selectSchedules.back().typeSize );
     962                }
     963                break;
     964            }
     965            if(basbuf[i]==1&&basbuf[i+1]==ESC_CASE){
     966                NowCaseCp=i;
     967
     968                i++;
     969                while(1){
     970                    for(i++,i2=0;;i++,i2++){
     971                        if(basbuf[i]=='\"'){
     972                            i3=GetStringInQuotation(temporary+i2,basbuf+i);
     973                            i+=i3-1;
     974                            i2+=i3-1;
     975                            continue;
     976                        }
     977                        if(basbuf[i]=='('){
     978                            i3=GetStringInPare(temporary+i2,basbuf+i);
     979                            i+=i3-1;
     980                            i2+=i3-1;
     981                            continue;
     982                        }
     983                        if(basbuf[i]=='['){
     984                            i3=GetStringInBracket(temporary+i2,basbuf+i);
     985                            i+=i3-1;
     986                            i2+=i3-1;
     987                            continue;
     988                        }
     989
     990                        if(IsCommandDelimitation(basbuf[i])){
     991                            temporary[i2]=0;
     992                            break;
     993                        }
     994                        if(basbuf[i]==','){
     995                            temporary[i2]=0;
     996                            break;
     997                        }
     998
     999                        temporary[i2]=basbuf[i];
    9751000                    }
    976                     if(basbuf[i]=='('){
    977                         i3=GetStringInPare(temporary+i2,basbuf+i);
    978                         i+=i3-1;
    979                         i2+=i3-1;
    980                         continue;
    981                     }
    982                     if(basbuf[i]=='['){
    983                         i3=GetStringInBracket(temporary+i2,basbuf+i);
    984                         i+=i3-1;
    985                         i2+=i3-1;
    986                         continue;
    987                     }
    988 
    989                     if(IsCommandDelimitation(basbuf[i])){
    990                         temporary[i2]=0;
    991                         break;
    992                     }
    993                     if(basbuf[i]==','){
    994                         temporary[i2]=0;
    995                         break;
    996                     }
    997 
    998                     temporary[i2]=basbuf[i];
    999                 }
    1000 
    1001                 //エラー用
    1002                 i2=cp;
    1003                 cp=NowCaseCp;
    1004 
    1005                 Type type2;
    1006                 if( !NumOpe(temporary,type1,type2) ){
    1007                     return;
    1008                 }
    1009 
    1010                 cp=i2;
    1011 
    1012                 if(type1.IsObject()){
    1013                     std::vector<const UserProc *> subs;
    1014                     type1.GetClass().GetDynamicMethods().Enum( CALC_EQUAL, subs );
    1015                     if( subs.size() == 0 ){
     1001
     1002                    //エラー用
     1003                    i2=cp;
     1004                    cp=NowCaseCp;
     1005
     1006                    Type type2;
     1007                    if( !NumOpe(temporary,type1,type2) ){
    10161008                        return;
    10171009                    }
    10181010
    1019                     Parameters params;
    1020                     params.push_back( new Parameter( "", Type( type2 ) ) );
    1021 
    1022                     //オーバーロードを解決
    1023                     const UserProc *pUserProc = OverloadSolution("==",subs, params, NULL);
    1024 
    1025                     delete params[0];
    1026 
    1027                     if(!pUserProc){
    1028                         //エラー
    1029                         return;
     1011                    cp=i2;
     1012
     1013                    if(type1.IsObject()){
     1014                        std::vector<const UserProc *> subs;
     1015                        type1.GetClass().GetDynamicMethods().Enum( CALC_EQUAL, subs );
     1016                        if( subs.size() == 0 ){
     1017                            return;
     1018                        }
     1019
     1020                        Parameters params;
     1021                        params.push_back( new Parameter( "", Type( type2 ) ) );
     1022
     1023                        //オーバーロードを解決
     1024                        const UserProc *pUserProc = OverloadSolution("==",subs, params, NULL);
     1025
     1026                        delete params[0];
     1027
     1028                        if(!pUserProc){
     1029                            //エラー
     1030                            return;
     1031                        }
     1032
     1033
     1034                        //pop edx
     1035                        compiler.codeGenerator.op_pop(REG_EDX);
     1036
     1037                        //mov ecx,dword ptr[esp]
     1038                        compiler.codeGenerator.op_mov_RM(sizeof(long),REG_ECX,REG_ESP,0,MOD_BASE);
     1039
     1040                        //push edx
     1041                        compiler.codeGenerator.op_push(REG_EDX);
     1042
     1043                        //push ecx
     1044                        compiler.codeGenerator.op_push(REG_ECX);
     1045
     1046                        //call operator_proc    ※ ==演算子
     1047                        compiler.codeGenerator.op_call(pUserProc);
     1048
     1049                        //test eax,eax
     1050                        compiler.codeGenerator.op_test(REG_EAX,REG_EAX);
     1051
     1052                        //jne ...
     1053                        selectSchedules.back().casePertialSchedules.push_back(
     1054                            compiler.codeGenerator.op_jne( 0, sizeof(long), true )
     1055                        );
    10301056                    }
    1031 
    1032 
    1033                     //pop edx
    1034                     compiler.codeGenerator.op_pop(REG_EDX);
    1035 
    1036                     //mov ecx,dword ptr[esp]
    1037                     compiler.codeGenerator.op_mov_RM(sizeof(long),REG_ECX,REG_ESP,0,MOD_BASE);
    1038 
    1039                     //push edx
    1040                     compiler.codeGenerator.op_push(REG_EDX);
    1041 
    1042                     //push ecx
    1043                     compiler.codeGenerator.op_push(REG_ECX);
    1044 
    1045                     //call operator_proc    ※ ==演算子
    1046                     compiler.codeGenerator.op_call(pUserProc);
    1047 
    1048                     //test eax,eax
    1049                     compiler.codeGenerator.op_test(REG_EAX,REG_EAX);
    1050 
    1051                     //jne ...
    1052                     selectSchedules.back().casePertialSchedules.push_back(
    1053                         compiler.codeGenerator.op_jne( 0, sizeof(long), true )
    1054                     );
     1057                    else if(type1.IsDouble()){
     1058                        ChangeTypeToDouble(type2.GetBasicType());
     1059
     1060                        //fld qword ptr[esp]
     1061                        compiler.codeGenerator.op_fld_ptr_esp(DEF_DOUBLE);
     1062
     1063                        //add esp,CaseTypeSize
     1064                        compiler.codeGenerator.op_add_esp(selectSchedules.back().typeSize);
     1065
     1066                        //fld qword ptr[esp]
     1067                        compiler.codeGenerator.op_fld_ptr_esp(DEF_DOUBLE);
     1068
     1069                        //fcompp
     1070                        compiler.codeGenerator.op_fcompp();
     1071
     1072                        //fnstsw ax
     1073                        compiler.codeGenerator.op_fnstsw_ax();
     1074
     1075                        //test ah,40
     1076                        compiler.codeGenerator.op_test_ah( (char)0x40 );
     1077
     1078                        //jne ...
     1079                        selectSchedules.back().casePertialSchedules.push_back(
     1080                            compiler.codeGenerator.op_jne( 0, sizeof(long), true )
     1081                        );
     1082                    }
     1083                    else if(type1.IsSingle()){
     1084                        ChangeTypeToSingle(type2.GetBasicType());
     1085
     1086                        //fld dword ptr[esp]
     1087                        compiler.codeGenerator.op_fld_ptr_esp(DEF_SINGLE);
     1088
     1089                        //add esp,CaseTypeSize
     1090                        compiler.codeGenerator.op_add_esp(selectSchedules.back().typeSize);
     1091
     1092                        //fld dword ptr[esp]
     1093                        compiler.codeGenerator.op_fld_ptr_esp(DEF_SINGLE);
     1094
     1095                        //fcompp
     1096                        compiler.codeGenerator.op_fcompp();
     1097
     1098                        //fnstsw ax
     1099                        compiler.codeGenerator.op_fnstsw_ax();
     1100
     1101                        //test ah,40
     1102                        compiler.codeGenerator.op_test_ah( (char)0x40 );
     1103
     1104                        //jne ...
     1105                        selectSchedules.back().casePertialSchedules.push_back(
     1106                            compiler.codeGenerator.op_jne( 0, sizeof(long), true )
     1107                        );
     1108                    }
     1109                    else{
     1110                        //その他整数型
     1111
     1112                        //pop ebx
     1113                        compiler.codeGenerator.op_pop(REG_EBX);
     1114
     1115                        //mov eax,dword ptr[esp]
     1116                        compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EAX, REG_ESP, 0, MOD_BASE );
     1117
     1118                        //cmp eax,ebx
     1119                        compiler.codeGenerator.op_cmp_RR( REG_EAX, REG_EBX );
     1120
     1121                        //je ...
     1122                        selectSchedules.back().casePertialSchedules.push_back(
     1123                            compiler.codeGenerator.op_je( 0, sizeof(long), true )
     1124                        );
     1125                    }
     1126
     1127                    if(basbuf[i]!=',') break;
    10551128                }
    1056                 else if(type1.IsDouble()){
    1057                     ChangeTypeToDouble(type2.GetBasicType());
    1058 
    1059                     //fld qword ptr[esp]
    1060                     compiler.codeGenerator.op_fld_ptr_esp(DEF_DOUBLE);
    1061 
    1062                     //add esp,CaseTypeSize
    1063                     compiler.codeGenerator.op_add_esp(selectSchedules.back().typeSize);
    1064 
    1065                     //fld qword ptr[esp]
    1066                     compiler.codeGenerator.op_fld_ptr_esp(DEF_DOUBLE);
    1067 
    1068                     //fcompp
    1069                     compiler.codeGenerator.op_fcompp();
    1070 
    1071                     //fnstsw ax
    1072                     compiler.codeGenerator.op_fnstsw_ax();
    1073 
    1074                     //test ah,40
    1075                     compiler.codeGenerator.op_test_ah( (char)0x40 );
    1076 
    1077                     //jne ...
    1078                     selectSchedules.back().casePertialSchedules.push_back(
    1079                         compiler.codeGenerator.op_jne( 0, sizeof(long), true )
    1080                     );
    1081                 }
    1082                 else if(type1.IsSingle()){
    1083                     ChangeTypeToSingle(type2.GetBasicType());
    1084 
    1085                     //fld dword ptr[esp]
    1086                     compiler.codeGenerator.op_fld_ptr_esp(DEF_SINGLE);
    1087 
    1088                     //add esp,CaseTypeSize
    1089                     compiler.codeGenerator.op_add_esp(selectSchedules.back().typeSize);
    1090 
    1091                     //fld dword ptr[esp]
    1092                     compiler.codeGenerator.op_fld_ptr_esp(DEF_SINGLE);
    1093 
    1094                     //fcompp
    1095                     compiler.codeGenerator.op_fcompp();
    1096 
    1097                     //fnstsw ax
    1098                     compiler.codeGenerator.op_fnstsw_ax();
    1099 
    1100                     //test ah,40
    1101                     compiler.codeGenerator.op_test_ah( (char)0x40 );
    1102 
    1103                     //jne ...
    1104                     selectSchedules.back().casePertialSchedules.push_back(
    1105                         compiler.codeGenerator.op_jne( 0, sizeof(long), true )
    1106                     );
    1107                 }
    1108                 else{
    1109                     //その他整数型
    1110 
    1111                     //pop ebx
    1112                     compiler.codeGenerator.op_pop(REG_EBX);
    1113 
    1114                     //mov eax,dword ptr[esp]
    1115                     compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EAX, REG_ESP, 0, MOD_BASE );
    1116 
    1117                     //cmp eax,ebx
    1118                     compiler.codeGenerator.op_cmp_RR( REG_EAX, REG_EBX );
    1119 
    1120                     //je ...
    1121                     selectSchedules.back().casePertialSchedules.push_back(
    1122                         compiler.codeGenerator.op_je( 0, sizeof(long), true )
    1123                     );
    1124                 }
    1125 
    1126                 if(basbuf[i]!=',') break;
    1127             }
    1128         }
    1129         if(basbuf[i]==1&&basbuf[i+1]==ESC_CASEELSE){
    1130             sw=1;
    1131 
    1132             //jmp ...
    1133             selectSchedules.back().casePertialSchedules.push_back(
    1134                 compiler.codeGenerator.op_jmp( 0, sizeof(long), true )
    1135             );
     1129            }
     1130            if(basbuf[i]==1&&basbuf[i+1]==ESC_CASEELSE){
     1131                sw=1;
     1132
     1133                //jmp ...
     1134                selectSchedules.back().casePertialSchedules.push_back(
     1135                    compiler.codeGenerator.op_jmp( 0, sizeof(long), true )
     1136                );
     1137            }
    11361138        }
    11371139    }

  • trunk/abdev/BasicCompiler64/Compile_Statement.cpp

    r402 r408  
    669669std::vector<SelectSchedule> selectSchedules;
    670670
    671 void OpcodeSelect( const char *lpszParms ){
     671void OpcodeSelect( const char *lpszParms )
     672{
    672673    extern HANDLE hHeap;
    673674    extern char *basbuf;
    … …  
    677678    int reg1=REG_RAX;
    678679    Type type1;
    679     if( !NumOpe(&reg1,lpszParms,Type(), type1 ) ){
    680         return;
    681     }
     680    bool result = NumOpe(&reg1,lpszParms,Type(), type1 );
    682681
    683682    selectSchedules.push_back( SelectSchedule( type1.GetSize() ) );
    684683
    685     if( selectSchedules.back().typeSize < sizeof(long) ){
    686         selectSchedules.back().typeSize = sizeof(long);
    687     }
    688 
    689     if(type1.IsDouble()){
    690         //movsd qword ptr[rsp+offset],xmm_reg       ※スタックフレームを利用
    691         pobj_sf->push(reg1,sizeof(double));
    692     }
    693     else if(type1.IsSingle()){
    694         //movss dword ptr[rsp+offset],xmm_reg       ※スタックフレームを利用
    695         pobj_sf->push(reg1,sizeof(float));
    696     }
    697     else{
    698         ExtendTypeTo64(type1.GetBasicType(),reg1);
    699 
    700         //mov qword ptr[rsp+offset],reg     ※スタックフレームを利用
    701         pobj_sf->push(reg1);
    702     }
    703 
    704     for(i=cp;;i++){
    705         if(basbuf[i]=='\0'){
    706             selectSchedules.pop_back();
    707             SetError(22,"Select",cp);
    708             return;
    709         }
    710         if(basbuf[i]==1&&basbuf[i+1]==ESC_SELECTCASE){
    711             for(i2=0;;i++){
    712                 if(basbuf[i]==1&&basbuf[i+1]==ESC_SELECTCASE) i2++;
    713                 if(basbuf[i]==1&&basbuf[i+1]==ESC_ENDSELECT){
    714                     i2--;
    715                     if(i2==0) break;
     684    if( result )
     685    {
     686        if( selectSchedules.back().typeSize < sizeof(long) ){
     687            selectSchedules.back().typeSize = sizeof(long);
     688        }
     689
     690        if(type1.IsDouble()){
     691            //movsd qword ptr[rsp+offset],xmm_reg       ※スタックフレームを利用
     692            pobj_sf->push(reg1,sizeof(double));
     693        }
     694        else if(type1.IsSingle()){
     695            //movss dword ptr[rsp+offset],xmm_reg       ※スタックフレームを利用
     696            pobj_sf->push(reg1,sizeof(float));
     697        }
     698        else{
     699            ExtendTypeTo64(type1.GetBasicType(),reg1);
     700
     701            //mov qword ptr[rsp+offset],reg     ※スタックフレームを利用
     702            pobj_sf->push(reg1);
     703        }
     704
     705        for(i=cp;;i++){
     706            if(basbuf[i]=='\0'){
     707                selectSchedules.pop_back();
     708                SetError(22,"Select",cp);
     709                return;
     710            }
     711            if(basbuf[i]==1&&basbuf[i+1]==ESC_SELECTCASE){
     712                for(i2=0;;i++){
     713                    if(basbuf[i]==1&&basbuf[i+1]==ESC_SELECTCASE) i2++;
     714                    if(basbuf[i]==1&&basbuf[i+1]==ESC_ENDSELECT){
     715                        i2--;
     716                        if(i2==0) break;
     717                    }
    716718                }
    717             }
    718             continue;
    719         }
    720         if(basbuf[i]==1&&basbuf[i+1]==ESC_ENDSELECT) break;
    721 
    722         if(basbuf[i]==1&&basbuf[i+1]==ESC_CASE){
    723             NowCaseCp=i;
    724 
    725             i++;
    726             while(1){
    727                 for(i++,i2=0;;i++,i2++){
    728                     if(basbuf[i]=='\"'){
    729                         i3=GetStringInQuotation(temporary+i2,basbuf+i);
    730                         i+=i3-1;
    731                         i2+=i3-1;
    732                         continue;
     719                continue;
     720            }
     721            if(basbuf[i]==1&&basbuf[i+1]==ESC_ENDSELECT) break;
     722
     723            if(basbuf[i]==1&&basbuf[i+1]==ESC_CASE){
     724                NowCaseCp=i;
     725
     726                i++;
     727                while(1){
     728                    for(i++,i2=0;;i++,i2++){
     729                        if(basbuf[i]=='\"'){
     730                            i3=GetStringInQuotation(temporary+i2,basbuf+i);
     731                            i+=i3-1;
     732                            i2+=i3-1;
     733                            continue;
     734                        }
     735                        if(basbuf[i]=='('){
     736                            i3=GetStringInPare(temporary+i2,basbuf+i);
     737                            i+=i3-1;
     738                            i2+=i3-1;
     739                            continue;
     740                        }
     741                        if(basbuf[i]=='['){
     742                            i3=GetStringInBracket(temporary+i2,basbuf+i);
     743                            i+=i3-1;
     744                            i2+=i3-1;
     745                            continue;
     746                        }
     747
     748                        if(IsCommandDelimitation(basbuf[i])){
     749                            temporary[i2]=0;
     750                            break;
     751                        }
     752                        if(basbuf[i]==','){
     753                            temporary[i2]=0;
     754                            break;
     755                        }
     756
     757                        temporary[i2]=basbuf[i];
    733758                    }
    734                     if(basbuf[i]=='('){
    735                         i3=GetStringInPare(temporary+i2,basbuf+i);
    736                         i+=i3-1;
    737                         i2+=i3-1;
    738                         continue;
    739                     }
    740                     if(basbuf[i]=='['){
    741                         i3=GetStringInBracket(temporary+i2,basbuf+i);
    742                         i+=i3-1;
    743                         i2+=i3-1;
    744                         continue;
    745                     }
    746 
    747                     if(IsCommandDelimitation(basbuf[i])){
    748                         temporary[i2]=0;
    749                         break;
    750                     }
    751                     if(basbuf[i]==','){
    752                         temporary[i2]=0;
    753                         break;
    754                     }
    755 
    756                     temporary[i2]=basbuf[i];
    757                 }
    758 
    759                 //エラー用
    760                 i2=cp;
    761                 cp=NowCaseCp;
    762 
    763                 int reg2=REG_RDX;
    764                 Type type2;
    765                 if( !NumOpe(&reg2,temporary,type1,type2) ){
    766                     return;
    767                 }
    768 
    769                 cp=i2;
    770 
    771                 if(type1.IsObject()){
    772                     std::vector<const UserProc *> subs;
    773                     type1.GetClass().GetDynamicMethods().Enum( CALC_EQUAL, subs );
    774                     if( subs.size() == 0 ){
     759
     760                    //エラー用
     761                    i2=cp;
     762                    cp=NowCaseCp;
     763
     764                    int reg2=REG_RDX;
     765                    Type type2;
     766                    if( !NumOpe(&reg2,temporary,type1,type2) ){
    775767                        return;
    776768                    }
    777769
    778                     Parameters params;
    779                     params.push_back( new Parameter( "", Type( type2 ) ) );
    780 
    781                     //オーバーロードを解決
    782                     const UserProc *pUserProc = OverloadSolution("==",subs, params, NULL);
    783 
    784                     delete params[0];
    785 
    786                     if(!pUserProc){
    787                         //エラー
    788                         return;
    789                     }
    790 
    791 
    792                     //実体オブジェクト
    793                     if(reg2!=REG_RDX){
    794                         //mov rdx,reg2
    795                         compiler.codeGenerator.op_mov_RR(REG_RDX,reg2);
    796                     }
    797 
    798                     //mov rcx,qword ptr[rsp+offset]     ※スタックフレームから参照
    799                     pobj_sf->ref(REG_RCX);
    800 
    801                     //call operator_proc    ※ ==演算子
    802                     compiler.codeGenerator.op_call(pUserProc);
    803 
    804                     //test rax,rax
    805                     compiler.codeGenerator.op_test(REG_RAX,REG_RAX);
    806 
    807                     //jne ...
    808                     selectSchedules.back().casePertialSchedules.push_back(
    809                         compiler.codeGenerator.op_jne( 0, sizeof(long), true )
    810                     );
    811                 }
    812                 else{
    813                     if(type1.IsDouble()){
    814                         int xmm_reg;
    815                         if(IsXmmReg(reg2)) xmm_reg=reg2;
    816                         else xmm_reg=REG_XMM5;
    817                         ChangeTypeToXmm_Double(type2.GetBasicType(),xmm_reg,reg2);
    818 
    819                         //movsd xmm4,qword ptr[rsp+offset]  ※スタックフレームから参照
    820                         pobj_sf->ref(REG_XMM4,sizeof(double));
    821 
    822                         //comiss xmm_reg1,xmm_reg2
    823                         compiler.codeGenerator.op_comisd(xmm_reg,REG_XMM4);
    824                     }
    825                     else if(type1.IsSingle()){
    826                         int xmm_reg;
    827                         if(IsXmmReg(reg2)) xmm_reg=reg2;
    828                         else xmm_reg=REG_XMM5;
    829                         ChangeTypeToXmm_Single(type2.GetBasicType(),xmm_reg,reg2);
    830 
    831                         //movss xmm4,dword ptr[rsp+offset]  ※スタックフレームから参照
    832                         pobj_sf->ref(REG_XMM4,sizeof(float));
    833 
    834                         //comiss xmm_reg1,xmm_reg2
    835                         compiler.codeGenerator.op_comiss(xmm_reg,REG_XMM4);
     770                    cp=i2;
     771
     772                    if(type1.IsObject()){
     773                        std::vector<const UserProc *> subs;
     774                        type1.GetClass().GetDynamicMethods().Enum( CALC_EQUAL, subs );
     775                        if( subs.size() == 0 ){
     776                            return;
     777                        }
     778
     779                        Parameters params;
     780                        params.push_back( new Parameter( "", Type( type2 ) ) );
     781
     782                        //オーバーロードを解決
     783                        const UserProc *pUserProc = OverloadSolution("==",subs, params, NULL);
     784
     785                        delete params[0];
     786
     787                        if(!pUserProc){
     788                            //エラー
     789                            return;
     790                        }
     791
     792
     793                        //実体オブジェクト
     794                        if(reg2!=REG_RDX){
     795                            //mov rdx,reg2
     796                            compiler.codeGenerator.op_mov_RR(REG_RDX,reg2);
     797                        }
     798
     799                        //mov rcx,qword ptr[rsp+offset]     ※スタックフレームから参照
     800                        pobj_sf->ref(REG_RCX);
     801
     802                        //call operator_proc    ※ ==演算子
     803                        compiler.codeGenerator.op_call(pUserProc);
     804
     805                        //test rax,rax
     806                        compiler.codeGenerator.op_test(REG_RAX,REG_RAX);
     807
     808                        //jne ...
     809                        selectSchedules.back().casePertialSchedules.push_back(
     810                            compiler.codeGenerator.op_jne( 0, sizeof(long), true )
     811                        );
    836812                    }
    837813                    else{
    838                         //その他整数型
    839 
    840                         i2=NeutralizationType(type1.GetBasicType(),-1,type2.GetBasicType(),-1);
    841 
    842                         //mov r14,qword ptr[rsp+offset]     ※スタックフレームから参照
    843                         pobj_sf->ref(REG_R14);
    844 
    845                         //cmp reg2,r14
    846                         compiler.codeGenerator.op_cmp_reg(Type(i2).GetSize(),reg2,REG_R14);
     814                        if(type1.IsDouble()){
     815                            int xmm_reg;
     816                            if(IsXmmReg(reg2)) xmm_reg=reg2;
     817                            else xmm_reg=REG_XMM5;
     818                            ChangeTypeToXmm_Double(type2.GetBasicType(),xmm_reg,reg2);
     819
     820                            //movsd xmm4,qword ptr[rsp+offset]  ※スタックフレームから参照
     821                            pobj_sf->ref(REG_XMM4,sizeof(double));
     822
     823                            //comiss xmm_reg1,xmm_reg2
     824                            compiler.codeGenerator.op_comisd(xmm_reg,REG_XMM4);
     825                        }
     826                        else if(type1.IsSingle()){
     827                            int xmm_reg;
     828                            if(IsXmmReg(reg2)) xmm_reg=reg2;
     829                            else xmm_reg=REG_XMM5;
     830                            ChangeTypeToXmm_Single(type2.GetBasicType(),xmm_reg,reg2);
     831
     832                            //movss xmm4,dword ptr[rsp+offset]  ※スタックフレームから参照
     833                            pobj_sf->ref(REG_XMM4,sizeof(float));
     834
     835                            //comiss xmm_reg1,xmm_reg2
     836                            compiler.codeGenerator.op_comiss(xmm_reg,REG_XMM4);
     837                        }
     838                        else{
     839                            //その他整数型
     840
     841                            i2=NeutralizationType(type1.GetBasicType(),-1,type2.GetBasicType(),-1);
     842
     843                            //mov r14,qword ptr[rsp+offset]     ※スタックフレームから参照
     844                            pobj_sf->ref(REG_R14);
     845
     846                            //cmp reg2,r14
     847                            compiler.codeGenerator.op_cmp_reg(Type(i2).GetSize(),reg2,REG_R14);
     848                        }
     849
     850                        //je ...
     851                        selectSchedules.back().casePertialSchedules.push_back(
     852                            compiler.codeGenerator.op_je( 0, sizeof(long), true )
     853                        );
    847854                    }
    848855
    849                     //je ...
    850                     selectSchedules.back().casePertialSchedules.push_back(
    851                         compiler.codeGenerator.op_je( 0, sizeof(long), true )
    852                     );
     856                    if(basbuf[i]!=',') break;
    853857                }
    854 
    855                 if(basbuf[i]!=',') break;
    856             }
    857         }
    858         if(basbuf[i]==1&&basbuf[i+1]==ESC_CASEELSE){
    859             //jmp ...
    860             selectSchedules.back().casePertialSchedules.push_back(
    861                 compiler.codeGenerator.op_jmp( 0, sizeof(long), true )
    862             );
    863         }
    864     }
    865 
    866     //スタックフレームを1スペースだけ解除
    867     pobj_sf->pop(REG_NON);
     858            }
     859            if(basbuf[i]==1&&basbuf[i+1]==ESC_CASEELSE){
     860                //jmp ...
     861                selectSchedules.back().casePertialSchedules.push_back(
     862                    compiler.codeGenerator.op_jmp( 0, sizeof(long), true )
     863                );
     864            }
     865        }
     866
     867        //スタックフレームを1スペースだけ解除
     868        pobj_sf->pop(REG_NON);
     869    }
    868870
    869871    //レキシカルスコープをレベルアップ
Note: See TracChangeset for help on using the changeset viewer.