Changeset 96 in dev


Ignore:
Timestamp:
Apr 15, 2007, 2:48:08 AM (18 years ago)
Author:
dai_9181
Message:

不要なソースコード（TODO: 消す）を削除

Files:
10 edited

Legend:

Unmodified
Added
Removed

  • BasicCompiler32/Compile_Set_Var.cpp

    r75 r96  
    88
    99void SetStructVariable( const Type &varType, const Type &calcType, BOOL bUseHeap){
    10 /*
    11     TODO: 消す
    12     ///////////////////////////////////////////////////////////////////
    13     // オペレータ '=' のオーバーロード関数を呼ぶ
    14     ///////////////////////////////////////////////////////////////////
    15 
    16     int type[10];
    17     LONG_PTR index_stack[10];
    18     BOOL array_bUseHeap[10];
    19     int sp=2;
    20 
    21     //左辺
    22     type[0]=DEF_OBJECT;
    23     index_stack[0]=lpVarIndex;
    24     array_bUseHeap[0]=0;
    25 
    26     //右辺
    27     type[1]=CalcType;
    28     index_stack[1]=lpCalcIndex;
    29     array_bUseHeap[1]=bUseHeap;
    30 
    31     int iRet;
    32     iRet=CallOperatorProc(CALC_SUBSITUATION,NULL,type,index_stack,array_bUseHeap,sp);
    33     if(iRet==-1||iRet==1){
    34         //成功したとき、またはエラーが発行されたとき
    35         return;
    36     }*/
    37 
    38 
    3910    if( calcType.IsStruct() ){
    4011        if( varType.GetClass().IsEquals( &calcType.GetClass() ) ){          //等しい
    … …  
    411382    }
    412383}
    413 
    414 
    415 
    416 
    417 
    418 
    419 
    420 
    421 
    422 
    423 
    424 
    425 
    426 
    427 
    428 
    429 
    430 
    431 
    432 
    433 
    434 
    435 
    436 
    437 
    438 /*
    439 TODO: 消す
    440 void SetDoubleVariable(int type,DWORD VarKind,DWORD offset,BOOL bOffsetOffset){
    441     ChangeTypeToDouble(type);
    442 
    443     //pop ebx
    444     op_pop(REG_EBX);
    445 
    446     //pop eax
    447     op_pop(REG_EAX);
    448 
    449     if(VarKind==VAR_GLOBAL){
    450         if(bOffsetOffset){
    451             //mov dword ptr[ecx+offset],ebx
    452             OpBuffer[obp++]=(char)0x89;
    453             OpBuffer[obp++]=(char)0x99;
    454             *((long *)(OpBuffer+obp))=offset;
    455             pobj_GlobalVarSchedule->add();
    456             obp+=sizeof(long);
    457 
    458             //mov dword ptr[ecx+offset+sizeof(long)],eax
    459             OpBuffer[obp++]=(char)0x89;
    460             OpBuffer[obp++]=(char)0x81;
    461             *((long *)(OpBuffer+obp))=offset+sizeof(long);
    462             pobj_GlobalVarSchedule->add();
    463             obp+=sizeof(long);
    464         }
    465         else{
    466             //mov dword ptr[offset],ebx
    467             OpBuffer[obp++]=(char)0x89;
    468             OpBuffer[obp++]=(char)0x1D;
    469             *((long *)(OpBuffer+obp))=offset;
    470             pobj_GlobalVarSchedule->add();
    471             obp+=sizeof(long);
    472 
    473             //mov dword ptr[offset+sizeof(long)],eax
    474             OpBuffer[obp++]=(char)0xA3;
    475             *((long *)(OpBuffer+obp))=offset+sizeof(long);
    476             pobj_GlobalVarSchedule->add();
    477             obp+=sizeof(long);
    478         }
    479     }
    480     else if( VarKind==VAR_REFGLOBAL ){
    481         SetError(300,NULL,cp);
    482     }
    483     else if(VarKind==VAR_LOCAL){
    484         if(bOffsetOffset){
    485             //add ecx,offset
    486             OpBuffer[obp++]=(char)0x81;
    487             OpBuffer[obp++]=(char)0xC1;
    488             *((long *)(OpBuffer+obp))=offset;
    489             AddLocalVarAddrSchedule();
    490             obp+=sizeof(long);
    491 
    492             //mov dword ptr[ebp+ecx],ebx
    493             OpBuffer[obp++]=(char)0x89;
    494             OpBuffer[obp++]=(char)0x5C;
    495             OpBuffer[obp++]=(char)0x0D;
    496             OpBuffer[obp++]=(char)0x00;
    497 
    498             //add ecx,sizeof(long)
    499             OpBuffer[obp++]=(char)0x83;
    500             OpBuffer[obp++]=(char)0xC1;
    501             OpBuffer[obp++]=(char)0x04;
    502 
    503             //mov dword ptr[ebp+ecx],eax
    504             OpBuffer[obp++]=(char)0x89;
    505             OpBuffer[obp++]=(char)0x44;
    506             OpBuffer[obp++]=(char)0x0D;
    507             OpBuffer[obp++]=(char)0x00;
    508         }
    509         else{
    510             //mov dword ptr[ebp+offset],ebx
    511             OpBuffer[obp++]=(char)0x89;
    512             OpBuffer[obp++]=(char)0x9D;
    513             *((long *)(OpBuffer+obp))=offset;
    514             AddLocalVarAddrSchedule();
    515             obp+=sizeof(long);
    516 
    517             //mov dword ptr[ebp+offset+sizeof(long)],eax
    518             OpBuffer[obp++]=(char)0x89;
    519             OpBuffer[obp++]=(char)0x85;
    520             *((long *)(OpBuffer+obp))=offset+sizeof(long);
    521             AddLocalVarAddrSchedule();
    522             obp+=sizeof(long);
    523         }
    524     }
    525     else if(VarKind==VAR_REFLOCAL){
    526         if(bOffsetOffset){
    527             //add ecx,dword ptr[ebp+offset]
    528             OpBuffer[obp++]=(char)0x03;
    529             OpBuffer[obp++]=(char)0x8D;
    530             *((long *)(OpBuffer+obp))=offset;
    531             AddLocalVarAddrSchedule();
    532             obp+=sizeof(long);
    533         }
    534         else{
    535             //mov ecx,dword ptr[ebp+offset]
    536             OpBuffer[obp++]=(char)0x8B;
    537             OpBuffer[obp++]=(char)0x8D;
    538             *((long *)(OpBuffer+obp))=offset;
    539             AddLocalVarAddrSchedule();
    540             obp+=sizeof(long);
    541         }
    542 
    543         //mov dword ptr[ecx],ebx
    544         OpBuffer[obp++]=(char)0x89;
    545         OpBuffer[obp++]=(char)0x19;
    546 
    547         //mov dword ptr[ecx+sizeof(long)],eax
    548         OpBuffer[obp++]=(char)0x89;
    549         OpBuffer[obp++]=(char)0x41;
    550         OpBuffer[obp++]=(char)0x04;
    551     }
    552     else if(VarKind==VAR_DIRECTMEM){
    553         //mov dword ptr[ecx],ebx
    554         OpBuffer[obp++]=(char)0x89;
    555         OpBuffer[obp++]=(char)0x19;
    556 
    557         //mov dword ptr[ecx+sizeof(long)],eax
    558         OpBuffer[obp++]=(char)0x89;
    559         OpBuffer[obp++]=(char)0x41;
    560         OpBuffer[obp++]=(char)0x04;
    561     }
    562 }
    563 void SetSingleVariable(int type,DWORD VarKind,DWORD offset,BOOL bOffsetOffset){
    564     if(type==DEF_SINGLE){
    565         //32ビット変数としてそのままコピーする
    566         SetDWordVariable(DEF_DWORD,VarKind,offset,bOffsetOffset);
    567         return;
    568     }
    569 
    570     if(type==DEF_DOUBLE){
    571         //fld qword ptr[esp]
    572         op_fld_ptr_esp(DEF_DOUBLE);
    573 
    574         //add esp,8
    575         op_add_esp(8);
    576     }
    577     else if(type==DEF_INT64||type==DEF_QWORD){
    578         //64ビット整数
    579 
    580         //fild qword ptr[esp]
    581         op_fld_ptr_esp(DEF_INT64);
    582 
    583         //add esp,8
    584         op_add_esp(8);
    585     }
    586     else if(IsSignedType(type)){
    587         //符号あり整数
    588 
    589         //fild dword ptr[esp]
    590         op_fld_ptr_esp(DEF_LONG);
    591 
    592         //add esp,4
    593         op_add_esp(4);
    594     }
    595     else{
    596         if(!IsWholeNumberType(type)){
    597             //不正な型の場合
    598             SetError(9,NULL,cp);
    599             return;
    600         }
    601 
    602         //符号なし整数
    603 
    604         //pop eax
    605         op_pop(REG_EAX);
    606 
    607         //push 0
    608         op_push_V(0);
    609 
    610         //push eax
    611         op_push(REG_EAX);
    612 
    613         //fild qword ptr[esp]
    614         OpBuffer[obp++]=(char)0xDF;
    615         OpBuffer[obp++]=(char)0x2C;
    616         OpBuffer[obp++]=(char)0x24;
    617 
    618         //add esp,8
    619         op_add_esp(8);
    620     }
    621 
    622     if(VarKind==VAR_GLOBAL){
    623         if(bOffsetOffset){
    624             //fstp dword ptr[ecx+offset]
    625             OpBuffer[obp++]=(char)0xD9;
    626             OpBuffer[obp++]=(char)0x99;
    627             *((long *)(OpBuffer+obp))=offset;
    628             pobj_GlobalVarSchedule->add();
    629             obp+=sizeof(long);
    630         }
    631         else{
    632             //fstp dword ptr[offset]
    633             OpBuffer[obp++]=(char)0xD9;
    634             OpBuffer[obp++]=(char)0x1D;
    635             *((long *)(OpBuffer+obp))=offset;
    636             pobj_GlobalVarSchedule->add();
    637             obp+=sizeof(long);
    638         }
    639     }
    640     else if( VarKind==VAR_REFGLOBAL ){
    641         SetError(300,NULL,cp);
    642     }
    643     else if(VarKind==VAR_LOCAL){
    644         if(bOffsetOffset){
    645             //add ecx,offset
    646             OpBuffer[obp++]=(char)0x81;
    647             OpBuffer[obp++]=(char)0xC1;
    648             *((long *)(OpBuffer+obp))=offset;
    649             AddLocalVarAddrSchedule();
    650             obp+=sizeof(long);
    651 
    652             //fstp dword ptr[ebp+ecx]
    653             OpBuffer[obp++]=(char)0xD9;
    654             OpBuffer[obp++]=(char)0x5C;
    655             OpBuffer[obp++]=(char)0x0D;
    656             OpBuffer[obp++]=(char)0x00;
    657         }
    658         else{
    659             //fstp dword ptr[ebp+offset]
    660             OpBuffer[obp++]=(char)0xD9;
    661             OpBuffer[obp++]=(char)0x9D;
    662             *((long *)(OpBuffer+obp))=offset;
    663             AddLocalVarAddrSchedule();
    664             obp+=sizeof(long);
    665         }
    666     }
    667     else if(VarKind==VAR_REFLOCAL){
    668         //mov eax,dword ptr[ebp+offset]
    669         OpBuffer[obp++]=(char)0x8B;
    670         OpBuffer[obp++]=(char)0x85;
    671         *((long *)(OpBuffer+obp))=offset;
    672         AddLocalVarAddrSchedule();
    673         obp+=sizeof(long);
    674 
    675         if(bOffsetOffset){
    676             //add eax,ecx
    677             OpBuffer[obp++]=(char)0x03;
    678             OpBuffer[obp++]=(char)0xC1;
    679         }
    680 
    681         //fstp dword ptr[eax]
    682         OpBuffer[obp++]=(char)0xD9;
    683         OpBuffer[obp++]=(char)0x18;
    684     }
    685     else if(VarKind==VAR_DIRECTMEM){
    686         //fstp dword ptr[ecx]
    687         OpBuffer[obp++]=(char)0xD9;
    688         OpBuffer[obp++]=(char)0x19;
    689     }
    690 }
    691 void SetInt64Variable(int type,RELATIVE_VAR *pRelative){
    692     if(type==DEF_DOUBLE){
    693         //fld qword ptr[esp]
    694         op_fld_ptr_esp(DEF_DOUBLE);
    695 
    696         //fistp qword ptr[esp]
    697         fpu_cast();
    698         OpBuffer[obp++]=(char)0xDF;
    699         OpBuffer[obp++]=(char)0x3C;
    700         OpBuffer[obp++]=(char)0x24;
    701         fpu_cast_end();
    702 
    703         //pop eax
    704         op_pop(REG_EAX);
    705 
    706         //pop edx
    707         op_pop(REG_EDX);
    708     }
    709     else if(type==DEF_SINGLE){
    710         //fld dword ptr[esp]
    711         op_fld_ptr_esp(DEF_SINGLE);
    712 
    713         //sub esp,4
    714         op_sub_esp(4);
    715 
    716         //fistp qword ptr[esp]
    717         fpu_cast();
    718         OpBuffer[obp++]=(char)0xDF;
    719         OpBuffer[obp++]=(char)0x3C;
    720         OpBuffer[obp++]=(char)0x24;
    721         fpu_cast_end();
    722 
    723         //pop eax
    724         op_pop(REG_EAX);
    725 
    726         //pop edx
    727         op_pop(REG_EDX);
    728     }
    729     else if(type==DEF_INT64||type==DEF_QWORD){
    730         //pop eax
    731         op_pop(REG_EAX);
    732 
    733         //pop edx
    734         op_pop(REG_EDX);
    735     }
    736     else if(IsSignedType(type)){
    737         //符号拡張
    738         //edx:eax ← eax
    739 
    740         //pop eax
    741         op_pop(REG_EAX);
    742 
    743         //cdq
    744         op_cdq();
    745     }
    746     else{
    747         if(!IsWholeNumberType(type)){
    748             //不正な型の場合
    749             SetError(9,NULL,cp);
    750             return;
    751         }
    752 
    753         //符号拡張
    754         //edx=0:eax
    755 
    756         //pop eax
    757         op_pop(REG_EAX);
    758 
    759         //xor edx,edx
    760         op_zero_reg(REG_EDX);
    761     }
    762 
    763     if(pRelative->dwKind==VAR_GLOBAL){
    764         if(pRelative->bOffsetOffset){
    765             //mov dword ptr[ecx+offset],eax
    766             OpBuffer[obp++]=(char)0x89;
    767             OpBuffer[obp++]=(char)0x81;
    768             *((long *)(OpBuffer+obp))=pRelative->offset;
    769             pobj_GlobalVarSchedule->add();
    770             obp+=sizeof(long);
    771 
    772             //mov dword ptr[ecx+offset+sizeof(long)],edx
    773             OpBuffer[obp++]=(char)0x89;
    774             OpBuffer[obp++]=(char)0x91;
    775             *((long *)(OpBuffer+obp))=pRelative->offset+sizeof(long);
    776             pobj_GlobalVarSchedule->add();
    777             obp+=sizeof(long);
    778         }
    779         else{
    780             //mov dword ptr[offset],eax
    781             OpBuffer[obp++]=(char)0xA3;
    782             *((long *)(OpBuffer+obp))=pRelative->offset;
    783             pobj_GlobalVarSchedule->add();
    784             obp+=sizeof(long);
    785 
    786             //mov dword ptr[offset+sizeof(long)],edx
    787             OpBuffer[obp++]=(char)0x89;
    788             OpBuffer[obp++]=(char)0x15;
    789             *((long *)(OpBuffer+obp))=pRelative->offset+sizeof(DWORD);
    790             pobj_GlobalVarSchedule->add();
    791             obp+=sizeof(long);
    792         }
    793     }
    794     else if(pRelative->dwKind==VAR_REFLOCAL){
    795         if(pRelative->bOffsetOffset){
    796             //add ecx,dword ptr[offset]
    797             op_add_RM( sizeof(long), REG_ECX, REG_NON, (int)pRelative->offset, MOD_DISP32 );
    798         }
    799         else{
    800             //mov ecx,dword ptr[offset]
    801             op_mov_RM( sizeof(long), REG_ECX, REG_NON, (int)pRelative->offset, MOD_DISP32 );
    802         }
    803         obp-=sizeof(long);
    804         pobj_GlobalVarSchedule->add();
    805         obp+=sizeof(long);
    806 
    807         //mov dword ptr[ecx],eax
    808         OpBuffer[obp++]=(char)0x89;
    809         OpBuffer[obp++]=(char)0x01;
    810 
    811         //mov dword ptr[ecx+sizeof(long)],edx
    812         OpBuffer[obp++]=(char)0x89;
    813         OpBuffer[obp++]=(char)0x51;
    814         OpBuffer[obp++]=(char)0x04;
    815     }
    816     else if(pRelative->dwKind==VAR_LOCAL){
    817         if(pRelative->bOffsetOffset){
    818             //add ecx,offset
    819             OpBuffer[obp++]=(char)0x81;
    820             OpBuffer[obp++]=(char)0xC1;
    821             *((long *)(OpBuffer+obp))=pRelative->offset;
    822             AddLocalVarAddrSchedule();
    823             obp+=sizeof(long);
    824 
    825             //mov dword ptr[ebp+ecx],eax
    826             OpBuffer[obp++]=(char)0x89;
    827             OpBuffer[obp++]=(char)0x44;
    828             OpBuffer[obp++]=(char)0x0D;
    829             OpBuffer[obp++]=(char)0x00;
    830 
    831             //add ecx,sizeof(long)
    832             OpBuffer[obp++]=(char)0x83;
    833             OpBuffer[obp++]=(char)0xC1;
    834             OpBuffer[obp++]=(char)0x04;
    835 
    836             //mov dword ptr[ebp+ecx],edx
    837             OpBuffer[obp++]=(char)0x89;
    838             OpBuffer[obp++]=(char)0x54;
    839             OpBuffer[obp++]=(char)0x0D;
    840             OpBuffer[obp++]=(char)0x00;
    841         }
    842         else{
    843             //mov dword ptr[ebp+offset],eax
    844             OpBuffer[obp++]=(char)0x89;
    845             OpBuffer[obp++]=(char)0x85;
    846             *((long *)(OpBuffer+obp))=pRelative->offset;
    847             AddLocalVarAddrSchedule();
    848             obp+=sizeof(long);
    849 
    850             //mov dword ptr[ebp+offset+sizeof(long)],edx
    851             OpBuffer[obp++]=(char)0x89;
    852             OpBuffer[obp++]=(char)0x95;
    853             *((long *)(OpBuffer+obp))=pRelative->offset+sizeof(long);
    854             AddLocalVarAddrSchedule();
    855             obp+=sizeof(long);
    856         }
    857     }
    858     else if(pRelative->dwKind==VAR_REFLOCAL){
    859         if(pRelative->bOffsetOffset){
    860             //add ecx,dword ptr[ebp+offset]
    861             OpBuffer[obp++]=(char)0x03;
    862             OpBuffer[obp++]=(char)0x8D;
    863             *((long *)(OpBuffer+obp))=pRelative->offset;
    864             AddLocalVarAddrSchedule();
    865             obp+=sizeof(long);
    866         }
    867         else{
    868             //mov ecx,dword ptr[ebp+offset]
    869             OpBuffer[obp++]=(char)0x8B;
    870             OpBuffer[obp++]=(char)0x8D;
    871             *((long *)(OpBuffer+obp))=pRelative->offset;
    872             AddLocalVarAddrSchedule();
    873             obp+=sizeof(long);
    874         }
    875 
    876         //mov dword ptr[ecx],eax
    877         OpBuffer[obp++]=(char)0x89;
    878         OpBuffer[obp++]=(char)0x01;
    879 
    880         //mov dword ptr[ecx+sizeof(long)],edx
    881         OpBuffer[obp++]=(char)0x89;
    882         OpBuffer[obp++]=(char)0x51;
    883         OpBuffer[obp++]=(char)0x04;
    884     }
    885     else if(pRelative->dwKind==VAR_DIRECTMEM){
    886         //mov dword ptr[ecx],eax
    887         OpBuffer[obp++]=(char)0x89;
    888         OpBuffer[obp++]=(char)0x01;
    889 
    890         //mov dword ptr[ecx+sizeof(long)],edx
    891         OpBuffer[obp++]=(char)0x89;
    892         OpBuffer[obp++]=(char)0x51;
    893         OpBuffer[obp++]=(char)0x04;
    894     }
    895 }
    896 void SetDWordVariable(int type,DWORD VarKind,DWORD offset,BOOL bOffsetOffset){
    897     if(type==DEF_DOUBLE||type==DEF_SINGLE){
    898         if(type==DEF_DOUBLE){
    899             //fld qword ptr[esp]
    900             op_fld_ptr_esp(DEF_DOUBLE);
    901         }
    902         else if(type==DEF_SINGLE){
    903             //fld dword ptr[esp]
    904             op_fld_ptr_esp(DEF_SINGLE);
    905 
    906             //sub esp,4
    907             op_sub_esp(4);
    908         }
    909 
    910         //fistp qword ptr[esp]
    911         fpu_cast();
    912         OpBuffer[obp++]=(char)0xDF;
    913         OpBuffer[obp++]=(char)0x3C;
    914         OpBuffer[obp++]=(char)0x24;
    915         fpu_cast_end();
    916 
    917         //pop eax
    918         op_pop(REG_EAX);
    919 
    920         //add esp,4
    921         op_add_esp(4);
    922     }
    923     else if(type==DEF_INT64||type==DEF_QWORD){
    924         //pop eax
    925         op_pop(REG_EAX);
    926 
    927         //add esp,4
    928         op_add_esp(4);
    929     }
    930     else{
    931         if(!IsWholeNumberType(type)){
    932             //不正な型の場合
    933             SetError(9,NULL,cp);
    934             return;
    935         }
    936 
    937         ChangeTypeToWhole(type,DEF_LONG);
    938 
    939         //pop eax
    940         op_pop(REG_EAX);
    941     }
    942 
    943     if(VarKind==VAR_GLOBAL){
    944         if(bOffsetOffset){
    945             //mov dword ptr[ecx+offset],eax
    946             OpBuffer[obp++]=(char)0x89;
    947             OpBuffer[obp++]=(char)0x81;
    948             *((long *)(OpBuffer+obp))=offset;
    949             pobj_GlobalVarSchedule->add();
    950             obp+=sizeof(long);
    951         }
    952         else{
    953             //mov dword ptr[offset],eax
    954             OpBuffer[obp++]=(char)0xA3;
    955             *((long *)(OpBuffer+obp))=offset;
    956             pobj_GlobalVarSchedule->add();
    957             obp+=sizeof(long);
    958         }
    959     }
    960     else if(VarKind==VAR_REFGLOBAL){
    961         if(bOffsetOffset){
    962             //add ecx,dword ptr[offset]
    963             op_add_RM( sizeof(long), REG_ECX, REG_NON, (int)offset, MOD_DISP32 );
    964         }
    965         else{
    966             //mov ecx,dword ptr[offset]
    967             op_mov_RM( sizeof(long), REG_ECX, REG_NON, (int)offset, MOD_DISP32 );
    968         }
    969         obp-=sizeof(long);
    970         pobj_GlobalVarSchedule->add();
    971         obp+=sizeof(long);
    972 
    973         //mov dword ptr[ecx],eax
    974         OpBuffer[obp++]=(char)0x89;
    975         OpBuffer[obp++]=(char)0x01;
    976     }
    977     else if(VarKind==VAR_LOCAL){
    978         if(bOffsetOffset){
    979             //add ecx,offset
    980             OpBuffer[obp++]=(char)0x81;
    981             OpBuffer[obp++]=(char)0xC1;
    982             *((long *)(OpBuffer+obp))=offset;
    983             AddLocalVarAddrSchedule();
    984             obp+=sizeof(long);
    985 
    986             //mov dword ptr[ebp+ecx],eax
    987             OpBuffer[obp++]=(char)0x89;
    988             OpBuffer[obp++]=(char)0x44;
    989             OpBuffer[obp++]=(char)0x0D;
    990             OpBuffer[obp++]=(char)0x00;
    991         }
    992         else{
    993             //mov dword ptr[ebp+offset],eax
    994             OpBuffer[obp++]=(char)0x89;
    995             OpBuffer[obp++]=(char)0x85;
    996             *((long *)(OpBuffer+obp))=offset;
    997             AddLocalVarAddrSchedule();
    998             obp+=sizeof(long);
    999         }
    1000     }
    1001     else if(VarKind==VAR_REFLOCAL){
    1002         if(bOffsetOffset){
    1003             //add ecx,dword ptr[ebp+offset]
    1004             OpBuffer[obp++]=(char)0x03;
    1005             OpBuffer[obp++]=(char)0x8D;
    1006             *((long *)(OpBuffer+obp))=offset;
    1007             AddLocalVarAddrSchedule();
    1008             obp+=sizeof(long);
    1009         }
    1010         else{
    1011             //mov ecx,dword ptr[ebp+offset]
    1012             OpBuffer[obp++]=(char)0x8B;
    1013             OpBuffer[obp++]=(char)0x8D;
    1014             *((long *)(OpBuffer+obp))=offset;
    1015             AddLocalVarAddrSchedule();
    1016             obp+=sizeof(long);
    1017         }
    1018 
    1019         //mov dword ptr[ecx],eax
    1020         OpBuffer[obp++]=(char)0x89;
    1021         OpBuffer[obp++]=(char)0x01;
    1022     }
    1023     else if(VarKind==VAR_DIRECTMEM){
    1024         //mov dword ptr[ecx],eax
    1025         OpBuffer[obp++]=(char)0x89;
    1026         OpBuffer[obp++]=(char)0x01;
    1027     }
    1028 }
    1029 void SetLongVariable(int type,DWORD VarKind,DWORD offset,BOOL bOffsetOffset){
    1030     if(type==DEF_DOUBLE||type==DEF_SINGLE){
    1031         if(type==DEF_DOUBLE){
    1032             //fld qword ptr[esp]
    1033             op_fld_ptr_esp(DEF_DOUBLE);
    1034 
    1035             //add esp,8
    1036             op_add_esp(8);
    1037         }
    1038         else if(type==DEF_SINGLE){
    1039             //fld dword ptr[esp]
    1040             op_fld_ptr_esp(DEF_SINGLE);
    1041 
    1042             //add esp,4
    1043             op_add_esp(4);
    1044         }
    1045 
    1046         if(VarKind==VAR_GLOBAL){
    1047             if(bOffsetOffset){
    1048                 //fistp dword ptr[ecx+offset]
    1049                 fpu_cast();
    1050                 OpBuffer[obp++]=(char)0xDB;
    1051                 OpBuffer[obp++]=(char)0x99;
    1052                 *((long *)(OpBuffer+obp))=offset;
    1053                 pobj_GlobalVarSchedule->add();
    1054                 obp+=sizeof(long);
    1055                 fpu_cast_end();
    1056             }
    1057             else{
    1058                 //fistp dword ptr[offset]
    1059                 fpu_cast();
    1060                 OpBuffer[obp++]=(char)0xDB;
    1061                 OpBuffer[obp++]=(char)0x1D;
    1062                 *((long *)(OpBuffer+obp))=offset;
    1063                 pobj_GlobalVarSchedule->add();
    1064                 obp+=sizeof(long);
    1065                 fpu_cast_end();
    1066             }
    1067         }
    1068         else if(VarKind==VAR_REFGLOBAL){
    1069             //mov eax,dword ptr[offset]
    1070             op_mov_RM( sizeof(long), REG_EAX, REG_NON, (int)offset, MOD_DISP32 );
    1071             obp-=sizeof(long);
    1072             pobj_GlobalVarSchedule->add();
    1073             obp+=sizeof(long);
    1074 
    1075             if(bOffsetOffset){
    1076                 //add eax,ecx
    1077                 OpBuffer[obp++]=(char)0x03;
    1078                 OpBuffer[obp++]=(char)0xC1;
    1079             }
    1080 
    1081             //fistp dword ptr[eax]
    1082             fpu_cast();
    1083             OpBuffer[obp++]=(char)0xDB;
    1084             OpBuffer[obp++]=(char)0x18;
    1085             fpu_cast_end();
    1086         }
    1087         else if(VarKind==VAR_LOCAL){
    1088             if(bOffsetOffset){
    1089                 //add ecx,offset
    1090                 OpBuffer[obp++]=(char)0x81;
    1091                 OpBuffer[obp++]=(char)0xC1;
    1092                 *((long *)(OpBuffer+obp))=offset;
    1093                 AddLocalVarAddrSchedule();
    1094                 obp+=sizeof(long);
    1095 
    1096                 //fistp dword ptr[ebp+ecx]
    1097                 fpu_cast();
    1098                 OpBuffer[obp++]=(char)0xDB;
    1099                 OpBuffer[obp++]=(char)0x5C;
    1100                 OpBuffer[obp++]=(char)0x0D;
    1101                 OpBuffer[obp++]=(char)0x00;
    1102                 fpu_cast_end();
    1103             }
    1104             else{
    1105                 //fistp dword ptr[ebp+offset]
    1106                 fpu_cast();
    1107                 OpBuffer[obp++]=(char)0xDB;
    1108                 OpBuffer[obp++]=(char)0x9D;
    1109                 *((long *)(OpBuffer+obp))=offset;
    1110                 AddLocalVarAddrSchedule();
    1111                 obp+=sizeof(long);
    1112                 fpu_cast_end();
    1113             }
    1114         }
    1115         else if(VarKind==VAR_REFLOCAL){
    1116             //mov eax,dword ptr[ebp+offset]
    1117             OpBuffer[obp++]=(char)0x8B;
    1118             OpBuffer[obp++]=(char)0x85;
    1119             *((long *)(OpBuffer+obp))=offset;
    1120             AddLocalVarAddrSchedule();
    1121             obp+=sizeof(long);
    1122 
    1123             if(bOffsetOffset){
    1124                 //add eax,ecx
    1125                 OpBuffer[obp++]=(char)0x03;
    1126                 OpBuffer[obp++]=(char)0xC1;
    1127             }
    1128 
    1129             //fistp dword ptr[eax]
    1130             fpu_cast();
    1131             OpBuffer[obp++]=(char)0xDB;
    1132             OpBuffer[obp++]=(char)0x18;
    1133             fpu_cast_end();
    1134         }
    1135         else if(VarKind==VAR_DIRECTMEM){
    1136             //fistp dword ptr[ecx]
    1137             fpu_cast();
    1138             OpBuffer[obp++]=(char)0xDB;
    1139             OpBuffer[obp++]=(char)0x19;
    1140             fpu_cast_end();
    1141         }
    1142     }
    1143     else{
    1144         //実数以外の型からの代入処理はDWordのものと同様
    1145         SetDWordVariable(type,VarKind,offset,bOffsetOffset);
    1146     }
    1147 }
    1148 void Set16Variable(int type,DWORD VarKind,DWORD offset,BOOL bOffsetOffset){
    1149     ChangeTypeToWhole(type,DEF_INTEGER);
    1150 
    1151     //pop eax
    1152     op_pop(REG_EAX);
    1153 
    1154     if(VarKind==VAR_GLOBAL){
    1155         if(bOffsetOffset){
    1156             //mov word ptr[ecx+offset],ax
    1157             OpBuffer[obp++]=(char)0x66;
    1158             OpBuffer[obp++]=(char)0x89;
    1159             OpBuffer[obp++]=(char)0x81;
    1160             *((long *)(OpBuffer+obp))=offset;
    1161             pobj_GlobalVarSchedule->add();
    1162             obp+=sizeof(long);
    1163         }
    1164         else{
    1165             //mov word ptr[offset],ax
    1166             OpBuffer[obp++]=(char)0x66;
    1167             OpBuffer[obp++]=(char)0xA3;
    1168             *((long *)(OpBuffer+obp))=offset;
    1169             pobj_GlobalVarSchedule->add();
    1170             obp+=sizeof(long);
    1171         }
    1172     }
    1173     else if(VarKind==VAR_REFGLOBAL){
    1174         //mov ebx,dword ptr[offset]
    1175         op_mov_RM( sizeof(long), REG_EBX, REG_NON, (int)offset, MOD_DISP32 );
    1176         obp-=sizeof(long);
    1177         pobj_GlobalVarSchedule->add();
    1178         obp+=sizeof(long);
    1179 
    1180         if(bOffsetOffset){
    1181             //add ebx,ecx
    1182             OpBuffer[obp++]=(char)0x03;
    1183             OpBuffer[obp++]=(char)0xD9;
    1184         }
    1185 
    1186         //mov word ptr[ebx],ax
    1187         OpBuffer[obp++]=(char)0x66;
    1188         OpBuffer[obp++]=(char)0x89;
    1189         OpBuffer[obp++]=(char)0x03;
    1190     }
    1191     else if(VarKind==VAR_LOCAL){
    1192         if(bOffsetOffset){
    1193             //add ecx,offset
    1194             OpBuffer[obp++]=(char)0x81;
    1195             OpBuffer[obp++]=(char)0xC1;
    1196             *((long *)(OpBuffer+obp))=offset;
    1197             AddLocalVarAddrSchedule();
    1198             obp+=sizeof(long);
    1199 
    1200             //mov word ptr[ebp+ecx],ax
    1201             OpBuffer[obp++]=(char)0x66;
    1202             OpBuffer[obp++]=(char)0x89;
    1203             OpBuffer[obp++]=(char)0x44;
    1204             OpBuffer[obp++]=(char)0x0D;
    1205             OpBuffer[obp++]=(char)0x00;
    1206         }
    1207         else{
    1208             //mov word ptr[ebp+offset],ax
    1209             OpBuffer[obp++]=(char)0x66;
    1210             OpBuffer[obp++]=(char)0x89;
    1211             OpBuffer[obp++]=(char)0x85;
    1212             *((long *)(OpBuffer+obp))=offset;
    1213             AddLocalVarAddrSchedule();
    1214             obp+=sizeof(long);
    1215         }
    1216     }
    1217     else if(VarKind==VAR_REFLOCAL){
    1218         //mov ebx,dword ptr[ebp+offset]
    1219         OpBuffer[obp++]=(char)0x8B;
    1220         OpBuffer[obp++]=(char)0x9D;
    1221         *((long *)(OpBuffer+obp))=offset;
    1222         AddLocalVarAddrSchedule();
    1223         obp+=sizeof(long);
    1224 
    1225         if(bOffsetOffset){
    1226             //add ebx,ecx
    1227             OpBuffer[obp++]=(char)0x03;
    1228             OpBuffer[obp++]=(char)0xD9;
    1229         }
    1230 
    1231         //mov word ptr[ebx],ax
    1232         OpBuffer[obp++]=(char)0x66;
    1233         OpBuffer[obp++]=(char)0x89;
    1234         OpBuffer[obp++]=(char)0x03;
    1235     }
    1236     else if(VarKind==VAR_DIRECTMEM){
    1237         //mov word ptr[ecx],ax
    1238         OpBuffer[obp++]=(char)0x66;
    1239         OpBuffer[obp++]=(char)0x89;
    1240         OpBuffer[obp++]=(char)0x01;
    1241     }
    1242 }
    1243 void Set8Variable(int type,DWORD VarKind,DWORD offset,BOOL bOffsetOffset){
    1244     ChangeTypeToWhole(type,DEF_SBYTE);
    1245 
    1246     //pop eax
    1247     op_pop(REG_EAX);
    1248 
    1249     if(VarKind==VAR_GLOBAL){
    1250         if(bOffsetOffset){
    1251             //mov byte ptr[ecx+offset],al
    1252             OpBuffer[obp++]=(char)0x88;
    1253             OpBuffer[obp++]=(char)0x81;
    1254             *((long *)(OpBuffer+obp))=offset;
    1255             pobj_GlobalVarSchedule->add();
    1256             obp+=sizeof(long);
    1257         }
    1258         else{
    1259             //mov byte ptr[offset],al
    1260             OpBuffer[obp++]=(char)0xA2;
    1261             *((long *)(OpBuffer+obp))=offset;
    1262             pobj_GlobalVarSchedule->add();
    1263             obp+=sizeof(long);
    1264         }
    1265     }
    1266     else if(VarKind==VAR_REFGLOBAL){
    1267         //mov ebx,dword ptr[offset]
    1268         op_mov_RM( sizeof(long), REG_EBX, REG_NON, (int)offset, MOD_DISP32 );
    1269         obp-=sizeof(long);
    1270         pobj_GlobalVarSchedule->add();
    1271         obp+=sizeof(long);
    1272 
    1273         if(bOffsetOffset){
    1274             //add ebx,ecx
    1275             OpBuffer[obp++]=(char)0x03;
    1276             OpBuffer[obp++]=(char)0xD9;
    1277         }
    1278 
    1279         //mov byte ptr[ebx],al
    1280         OpBuffer[obp++]=(char)0x88;
    1281         OpBuffer[obp++]=(char)0x03;
    1282     }
    1283     else if(VarKind==VAR_LOCAL){
    1284         if(bOffsetOffset){
    1285             //add ecx,offset
    1286             OpBuffer[obp++]=(char)0x81;
    1287             OpBuffer[obp++]=(char)0xC1;
    1288             *((long *)(OpBuffer+obp))=offset;
    1289             AddLocalVarAddrSchedule();
    1290             obp+=sizeof(long);
    1291 
    1292             //mov byte ptr[ebp+ecx],al
    1293             OpBuffer[obp++]=(char)0x88;
    1294             OpBuffer[obp++]=(char)0x44;
    1295             OpBuffer[obp++]=(char)0x0D;
    1296             OpBuffer[obp++]=(char)0x00;
    1297         }
    1298         else{
    1299             //mov byte ptr[ebp+offset],al
    1300             OpBuffer[obp++]=(char)0x88;
    1301             OpBuffer[obp++]=(char)0x85;
    1302             *((long *)(OpBuffer+obp))=offset;
    1303             AddLocalVarAddrSchedule();
    1304             obp+=sizeof(long);
    1305         }
    1306     }
    1307     else if(VarKind==VAR_REFLOCAL){
    1308         //mov ebx,dword ptr[ebp+offset]
    1309         OpBuffer[obp++]=(char)0x8B;
    1310         OpBuffer[obp++]=(char)0x9D;
    1311         *((long *)(OpBuffer+obp))=offset;
    1312         AddLocalVarAddrSchedule();
    1313         obp+=sizeof(long);
    1314 
    1315         if(bOffsetOffset){
    1316             //add ebx,ecx
    1317             OpBuffer[obp++]=(char)0x03;
    1318             OpBuffer[obp++]=(char)0xD9;
    1319         }
    1320 
    1321         //mov byte ptr[ebx],al
    1322         OpBuffer[obp++]=(char)0x88;
    1323         OpBuffer[obp++]=(char)0x03;
    1324     }
    1325     else if(VarKind==VAR_DIRECTMEM){
    1326         //mov byte ptr[ecx],al
    1327         OpBuffer[obp++]=(char)0x88;
    1328         OpBuffer[obp++]=(char)0x01;
    1329     }
    1330 }
    1331 */

  • BasicCompiler32/Compile_Var.cpp

    r95 r96  
    12181218        SetVariableFromEax( DEF_OBJECT, DEF_OBJECT, &RelativeVar );
    12191219    }
    1220 
    1221     /*
    1222     TODO: 消す
    1223     変数は抽象クラスでもOK
    1224     if( type.IsObject() ){
    1225         if( type.GetClass().IsAbstract() ){
    1226             //抽象クラスだったとき
    1227             SetError(125,type.GetClass().name,cp);
    1228         }
    1229     }
    1230     */
    12311220}
    12321221

  • BasicCompiler64/Compile_Set_Var.cpp

    r75 r96  
    3636    }
    3737
    38 /*
    39     TODO: 消す
    40     ///////////////////////////////////////////////////////////////////
    41     // オペレータ '=' のオーバーロード関数を呼ぶ
    42     ///////////////////////////////////////////////////////////////////
    43 
    44     int type[10];
    45     LONG_PTR index_stack[10];
    46     BOOL array_bUseHeap[10];
    47     int sp=2;
    48 
    49     //左辺
    50     type[0]=DEF_OBJECT;
    51     index_stack[0]=lpVarIndex;
    52     array_bUseHeap[0]=0;
    53 
    54     //右辺
    55     type[1]=CalcType;
    56     index_stack[1]=lpCalcIndex;
    57     array_bUseHeap[1]=bUseHeap;
    58 
    59 
    60     int iRet;
    61     iRet=CallOperatorProc(CALC_SUBSITUATION,NULL,type,index_stack,array_bUseHeap,sp);
    62 */
    6338    //右辺用レジスタを解除
    6439    if( calcType.IsReal() ) pobj_reg->UnlockXmmReg();

  • BasicCompiler64/Compile_Var.cpp

    r95 r96  
    12061206        SetVariableFromRax( DEF_OBJECT, DEF_OBJECT, &RelativeVar );
    12071207    }
    1208 
    1209     /*
    1210     TODO: 消す
    1211     変数は抽象クラスでもOK
    1212     if( type.IsObject() ){
    1213         if( type.GetClass().IsAbstract() ){
    1214             //抽象クラスだったとき
    1215             SetError(125,type.GetClass().name,cp);
    1216         }
    1217     }
    1218     */
    12191208}
    12201209void SetVarPtrToReg(int reg,RELATIVE_VAR *pRelativeVar){

  • BasicCompiler_Common/Class.cpp

    r94 r96  
    2929        SetError(15,VarName,cp);
    3030    }
    31 
    32     /*
    33     TODO: 消す
    34     メンバ定義は抽象クラスでもOK
    35     if( IsObject() ){
    36         if( GetClass().IsAbstract() ){
    37             //抽象クラスだったとき
    38             SetError(125,GetClass().name,cp);
    39         }
    40     }*/
    4131
    4232    //メンバ名
    … …  
    660650bool CClass::IsAbstract() const
    661651{
    662     //未実装の仮想関数を持つ場合はtrueを返す
     652    // 未実装(abstract)の仮想関数を持つ場合はtrueを返す
    663653
    664654    foreach( CMethod *method, methods ){
    … …  
    669659        }
    670660    }
    671 
    672     /*
    673     TODO: 消す
    674     これはAB5からは良くなった（参照型になったため）
    675 
    676     //コンポジションの関係にあるメンバも検査する
    677     for(int i=0;i < iMemberNum;i++){
    678         if(ppobj_Member[i]->IsObject()){
    679             if(ppobj_Member[i]->GetClass().IsAbstract())
    680                 return true;
    681         }
    682     }
    683     */
    684661
    685662    return false;

  • BasicCompiler_Common/Intermediate_Step1.cpp

    r88 r96  
    7878    GlobalFree(temporary);
    7979}
    80 /*
    81 TODO: 消す
    82 int KillReturnCode_InParameter(char *buffer,int *pRnum,char cBeginPare,char cEndPare){
    83     int i,i2,i3,IsStr;
    84 
    85     //カッコ'('直下の改行
    86     while(buffer[0]=='\n'){
    87         SlideString(buffer+1,-1);
    88         (*pRnum)++;
    89     }
    90 
    91     for(i=0,IsStr=0;;i++){
    92         if(IsDBCSLeadByte(buffer[i])&&buffer[i+1]){
    93             i++;
    94             continue;
    95         }
    96 
    97         if(buffer[i]=='\"') IsStr^=1;
    98 
    99         if(buffer[i]=='\0') break;  //エラー
    100         if(buffer[i]=='\n'){
    101             i2=0;
    102             i3=0;
    103             while(buffer[i+i2]=='\n'){
    104                 i2++;
    105                 i3++;
    106                 while(buffer[i+i2]==' '||buffer[i+i2]=='\t') i2++;
    107             }
    108             while(buffer[i+i2]==' '||buffer[i+i2]=='\t') i2++;
    109 
    110             if(buffer[i+i2]==cEndPare){
    111                 SlideString(buffer+i+i2,-i2);
    112                 (*pRnum)+=i3;
    113                 break;
    114             }
    115 
    116             //エラー
    117             break;
    118         }
    119 
    120         if(buffer[i]==cBeginPare&&IsStr==0){
    121             i++;
    122             i2=KillReturnCode_InParameter(buffer+i,pRnum,cBeginPare,cEndPare);
    123             i+=i2;
    124             if(buffer[i]!=cEndPare) break;
    125             continue;
    126         }
    127         if(buffer[i]==cEndPare&&IsStr==0) break;
    128 
    129         if(buffer[i]==','&&buffer[i+1]=='\n'&&IsStr==0){
    130             i++;
    131             while(buffer[i]=='\n'){
    132                 SlideString(buffer+i+1,-1);
    133                 (*pRnum)++;
    134             }
    135             i--;
    136         }
    137     }
    138     return i;
    139 }
    140 void KillReturnCode(char *buffer){
    141     int i,i2;
    142 
    143     //アンダーバーによる改行
    144     for(i=0;;i++){
    145         i2=0;
    146         while(buffer[i]=='_'&&buffer[i+1]=='\n'){
    147             i2++;
    148             SlideString(buffer+i+2,-2);
    149             while(buffer[i]=='\n'){
    150                 SlideString(buffer+i+1,-1);
    151                 i2++;
    152             }
    153             for(;;i++){
    154                 if(buffer[i]=='_'&&buffer[i+1]=='\n') break;
    155                 if(buffer[i]=='\n'||buffer[i]=='\0'){
    156                     SlideString(buffer+i,i2);
    157                     memset(buffer+i,'\n',i2);
    158                     break;
    159                 }
    160             }
    161         }
    162         if(buffer[i]=='\0') break;
    163     }
    164 
    165     //カッコ内パラメータの改行
    166     int IsStr,rnum;
    167     for(i=0,IsStr=0,rnum=0;;i++){
    168         if(IsDBCSLeadByte(buffer[i])&&buffer[i+1]){
    169             i++;
    170             continue;
    171         }
    172         if(buffer[i]=='\0') break;
    173         if(buffer[i]=='\n'){
    174             if(rnum){
    175                 SlideString(buffer+i+1,rnum);
    176                 memset(buffer+i+1,'\n',rnum);
    177                 rnum=0;
    178             }
    179         }
    180         if(buffer[i]=='\"') IsStr^=1;
    181         if(buffer[i]=='('&&IsStr==0){
    182             i++;
    183             i2=KillReturnCode_InParameter(buffer+i,&rnum,'(',')');
    184             i+=i2;
    185             if(buffer[i]!=')') break;
    186         }
    187         if(buffer[i]=='['&&IsStr==0){
    188             i++;
    189             i2=KillReturnCode_InParameter(buffer+i,&rnum,'[',']');
    190             i+=i2;
    191             if(buffer[i]!=']') break;
    192         }
    193     }
    194 }*/
    19580void CheckParenthesis(char *buffer){
    19681    int i,IsStr,PareNum,sw;

  • BasicCompiler_Common/MakeExe.cpp

    r92 r96  
    100100    //"最適化中..."
    101101    CompileMessage(STRING_COMPILE_OPTIMIZING);
    102 
    103     /*
    104     TODO: 消す
    105     BasicSource::ReadFile内で処理されている
    106 
    107     //アンダーバーによる改行を正規表現に戻す
    108     KillReturnCode(basbuf);
    109     */
    110102
    111103    //カッコを相互チェック（ダブルクォートチェックチェックを含む）

  • BasicCompiler_Common/NumOpe_GetType.cpp

    r94 r96  
    530530                    }
    531531
     532                    if( (string)term == "s.GetType().Name" ){
     533                        int test=0;
     534                    }
     535
    532536
    533537                    Type varType;

  • BasicCompiler_Common/TypeDef.cpp

    r88 r96  
    2222    TypeDef typeDef( newName, baseName );
    2323    this->push_back( typeDef );
    24 
    25 
    26     /*
    27     TODO: 消す1
    28     ////////////////////////
    29     // 循環参照をチェック
    30     ////////////////////////
    31 
    32     int i;
    33     string tempName = newName;
    34 
    35     while(1){
    36         i=GetIndex( tempName );
    37         if(i==-1) break;
    38 
    39         if( (*this)[i].baseName == newName ){
    40             //循環エラー
    41             extern int cp;
    42             SetError(124,NULL,cp);
    43 
    44             //不明な型として、Long型を指定しておく
    45             (*this)[i].baseName = "Long";
    46 
    47             break;
    48         }
    49 
    50         tempName = (*this)[i].baseName;
    51     }*/
    5224}
    5325int TypeDefCollection::GetIndex( const string &typeName ) const{

  • BasicCompiler_Common/common.h

    r95 r96  
    4747
    4848#ifdef _AMD64_
    49 #define VER_INFO        "(x64) β rev.209"
     49#define VER_INFO        "(x64) β rev.213"
    5050#else
    51 #define VER_INFO        "β rev.209"
     51#define VER_INFO        "β rev.213"
    5252#endif
    5353
Note: See TracChangeset for help on using the changeset viewer.