Changeset 254 in dev for trunk/abdev/BasicCompiler64


Ignore:
Timestamp:
Jul 31, 2007, 4:30:31 AM (17 years ago)
Author:
dai_9181
Message:
 
Location:
trunk/abdev/BasicCompiler64
Files:
12 edited

Legend:

Unmodified
Added
Removed

  • trunk/abdev/BasicCompiler64/BasicCompiler.vcproj

    r242 r254  
    317317                </File>
    318318                <File
    319                     RelativePath="..\BasicCompiler_Common\include\LexicalScopingImpl.h"
     319                    RelativePath="..\BasicCompiler_Common\include\LexicalScope.h"
    320320                    >
    321321                </File>
    … …  
    11241124                    </File>
    11251125                    <File
    1126                         RelativePath="..\BasicCompiler_Common\src\LexicalScopingImpl.cpp"
     1126                        RelativePath="..\BasicCompiler_Common\src\LexicalScope.cpp"
    11271127                        >
    11281128                    </File>

  • trunk/abdev/BasicCompiler64/CodeGenerator.cpp

    r243 r254  
    7979#define INDEX_NON   0x04
    8080
    81 void CodeGenerator::set_mod_rm_sib_disp(char mod,int reg,int scale,int index_reg,int base_reg,long disp, Schedule::Type scheduleType ){
     81const PertialSchedule *CodeGenerator::set_mod_rm_sib_disp(char mod,int reg,int scale,int index_reg,int base_reg,long disp, Schedule::Type scheduleType, bool isPertialSchedule )
     82{
     83    const PertialSchedule *pPertialSchedule = NULL;
     84
    8285    if(mod==MOD_DISP32){
    8386        //ModR/Mバイト
    … …  
    9497
    9598    //レジスタモードの場合は、ここで終了
    96     if(mod==MOD_REG) return;
     99    if(mod==MOD_REG) return pPertialSchedule;
    97100
    98101
    … …  
    106109
    107110    //ディスプレースメントを必要としない場合は、ここで終了
    108     if(mod==MOD_BASE) return;
     111    if(mod==MOD_BASE) return pPertialSchedule;
    109112
    110113
    … …  
    113116    //////////////////////////
    114117
    115     if(mod==MOD_BASE_DISP8) pNativeCode->Put( (char)disp );
    116     else{
     118    if(mod==MOD_BASE_DISP8)
     119    {
     120        pNativeCode->Put( (char)disp );
     121    }
     122    else
     123    {
     124        if( isPertialSchedule )
     125        {
     126            pertialSchedules.push_back( new PertialSchedule( pNativeCode->GetSize(), sizeof(long) ) );
     127            pPertialSchedule = pertialSchedules.back();
     128        }
     129
    117130        pNativeCode->Put( disp, scheduleType );
    118131    }
    119 }
    120 
    121 
    122 
    123 void CodeGenerator::__op_format(int op_size,char op_prefix,char opcode1,char opcode2,int reg,int base_reg,long offset,char mod, Schedule::Type scheduleType ){
     132
     133    return pPertialSchedule;
     134}
     135
     136
     137
     138const PertialSchedule *CodeGenerator::__op_format(int op_size,char op_prefix,char opcode1,char opcode2,int reg,int base_reg,long offset,char mod, Schedule::Type scheduleType, bool isPertialSchedule ){
    124139    //命令プリフィックス
    125140    if(op_prefix) pNativeCode->Put( op_prefix );
    … …  
    133148
    134149    //ModR/M, SIB, disp
    135     set_mod_rm_sib_disp(mod,reg,SCALE_NON,INDEX_NON,base_reg,offset, scheduleType );
     150    return set_mod_rm_sib_disp(mod,reg,SCALE_NON,INDEX_NON,base_reg,offset, scheduleType, isPertialSchedule );
    136151}
    137152
    … …  
    175190    pNativeCode->Put( i64data );
    176191}
    177 void CodeGenerator::op_mov_RM(int op_size,int reg,int base_reg,long offset,char mod, Schedule::Type scheduleType ){
     192const PertialSchedule *CodeGenerator::op_mov_RM(int op_size,int reg,int base_reg,long offset,char mod, Schedule::Type scheduleType, bool isPertialSchedule ){
    178193    //mov reg64,qword ptr[base_reg+offset]
    179194    //mov reg32,dword ptr[base_reg+offset]
    … …  
    190205    else opcode=(char)0x8B;
    191206
    192     __op_format(op_size,op_prefix,opcode,0,reg,base_reg,offset,mod, scheduleType);
    193 }
    194 void CodeGenerator::op_mov_RM_ex(int op_size,int reg,int base_reg1,int base_reg2,long offset,BOOL bUseOffset, Schedule::Type scheduleType ){
     207    return __op_format(op_size,op_prefix,opcode,0,reg,base_reg,offset,mod, scheduleType, isPertialSchedule );
     208}
     209const PertialSchedule *CodeGenerator::op_mov_RM_ex(int op_size,int reg,int base_reg1,int base_reg2,long offset,BOOL bUseOffset, Schedule::Type scheduleType, bool isPertialSchedule ){
    195210    //mov reg64,qword ptr[base_reg1+base_reg2+offset]
    196211    //mov reg32,dword ptr[base_reg1+base_reg2+offset]
    197212    //mov reg16,word ptr[base_reg1+base_reg2+offset]
    198213    //mov reg8,byte ptr[base_reg1+base_reg2+offset]
     214    const PertialSchedule *pPertialSchedule = NULL;
    199215
    200216    if(base_reg1==REG_RSP){
    … …  
    226242
    227243        //オフセット値
     244        if( isPertialSchedule )
     245        {
     246            pertialSchedules.push_back( new PertialSchedule( pNativeCode->GetSize(), sizeof(long) ) );
     247            pPertialSchedule = pertialSchedules.back();
     248        }
    228249        pNativeCode->Put( offset, scheduleType );
    229250    }
    … …  
    239260        pNativeCode->Put( (char)(REGISTER_OPERAND(base_reg1)<<3 | REGISTER_OPERAND(base_reg2)) );
    240261    }
    241 }
    242 void CodeGenerator::op_mov_MR(int op_size,int reg,int base_reg,long offset,char mod, Schedule::Type scheduleType ){
     262
     263    return pPertialSchedule;
     264}
     265const PertialSchedule *CodeGenerator::op_mov_MR(int op_size,int reg,int base_reg,long offset,char mod, Schedule::Type scheduleType, bool isPertialSchedule ){
    243266    //mov qword ptr[base_reg+offset],reg64
    244267    //mov dword ptr[base_reg+offset],reg32
    … …  
    255278    else opcode=(char)0x89;
    256279
    257     __op_format(op_size,op_prefix,opcode,0,reg,base_reg,offset,mod, scheduleType );
    258 }
    259 void CodeGenerator::op_mov_MR_ex(int op_size,int reg,int base_reg1,int base_reg2,long offset,BOOL bUseOffset, Schedule::Type scheduleType ){
     280    return __op_format(op_size,op_prefix,opcode,0,reg,base_reg,offset,mod, scheduleType, isPertialSchedule );
     281}
     282const PertialSchedule *CodeGenerator::op_mov_MR_ex(int op_size,int reg,int base_reg1,int base_reg2,long offset,BOOL bUseOffset, Schedule::Type scheduleType, bool isPertialSchedule ){
    260283    //mov qword ptr[base_reg1+base_reg2+offset],reg64
    261284    //mov dword ptr[base_reg1+base_reg2+offset],reg32
    262285    //mov word ptr[base_reg1+base_reg2+offset],reg16
    263286    //mov byte ptr[base_reg1+base_reg2+offset],reg8
     287    const PertialSchedule *pPertialSchedule = NULL;
    264288
    265289    if(base_reg1==REG_RSP){
    … …  
    291315
    292316        //オフセット値
     317        if( isPertialSchedule )
     318        {
     319            pertialSchedules.push_back( new PertialSchedule( pNativeCode->GetSize(), sizeof(long) ) );
     320            pPertialSchedule = pertialSchedules.back();
     321        }
    293322        pNativeCode->Put( offset, scheduleType );
    294323    }
    … …  
    304333        pNativeCode->Put( (char)(REGISTER_OPERAND(base_reg1)<<3 | REGISTER_OPERAND(base_reg2)) );
    305334    }
    306 }
    307 
    308 void CodeGenerator::op_mov_MV(int op_size,int base_reg,int offset, Schedule::Type offsetScheduleType, BOOL bUseOffset,long i32data){
     335
     336    return pPertialSchedule;
     337}
     338
     339const PertialSchedule *CodeGenerator::op_mov_MV(int op_size,int base_reg,int offset, Schedule::Type offsetScheduleType, bool isPertialSchedule, BOOL bUseOffset,long i32data){
    309340    //mov ptr[base_reg+offset],i32data
    310341    //mov ptr[base_reg       ],i32data
     342    const PertialSchedule *pPertialSchedule = NULL;
    311343
    312344    //16ビット演算のプリフィックス
    … …  
    326358
    327359        //ModR/M, SIB, disp
    328         set_mod_rm_sib_disp(MOD_BASE_DISP32,0,SCALE_NON,INDEX_NON,base_reg,offset, offsetScheduleType );
     360        pPertialSchedule = set_mod_rm_sib_disp(MOD_BASE_DISP32,0,SCALE_NON,INDEX_NON,base_reg,offset, offsetScheduleType, isPertialSchedule );
    329361    }
    330362    else{
    … …  
    346378        pNativeCode->Put( (char)i32data );
    347379    }
     380
     381    return pPertialSchedule;
    348382}
    349383
    … …  
    561595/////////////////////
    562596
    563 void CodeGenerator::op_add_RM(int op_size,int reg,int base_reg,int offset,char mod, Schedule::Type scheduleType ){
     597const PertialSchedule *CodeGenerator::op_add_RM(int op_size,int reg,int base_reg,int offset,char mod, Schedule::Type scheduleType, bool isPertialSchedule ){
    564598    //add reg64,qword ptr[base_reg+offset]
    565599    //add reg32,dword ptr[base_reg+offset]
    … …  
    576610    else opcode=(char)0x03;
    577611
    578     __op_format(op_size,op_prefix,opcode,0,reg,base_reg,offset,mod, scheduleType );
    579 }
    580 
    581 void CodeGenerator::op_add_RV(int reg,long offset, Schedule::Type scheduleType ){
     612    return __op_format(op_size,op_prefix,opcode,0,reg,base_reg,offset,mod, scheduleType, isPertialSchedule );
     613}
     614
     615const PertialSchedule *CodeGenerator::op_add_RV(int reg,long offset, Schedule::Type scheduleType, bool isPertialSchedule ){
    582616    //add reg,offset
     617    const PertialSchedule *pPertialSchedule = NULL;
     618
    583619    char RexByte=-1;
    584620
    … …  
    594630        pNativeCode->Put( (char)RexByte );
    595631        pNativeCode->Put( (char)0x05 );
    596         pNativeCode->Put( offset, scheduleType );
    597632    }
    598633    else{
    … …  
    603638        pNativeCode->Put( (char)0x81 );
    604639        pNativeCode->Put( (char)(0xC0| REGISTER_OPERAND(reg)) );
    605         pNativeCode->Put( offset, scheduleType );
    606     }
     640    }
     641
     642    if( isPertialSchedule )
     643    {
     644        pertialSchedules.push_back( new PertialSchedule( pNativeCode->GetSize(), sizeof(long) ) );
     645        pPertialSchedule = pertialSchedules.back();
     646    }
     647    pNativeCode->Put( offset, scheduleType );
     648
     649    return pPertialSchedule;
    607650}
    608651void CodeGenerator::op_add_RR(int reg1,int reg2){
    … …  
    13031346////////////////////
    13041347
    1305 void CodeGenerator::op_movlpd_MR(int xmm_reg,int base_reg,int offset,char mod, Schedule::Type scheduleType ){
     1348const PertialSchedule *CodeGenerator::op_movlpd_MR(int xmm_reg,int base_reg,int offset,char mod, Schedule::Type scheduleType, bool isPertialSchedule ){
    13061349    //movlpd qword ptr[base_reg+offset],xmm_reg
    1307     __op_format(0,(char)0x66,(char)0x0F,(char)0x13,xmm_reg,base_reg,offset,mod, scheduleType );
    1308 }
    1309 void CodeGenerator::op_movlpd_RM(int xmm_reg,int base_reg,int offset,char mod, Schedule::Type scheduleType ){
     1350    return __op_format(0,(char)0x66,(char)0x0F,(char)0x13,xmm_reg,base_reg,offset,mod, scheduleType, isPertialSchedule );
     1351}
     1352const PertialSchedule *CodeGenerator::op_movlpd_RM(int xmm_reg,int base_reg,int offset,char mod, Schedule::Type scheduleType, bool isPertialSchedule ){
    13101353    //movlpd xmm_reg,qword ptr[base_reg+offset]
    1311     __op_format(0,(char)0x66,(char)0x0F,(char)0x12,xmm_reg,base_reg,offset,mod, scheduleType );
     1354    return __op_format(0,(char)0x66,(char)0x0F,(char)0x12,xmm_reg,base_reg,offset,mod, scheduleType, isPertialSchedule );
    13121355}
    13131356void CodeGenerator::op_movsd_RR(int xmm_reg1,int xmm_reg2){
    … …  
    13171360    __op_format(0,(char)0xF2,(char)0x0F,(char)0x10,xmm_reg1,xmm_reg2,0,MOD_REG);
    13181361}
    1319 void CodeGenerator::op_movsd_MR(int xmm_reg,int base_reg,int offset,char mod, Schedule::Type scheduleType ){
     1362const PertialSchedule *CodeGenerator::op_movsd_MR(int xmm_reg,int base_reg,int offset,char mod, Schedule::Type scheduleType, bool isPertialSchedule ){
    13201363    //movsd qword ptr[reg+offset],xmm_reg
    13211364    //movsd qword ptr[reg],xmm_reg
    1322     __op_format(0,(char)0xF2,(char)0x0F,(char)0x11,xmm_reg,base_reg,offset,mod, scheduleType );
     1365    return __op_format(0,(char)0xF2,(char)0x0F,(char)0x11,xmm_reg,base_reg,offset,mod, scheduleType, isPertialSchedule );
    13231366}
    13241367void CodeGenerator::op_movss_RR(int xmm_reg1,int xmm_reg2){
    … …  
    13281371    __op_format(0,(char)0xF3,(char)0x0F,(char)0x10,xmm_reg1,xmm_reg2,0,MOD_REG);
    13291372}
    1330 void CodeGenerator::op_movss_RM(int xmm_reg,int base_reg,int offset,char mod, Schedule::Type scheduleType ){
     1373const PertialSchedule *CodeGenerator::op_movss_RM(int xmm_reg,int base_reg,int offset,char mod, Schedule::Type scheduleType, bool isPertialSchedule ){
    13311374    //movss xmm_reg,dword ptr[base_reg+offset]
    1332     __op_format(0,(char)0xF3,(char)0x0F,(char)0x10,xmm_reg,base_reg,offset,mod, scheduleType );
    1333 }
    1334 void CodeGenerator::op_movss_MR(int xmm_reg,int base_reg,int offset,char mod, Schedule::Type scheduleType ){
     1375    return __op_format(0,(char)0xF3,(char)0x0F,(char)0x10,xmm_reg,base_reg,offset,mod, scheduleType, isPertialSchedule );
     1376}
     1377const PertialSchedule *CodeGenerator::op_movss_MR(int xmm_reg,int base_reg,int offset,char mod, Schedule::Type scheduleType, bool isPertialSchedule ){
    13351378    //movss dword ptr[reg+offset],xmm_reg
    13361379    //movss dword ptr[reg],xmm_reg
    1337     __op_format(0,(char)0xF3,(char)0x0F,(char)0x11,xmm_reg,base_reg,offset,mod, scheduleType );
     1380    return __op_format(0,(char)0xF3,(char)0x0F,(char)0x11,xmm_reg,base_reg,offset,mod, scheduleType, isPertialSchedule );
    13381381}
    13391382

  • trunk/abdev/BasicCompiler64/Compile_Calc_PushVar.cpp

    r242 r254  
    3232                (char)0x1C
    3333            );
    34             compiler.codeGenerator.PutOld(
    35                 (long)pRelativeVar->offset,
    36                 Schedule::LocalVar
     34            compiler.codeGenerator.localVarPertialSchedules.push_back(
     35                compiler.codeGenerator.PutOld( (long)pRelativeVar->offset, true )
    3736            );
    3837        }
    3938        else{
    4039            //movlpd xmm_reg,qword ptr[rsp+offset]
    41             compiler.codeGenerator.op_movlpd_RM( xmm_reg, REG_RSP, (long)pRelativeVar->offset, MOD_BASE_DISP32, Schedule::LocalVar );
     40            compiler.codeGenerator.localVarPertialSchedules.push_back(
     41                compiler.codeGenerator.op_movlpd_RM( xmm_reg, REG_RSP, (long)pRelativeVar->offset, MOD_BASE_DISP32, Schedule::None, true )
     42            );
    4243        }
    4344    }
    … …  
    4546        if(pRelativeVar->bOffsetOffset){
    4647            //add r11,qword ptr[rsp+offset]
    47             compiler.codeGenerator.op_add_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelativeVar->offset,MOD_BASE_DISP32, Schedule::LocalVar );
     48            compiler.codeGenerator.localVarPertialSchedules.push_back(
     49                compiler.codeGenerator.op_add_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelativeVar->offset,MOD_BASE_DISP32, Schedule::None, true )
     50            );
    4851        }
    4952        else{
    5053            //mov r11,qword ptr[rsp+offset]
    51             compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelativeVar->offset,MOD_BASE_DISP32, Schedule::LocalVar );
     54            compiler.codeGenerator.localVarPertialSchedules.push_back(
     55                compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelativeVar->offset,MOD_BASE_DISP32, Schedule::None, true )
     56            );
    5257        }
    5358
    … …  
    8590                (char)0x1C
    8691            );
    87             compiler.codeGenerator.PutOld(
    88                 (long)pRelativeVar->offset,
    89                 Schedule::LocalVar
     92            compiler.codeGenerator.localVarPertialSchedules.push_back(
     93                compiler.codeGenerator.PutOld( (long)pRelativeVar->offset, true )
    9094            );
    9195        }
    9296        else{
    9397            //movss xmm_reg,dword ptr[rsp+offset]
    94             compiler.codeGenerator.op_movss_RM( xmm_reg, REG_RSP, (long)pRelativeVar->offset, MOD_BASE_DISP32, Schedule::LocalVar );
     98            compiler.codeGenerator.localVarPertialSchedules.push_back(
     99                compiler.codeGenerator.op_movss_RM( xmm_reg, REG_RSP, (long)pRelativeVar->offset, MOD_BASE_DISP32, Schedule::None, true )
     100            );
    95101        }
    96102    }
    … …  
    98104        if(pRelativeVar->bOffsetOffset){
    99105            //add r11,qword ptr[rsp+offset]
    100             compiler.codeGenerator.op_add_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelativeVar->offset,MOD_BASE_DISP32, Schedule::LocalVar );
     106            compiler.codeGenerator.localVarPertialSchedules.push_back(
     107                compiler.codeGenerator.op_add_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelativeVar->offset,MOD_BASE_DISP32, Schedule::None, true )
     108            );
    101109        }
    102110        else{
    103111            //mov r11,qword ptr[rsp+offset]
    104             compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelativeVar->offset,MOD_BASE_DISP32, Schedule::LocalVar );
     112            compiler.codeGenerator.localVarPertialSchedules.push_back(
     113                compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelativeVar->offset,MOD_BASE_DISP32, Schedule::None, true )
     114            );
    105115        }
    106116
    … …  
    145155        if(pRelativeVar->bOffsetOffset){
    146156            //mov reg, ptr[rsp+r11+offset]
    147             compiler.codeGenerator.op_mov_RM_ex(varSize,reg,REG_RSP,REG_R11,(int)pRelativeVar->offset,USE_OFFSET, Schedule::LocalVar );
     157            compiler.codeGenerator.localVarPertialSchedules.push_back(
     158                compiler.codeGenerator.op_mov_RM_ex(varSize,reg,REG_RSP,REG_R11,(int)pRelativeVar->offset,USE_OFFSET, Schedule::None, true )
     159            );
    148160        }
    149161        else{
    150162            //mov reg, ptr[rsp+offset]
    151             compiler.codeGenerator.op_mov_RM(varSize,reg,REG_RSP,(int)pRelativeVar->offset,MOD_BASE_DISP32, Schedule::LocalVar );
     163            compiler.codeGenerator.localVarPertialSchedules.push_back(
     164                compiler.codeGenerator.op_mov_RM(varSize,reg,REG_RSP,(int)pRelativeVar->offset,MOD_BASE_DISP32, Schedule::None, true )
     165            );
    152166        }
    153167    }
    … …  
    155169        if(pRelativeVar->bOffsetOffset){
    156170            //add r11,qword ptr[rsp+offset]
    157             compiler.codeGenerator.op_add_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelativeVar->offset,MOD_BASE_DISP32, Schedule::LocalVar );
     171            compiler.codeGenerator.localVarPertialSchedules.push_back(
     172                compiler.codeGenerator.op_add_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelativeVar->offset,MOD_BASE_DISP32, Schedule::None, true )
     173            );
    158174        }
    159175        else{
    160176            //mov r11,qword ptr[rsp+offset]
    161             compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelativeVar->offset,MOD_BASE_DISP32, Schedule::LocalVar );
     177            compiler.codeGenerator.localVarPertialSchedules.push_back(
     178                compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelativeVar->offset,MOD_BASE_DISP32, Schedule::None, true )
     179            );
    162180        }
    163181

  • trunk/abdev/BasicCompiler64/Compile_CallProc.cpp

    r228 r254  
    77#include "../BasicCompiler_Common/common.h"
    88#include "Opcode.h"
    9 
    10 //ローカル変数アドレススケジュール
    11 DWORD *pLocalVarAddrSchedule;
    12 int LocalVarAddrScheduleNum;
    139
    1410void Call_DebugSys_SaveContext(){
    … …  
    2723    compiler.codeGenerator.op_call(pSub_DebugSys_SaveContext);
    2824}
    29 
    30 void AddLocalVarAddrSchedule(){
    31     extern HANDLE hHeap;
    32 
    33     //ローカル変数アドレススケジュールに追加する
    34     pLocalVarAddrSchedule=(DWORD *)HeapReAlloc(hHeap,0,pLocalVarAddrSchedule,(LocalVarAddrScheduleNum+1)*sizeof(DWORD));
    35     pLocalVarAddrSchedule[LocalVarAddrScheduleNum]=obp;
    36     LocalVarAddrScheduleNum++;
    37 }
    38 
    3925
    4026bool Opcode_CallProcPtr( const char *variable, const char *lpszParms,ProcPointer *pProcPointer){

  • trunk/abdev/BasicCompiler64/Compile_Object.cpp

    r243 r254  
    173173
    174174    //mov qword ptr[rax],typeSize（オブジェクトのサイズ）
    175     compiler.codeGenerator.op_mov_MV(sizeof(_int64),REG_RAX,0, Schedule::None, NON_OFFSET,typeSize);
     175    compiler.codeGenerator.op_mov_MV(sizeof(_int64),REG_RAX,0, Schedule::None, false, NON_OFFSET,typeSize);
    176176
    177177    //add rax,PTR_SIZE

  • trunk/abdev/BasicCompiler64/Compile_ProcOp.cpp

    r242 r254  
    66#include <Program.h>
    77#include <Compiler.h>
    8 #include <LexicalScopingImpl.h>
    98#include <Class.h>
    109
    … …  
    116115        UserProc::CompileStartForGlobalArea();
    117116
    118         GetLexicalScopes().CallDestructorsOfScopeEnd();
     117        compiler.codeGenerator.lexicalScopes.CallDestructorsOfScopeEnd();
    119118
    120119        UserProc::CompileStartForUserProc( pBackUserProc );
    … …  
    308307
    309308    //プロシージャ抜け出しスケジュール（Exit Sub/Function）
    310     extern DWORD *pExitSubSchedule;
    311     extern int ExitSubScheduleNum;
    312     pExitSubSchedule=(DWORD *)HeapAlloc(hHeap,0,1);
    313     ExitSubScheduleNum=0;
     309    compiler.codeGenerator.exitSubCodePositions.clear();
     310    compiler.codeGenerator._exitSubCodePositions_ObpOld.clear();
    314311
    315312    //ラベル用のメモリを確保
    … …  
    320317
    321318    //Gotoラベルスケジュール
    322     extern GOTOLABELSCHEDULE *pGotoLabelSchedule;
    323     extern int GotoLabelScheduleNum;
    324     pGotoLabelSchedule=(GOTOLABELSCHEDULE *)HeapAlloc(hHeap,0,1);
    325     GotoLabelScheduleNum=0;
     319    compiler.codeGenerator.gotoLabelSchedules.clear();
    326320
    327321    //With情報のメモリを確保
    … …  
    344338    AllLocalVarSize=0;
    345339
    346     //ローカル変数アドレススケジュール
    347     extern DWORD *pLocalVarAddrSchedule;
    348     extern int LocalVarAddrScheduleNum;
    349     pLocalVarAddrSchedule=(DWORD *)HeapAlloc(hHeap,0,1);
    350     LocalVarAddrScheduleNum=0;
    351 
    352340    //レキシカルスコープ情報を初期化
    353     GetLexicalScopes().Init(obp);
     341    compiler.codeGenerator.lexicalScopes.Init(obp);
    354342
    355343
    … …  
    386374
    387375        //レキシカルスコープ情報
    388         pVar->SetScopeLevel( GetLexicalScopes().GetNowLevel() );
    389         pVar->SetScopeStartAddress( GetLexicalScopes().GetStartAddress() );
     376        pVar->SetScopeLevel( compiler.codeGenerator.lexicalScopes.GetNowLevel() );
     377        pVar->SetScopeStartAddress( compiler.codeGenerator.lexicalScopes.GetStartAddress() );
    390378        pVar->bLiving=TRUE;
    391379
    … …  
    661649    HeapDefaultFree(pLabelNames);
    662650
    663     //Goto未知ラベルスケジュールを解放
    664     for(i3=0;i3<GotoLabelScheduleNum;i3++){
    665         if(pGotoLabelSchedule[i3].pName){
    666             SetError(6,pGotoLabelSchedule[i3].pName,pGotoLabelSchedule[i3].now_cp);
    667             HeapDefaultFree(pGotoLabelSchedule[i3].pName);
    668         }
    669         else{
    670             sprintf(temporary,"%d",pGotoLabelSchedule[i3].line);
    671             SetError(6,temporary,pGotoLabelSchedule[i3].now_cp);
    672         }
    673     }
    674     HeapDefaultFree(pGotoLabelSchedule);
    675 
    676651    //With情報のメモリを解放
    677652    for(i3=0;i3<WithInfo.num;i3++){
    … …  
    683658
    684659    //ローカルオブジェクト（レキシカルスコープレベル=0）の解放処理
    685     GetLexicalScopes().CallDestructorsOfScopeEnd();
     660    compiler.codeGenerator.lexicalScopes.CallDestructorsOfScopeEnd();
    686661
    687662    //プロシージャ抜け出しスケジュール（Exit Sub/Function）
    688     for(i3=0;i3<ExitSubScheduleNum;i3++){
    689         *((long *)(OpBuffer+pExitSubSchedule[i3]))=obp-(pExitSubSchedule[i3]+sizeof(long));
    690     }
    691     HeapDefaultFree(pExitSubSchedule);
     663    compiler.codeGenerator.ResolveExitSubSchedule();
    692664
    693665    if(bDebugCompile&&bDebugSupportProc==0){
    … …  
    739711
    740712    //ローカル変数アドレススケジュール
    741     for(i3=0;i3<LocalVarAddrScheduleNum;i3++){
    742         *((long *)(OpBuffer+pLocalVarAddrSchedule[i3])) += AllLocalVarSize + stackFrameSize;
    743     }
    744     HeapDefaultFree(pLocalVarAddrSchedule);
     713    BOOST_FOREACH( const PertialSchedule *pPertialSchedule, compiler.codeGenerator.localVarPertialSchedules )
     714    {
     715        compiler.codeGenerator.opfix_offset( pPertialSchedule, AllLocalVarSize );
     716    }
     717    compiler.codeGenerator.localVarPertialSchedules.clear();
    745718    BOOST_FOREACH( Variable *pVar, pUserProc->GetLocalVars() ){
    746719        //後にデバッグで利用する

  • trunk/abdev/BasicCompiler64/Compile_Set_Var.cpp

    r242 r254  
    126126                (char)0x1C
    127127            );
    128             compiler.codeGenerator.PutOld(
    129                 (long)pRelative->offset,
    130                 Schedule::LocalVar
     128            compiler.codeGenerator.localVarPertialSchedules.push_back(
     129                compiler.codeGenerator.PutOld( (long)pRelative->offset, true )
    131130            );
    132131        }
    133132        else{
    134133            //movsd qword ptr[rsp+offset],xmm0
    135             compiler.codeGenerator.op_movsd_MR( REG_XMM0, REG_RSP, (long)pRelative->offset, MOD_BASE_DISP32, Schedule::LocalVar );
     134            compiler.codeGenerator.localVarPertialSchedules.push_back(
     135                compiler.codeGenerator.op_movsd_MR( REG_XMM0, REG_RSP, (long)pRelative->offset, MOD_BASE_DISP32, Schedule::None, true )
     136            );
    136137        }
    137138    }
    … …  
    139140        if(pRelative->bOffsetOffset){
    140141            //add r11,qword ptr[rsp+offset]
    141             compiler.codeGenerator.op_add_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::LocalVar );
     142            compiler.codeGenerator.localVarPertialSchedules.push_back(
     143                compiler.codeGenerator.op_add_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::None, true )
     144            );
    142145        }
    143146        else{
    144147            //mov r11,qword ptr[rsp+offset]
    145             compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::LocalVar );
     148            compiler.codeGenerator.localVarPertialSchedules.push_back(
     149                compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::None, true )
     150            );
    146151        }
    147152
    … …  
    186191                (char)0x1C
    187192            );
    188             compiler.codeGenerator.PutOld(
    189                 (long)pRelative->offset,
    190                 Schedule::LocalVar
     193            compiler.codeGenerator.localVarPertialSchedules.push_back(
     194                compiler.codeGenerator.PutOld( (long)pRelative->offset, true )
    191195            );
    192196        }
    193197        else{
    194198            //movss dword ptr[rsp+offset],xmm0
    195             compiler.codeGenerator.op_movss_MR( REG_XMM0, REG_RSP, (long)pRelative->offset, MOD_BASE_DISP32, Schedule::LocalVar );
     199            compiler.codeGenerator.localVarPertialSchedules.push_back(
     200                compiler.codeGenerator.op_movss_MR( REG_XMM0, REG_RSP, (long)pRelative->offset, MOD_BASE_DISP32, Schedule::None, true )
     201            );
    196202        }
    197203    }
    … …  
    199205        if(pRelative->bOffsetOffset){
    200206            //add r11,qword ptr[rsp+offset]
    201             compiler.codeGenerator.op_add_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::LocalVar );
     207            compiler.codeGenerator.localVarPertialSchedules.push_back(
     208                compiler.codeGenerator.op_add_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::None, true )
     209            );
    202210        }
    203211        else{
    204212            //mov r11,qword ptr[rsp+offset]
    205             compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::LocalVar );
     213            compiler.codeGenerator.localVarPertialSchedules.push_back(
     214                compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::None, true )
     215            );
    206216        }
    207217
    … …  
    302312        if(pRelative->bOffsetOffset){
    303313            //mov ptr[rsp+r11+offset],rax/eax/ax/al
    304             compiler.codeGenerator.op_mov_MR_ex(varSize,REG_RAX,REG_RSP,REG_R11,(int)pRelative->offset,USE_OFFSET, Schedule::LocalVar );
     314            compiler.codeGenerator.localVarPertialSchedules.push_back(
     315                compiler.codeGenerator.op_mov_MR_ex(varSize,REG_RAX,REG_RSP,REG_R11,(int)pRelative->offset,USE_OFFSET, Schedule::None, true )
     316            );
    305317        }
    306318        else{
    307319            //mov ptr[rsp+offset],rax/eax/ax/al
    308             compiler.codeGenerator.op_mov_MR(varSize,REG_RAX,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::LocalVar );
     320            compiler.codeGenerator.localVarPertialSchedules.push_back(
     321                compiler.codeGenerator.op_mov_MR(varSize,REG_RAX,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::None, true )
     322            );
    309323        }
    310324    }
    … …  
    312326        if(pRelative->bOffsetOffset){
    313327            //add r11,qword ptr[rsp+offset]
    314             compiler.codeGenerator.op_add_RM( sizeof(_int64), REG_R11, REG_RSP, (int)pRelative->offset, MOD_BASE_DISP32, Schedule::LocalVar );
     328            compiler.codeGenerator.localVarPertialSchedules.push_back(
     329                compiler.codeGenerator.op_add_RM( sizeof(_int64), REG_R11, REG_RSP, (int)pRelative->offset, MOD_BASE_DISP32, Schedule::None, true )
     330            );
    315331        }
    316332        else{
    317333            //mov r11,qword ptr[rsp+offset]
    318             compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::LocalVar );
     334            compiler.codeGenerator.localVarPertialSchedules.push_back(
     335                compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelative->offset,MOD_BASE_DISP32, Schedule::None, true )
     336            );
    319337        }
    320338

  • trunk/abdev/BasicCompiler64/Compile_Statement.cpp

    r243 r254  
    33#include <jenga/include/smoothie/LexicalAnalysis.h>
    44
    5 #include <LexicalScopingImpl.h>
    65#include <Compiler.h>
    76
    … …  
    192191
    193192    //je (endif、または else まで条件ジャンプ)
    194     CodeGenerator::PertialSchedule *pIfPertialSchedule = compiler.codeGenerator.op_je( 0, sizeof(long), true );
     193    const PertialSchedule *pIfPertialSchedule = compiler.codeGenerator.op_je( 0, sizeof(long), true );
    195194
    196195
    … …  
    200199
    201200    //レキシカルスコープをレベルアップ
    202     GetLexicalScopes().Start( obp, SCOPE_TYPE_IF );
     201    compiler.codeGenerator.lexicalScopes.Start( obp, LexicalScope::SCOPE_TYPE_IF );
    203202
    204203    int i2=CompileBuffer(ESC_ENDIF,0);
    205204
    206205    //レキシカルスコープをレベルダウン
    207     GetLexicalScopes().End();
     206    compiler.codeGenerator.lexicalScopes.End();
    208207
    209208
    210209    if(i2==ESC_ELSE){
    211210        //jmp (endifまで)
    212         CodeGenerator::PertialSchedule *pTempPertialSchedule = compiler.codeGenerator.op_jmp( 0, sizeof(long), true );
     211        const PertialSchedule *pTempPertialSchedule = compiler.codeGenerator.op_jmp( 0, sizeof(long), true );
    213212
    214213        compiler.codeGenerator.opfix_JmpPertialSchedule( pIfPertialSchedule );
    … …  
    221220
    222221        //レキシカルスコープをレベルアップ
    223         GetLexicalScopes().Start( obp, SCOPE_TYPE_IF );
     222        compiler.codeGenerator.lexicalScopes.Start( obp, LexicalScope::SCOPE_TYPE_IF );
    224223
    225224        CompileBuffer(ESC_ENDIF,0);
    226225
    227226        //レキシカルスコープをレベルダウン
    228         GetLexicalScopes().End();
     227        compiler.codeGenerator.lexicalScopes.End();
    229228
    230229
    … …  
    259258void OpcodeGoto(char *Parameter){
    260259    extern HANDLE hHeap;
    261     extern GOTOLABELSCHEDULE *pGotoLabelSchedule;
    262     extern int GotoLabelScheduleNum;
    263260    int i,LineNum;
    264261
    … …  
    266263        i=GetLabelAddress(Parameter+1,0);
    267264
    268         //jmp ...
    269         OpBuffer[obp++]=(char)0xE9;
    270         if(i==-1){
    271             pGotoLabelSchedule=(GOTOLABELSCHEDULE *)HeapReAlloc(hHeap,0,pGotoLabelSchedule,(GotoLabelScheduleNum+1)*sizeof(GOTOLABELSCHEDULE));
    272             pGotoLabelSchedule[GotoLabelScheduleNum].pName=(char *)HeapAlloc(hHeap,0,lstrlen(Parameter+1)+1);
    273             lstrcpy(pGotoLabelSchedule[GotoLabelScheduleNum].pName,Parameter+1);
    274             pGotoLabelSchedule[GotoLabelScheduleNum].pos=obp;
    275             pGotoLabelSchedule[GotoLabelScheduleNum].now_cp=cp;
    276             GotoLabelScheduleNum++;
    277         }
    278         *((long *)(OpBuffer+obp))=i-(obp+sizeof(long));
    279         obp+=sizeof(long);
     265        if( i == -1 )
     266        {
     267            //jmp ...(schedule)
     268            extern int obp;
     269            compiler.codeGenerator.op_jmp_goto_schedule( (const std::string)(Parameter + 1), 0, cp );
     270        }
     271        else
     272        {
     273            //jmp ...
     274            extern int obp;
     275            compiler.codeGenerator.op_jmp( i-obp, sizeof(long), false, true );
     276        }
    280277    }
    281278    else{
    … …  
    283280        i=GetLabelAddress(0,LineNum);
    284281
    285         //jmp ...
    286         OpBuffer[obp++]=(char)0xE9;
    287         if(i==-1){
    288             pGotoLabelSchedule=(GOTOLABELSCHEDULE *)HeapReAlloc(hHeap,0,pGotoLabelSchedule,(GotoLabelScheduleNum+1)*sizeof(GOTOLABELSCHEDULE));
    289             pGotoLabelSchedule[GotoLabelScheduleNum].pName=0;
    290             pGotoLabelSchedule[GotoLabelScheduleNum].line=LineNum;
    291             pGotoLabelSchedule[GotoLabelScheduleNum].pos=obp;
    292             pGotoLabelSchedule[GotoLabelScheduleNum].now_cp=cp;
    293             GotoLabelScheduleNum++;
    294         }
    295         *((long *)(OpBuffer+obp))=i-(obp+sizeof(long));
    296         obp+=sizeof(long);
     282        if( i == -1 )
     283        {
     284            //jmp ...(schedule)
     285            extern int obp;
     286            compiler.codeGenerator.op_jmp_goto_schedule( "", LineNum, cp );
     287        }
     288        else
     289        {
     290            //jmp ...
     291            extern int obp;
     292            compiler.codeGenerator.op_jmp( i-obp, sizeof(long), false, true );
     293        }
    297294    }
    298295}
    … …  
    309306
    310307    //je (Wend まで)
    311     CodeGenerator::PertialSchedule *pWhilePertialSchedule = compiler.codeGenerator.op_je( 0, sizeof(long), true );
     308    const PertialSchedule *pWhilePertialSchedule = compiler.codeGenerator.op_je( 0, sizeof(long), true );
    312309
    313310    //レキシカルスコープをレベルアップ
    314     GetLexicalScopes().Start( obp, SCOPE_TYPE_WHILE );
     311    compiler.codeGenerator.lexicalScopes.Start( obp, LexicalScope::SCOPE_TYPE_WHILE );
    315312
    316313    //While内をコンパイル
    317314    CompileBuffer(0,COM_WEND);
    318315
    319     GetLexicalScopes().CallDestructorsOfScopeEnd();
     316    compiler.codeGenerator.lexicalScopes.CallDestructorsOfScopeEnd();
    320317
    321318    //jmp ...
    … …  
    323320
    324321    //レキシカルスコープをレベルダウン
    325     GetLexicalScopes().End();
     322    compiler.codeGenerator.lexicalScopes.End();
    326323
    327324    compiler.codeGenerator.opfix_JmpPertialSchedule( pWhilePertialSchedule );
    … …  
    364361
    365362    //jmp ...
    366     CodeGenerator::PertialSchedule *pTempPertialSchedule = compiler.codeGenerator.op_jmp( 0, sizeof(long), true );
     363    const PertialSchedule *pTempPertialSchedule = compiler.codeGenerator.op_jmp( 0, sizeof(long), true );
    367364
    368365    //Continueアドレスのバックアップとセット
    … …  
    407404
    408405    //jmp [カウンタ減少の場合の判定を飛び越す]
    409     CodeGenerator::PertialSchedule *pTempPertialSchedule2 = compiler.codeGenerator.op_jmp( 0, sizeof(long), true );
     406    const PertialSchedule *pTempPertialSchedule2 = compiler.codeGenerator.op_jmp( 0, sizeof(long), true );
    410407
    411408    //jeジャンプ先のオフセット値
    … …  
    430427
    431428    //レキシカルスコープをレベルアップ
    432     GetLexicalScopes().Start( obp, SCOPE_TYPE_FOR );
     429    compiler.codeGenerator.lexicalScopes.Start( obp, LexicalScope::SCOPE_TYPE_FOR );
    433430
    434431    //For内をコンパイル
    435432    CompileBuffer(0,COM_NEXT);
    436433
    437     GetLexicalScopes().CallDestructorsOfScopeEnd();
     434    compiler.codeGenerator.lexicalScopes.CallDestructorsOfScopeEnd();
    438435
    439436    if(szNextVariable[0]){
    … …  
    447444
    448445    //レキシカルスコープをレベルダウン
    449     GetLexicalScopes().End();
     446    compiler.codeGenerator.lexicalScopes.End();
    450447
    451448    //jeジャンプ先のオフセット値
    … …  
    466463
    467464    //レキシカルスコープをレベルアップ
    468     GetLexicalScopes().Start( obp, SCOPE_TYPE_DO );
     465    compiler.codeGenerator.lexicalScopes.Start( obp, LexicalScope::SCOPE_TYPE_DO );
    469466
    470467    //Do内をコンパイル
    471468    CompileBuffer(0,COM_LOOP);
    472469
    473     GetLexicalScopes().CallDestructorsOfScopeEnd();
    474 
    475     CodeGenerator::PertialSchedule *pDoPertialSchedule = NULL;
     470    compiler.codeGenerator.lexicalScopes.CallDestructorsOfScopeEnd();
     471
     472    const PertialSchedule *pDoPertialSchedule = NULL;
    476473
    477474    extern char *basbuf;
    … …  
    522519
    523520    //jmp ...
    524     CodeGenerator::PertialSchedule *pTempPertialSchedule = compiler.codeGenerator.op_jmp( 0, sizeof(long), true );
     521    const PertialSchedule *pTempPertialSchedule = compiler.codeGenerator.op_jmp( 0, sizeof(long), true );
    525522
    526523    //レキシカルスコープをレベルダウン
    527     GetLexicalScopes().End();
     524    compiler.codeGenerator.lexicalScopes.End();
    528525
    529526    //jmpジャンプ先のオフセット値
    … …  
    539536
    540537void OpcodeExitSub(void){
    541     extern DWORD *pExitSubSchedule;
    542     extern int ExitSubScheduleNum;
    543     extern HANDLE hHeap;
    544 
    545538    if( UserProc::IsGlobalAreaCompiling() ){
    546539        SetError(12,"Exit Sub/Function",cp);
    … …  
    549542
    550543    //未解放のローカルオブジェクトのデストラクタを呼び出す
    551     GetLexicalScopes().CallDestructorsOfReturn();
     544    compiler.codeGenerator.lexicalScopes.CallDestructorsOfReturn();
    552545
    553546    //jmp ...(End Sub/Function)
    554     OpBuffer[obp++]=(char)0xE9;
    555 
    556     pExitSubSchedule=(DWORD *)HeapReAlloc(hHeap,0,pExitSubSchedule,(ExitSubScheduleNum+1)*sizeof(DWORD));
    557     pExitSubSchedule[ExitSubScheduleNum]=obp;
    558     ExitSubScheduleNum++;
    559 
    560     obp+=sizeof(long);
    561 }
    562 
    563 void AddCaseSchedule(void){
    564     extern DWORD *pCaseSchedule;
    565     extern int CaseScheduleNum;
    566     extern HANDLE hHeap;
    567 
    568     pCaseSchedule=(DWORD *)HeapReAlloc(hHeap,0,pCaseSchedule,(CaseScheduleNum+1)*sizeof(DWORD));
    569     pCaseSchedule[CaseScheduleNum]=obp;
    570     CaseScheduleNum++;
    571 }
     547    compiler.codeGenerator.op_jmp_exitsub();
     548}
     549
     550//Caseスケジュール
     551class SelectSchedule
     552{
     553public:
     554    SelectSchedule( int typeSize )
     555        : typeSize( typeSize )
     556        , nowCaseSchedule( 0 )
     557    {
     558    }
     559
     560    PertialSchedules casePertialSchedules;
     561    int typeSize;
     562    int nowCaseSchedule;
     563};
     564std::vector<SelectSchedule> selectSchedules;
     565
    572566void OpcodeSelect( const char *lpszParms ){
    573     extern DWORD *pCaseSchedule;
    574     extern int CaseScheduleNum;
    575     extern int NowCaseSchedule;
    576567    extern HANDLE hHeap;
    577568    extern char *basbuf;
    578569    int i,i2,i3,NowCaseCp;
    579570    char temporary[VN_SIZE];
    580 
    581     DWORD *temp_pCaseSchedule;
    582     int temp_CaseScheduleNum;
    583     int temp_NowCaseSchedule;
    584 
    585     temp_pCaseSchedule=pCaseSchedule;
    586     temp_CaseScheduleNum=CaseScheduleNum;
    587     temp_NowCaseSchedule=NowCaseSchedule;
    588     pCaseSchedule=(DWORD *)HeapAlloc(hHeap,0,1);
    589     CaseScheduleNum=0;
    590     NowCaseSchedule=0;
    591 
     571   
    592572    int reg1=REG_RAX;
    593573    Type type1;
    … …  
    596576    }
    597577
     578    selectSchedules.push_back( SelectSchedule( type1.GetSize() ) );
     579
     580    if( selectSchedules.back().typeSize < sizeof(long) ){
     581        selectSchedules.back().typeSize = sizeof(long);
     582    }
     583
    598584    if(type1.IsDouble()){
    599585        //movsd qword ptr[rsp+offset],xmm_reg       ※スタックフレームを利用
    … …  
    613599    for(i=cp;;i++){
    614600        if(basbuf[i]=='\0'){
    615             HeapDefaultFree(pCaseSchedule);
    616             pCaseSchedule=temp_pCaseSchedule;
    617             CaseScheduleNum=temp_CaseScheduleNum;
    618             NowCaseSchedule=temp_NowCaseSchedule;
     601            selectSchedules.pop_back();
    619602            SetError(22,"Select",cp);
    620603            return;
    … …  
    718701
    719702                    //jne ...
    720                     OpBuffer[obp++]=(char)0x0F;
    721                     OpBuffer[obp++]=(char)0x85;
     703                    selectSchedules.back().casePertialSchedules.push_back(
     704                        compiler.codeGenerator.op_jne( 0, sizeof(long), true )
     705                    );
    722706                }
    723707                else{
    … …  
    759743
    760744                    //je ...
    761                     OpBuffer[obp++]=(char)0x0F;
    762                     OpBuffer[obp++]=(char)0x84;
     745                    selectSchedules.back().casePertialSchedules.push_back(
     746                        compiler.codeGenerator.op_je( 0, sizeof(long), true )
     747                    );
    763748                }
    764                 AddCaseSchedule();
    765                 obp+=sizeof(long);
    766749
    767750                if(basbuf[i]!=',') break;
    … …  
    770753        if(basbuf[i]==1&&basbuf[i+1]==ESC_CASEELSE){
    771754            //jmp ...
    772             OpBuffer[obp++]=(char)0xE9;
    773             AddCaseSchedule();
    774             obp+=sizeof(long);
     755            selectSchedules.back().casePertialSchedules.push_back(
     756                compiler.codeGenerator.op_jmp( 0, sizeof(long), true )
     757            );
    775758        }
    776759    }
    … …  
    780763
    781764    //レキシカルスコープをレベルアップ
    782     GetLexicalScopes().Start( obp, SCOPE_TYPE_SELECT );
     765    compiler.codeGenerator.lexicalScopes.Start( obp, LexicalScope::SCOPE_TYPE_SELECT );
    783766
    784767    //Select Case内をコンパイル
    … …  
    786769
    787770    //jmp EndSelect
    788     OpBuffer[obp++]=(char)0xE9;
    789     AddCaseSchedule();
    790     obp+=sizeof(long);
     771    selectSchedules.back().casePertialSchedules.push_back(
     772        compiler.codeGenerator.op_jmp( 0, sizeof(long), true )
     773    );
    791774
    792775    //最終スケジュール
    793     for(i=NowCaseSchedule;i<CaseScheduleNum;i++){
    794         *(long *)(OpBuffer+pCaseSchedule[i])=obp-(pCaseSchedule[i]+sizeof(long));
    795     }
    796     HeapDefaultFree(pCaseSchedule);
     776    for(i=selectSchedules.back().nowCaseSchedule;i<(int)selectSchedules.back().casePertialSchedules.size();i++){
     777        compiler.codeGenerator.opfix_JmpPertialSchedule( selectSchedules.back().casePertialSchedules[i] );
     778    }
    797779
    798780    //レキシカルスコープをレベルダウン
    799     GetLexicalScopes().End();
    800 
    801     pCaseSchedule=temp_pCaseSchedule;
    802     CaseScheduleNum=temp_CaseScheduleNum;
    803     NowCaseSchedule=temp_NowCaseSchedule;
     781    compiler.codeGenerator.lexicalScopes.End();
     782
     783    selectSchedules.pop_back();
    804784}
    805785void OpcodeCase(char *Parameter){
    806     extern DWORD *pCaseSchedule;
    807     extern int NowCaseSchedule;
    808786    int i;
    809787
    810     if(!pCaseSchedule){
     788    if(selectSchedules.back().typeSize==-1){
    811789        SetError(30,"Case",cp);
    812790        return;
    … …  
    814792
    815793    //jmp EndSelect
    816     OpBuffer[obp++]=(char)0xE9;
    817     AddCaseSchedule();
    818     obp+=sizeof(long);
     794    selectSchedules.back().casePertialSchedules.push_back(
     795        compiler.codeGenerator.op_jmp( 0, sizeof(long), true )
     796    );
    819797
    820798    i=0;
    821799    while(1){
    822800        //Caseスケジュール
    823         *(long *)(OpBuffer+pCaseSchedule[NowCaseSchedule])=obp-(pCaseSchedule[NowCaseSchedule]+sizeof(long));
    824         NowCaseSchedule++;
     801        compiler.codeGenerator.opfix_JmpPertialSchedule( selectSchedules.back().casePertialSchedules[selectSchedules.back().nowCaseSchedule] );
     802        selectSchedules.back().nowCaseSchedule++;
    825803
    826804        i=JumpOneParameter(Parameter,i);
    … …  
    830808
    831809void OpcodeGosub(char *Parameter){
    832     extern HANDLE hHeap;
    833     extern GOTOLABELSCHEDULE *pGotoLabelSchedule;
    834     extern int GotoLabelScheduleNum;
    835     int i,LineNum;
    836 
    837     //call _System_GetEip
    838     extern const UserProc *pSub_System_GetEip;
    839     compiler.codeGenerator.op_call(pSub_System_GetEip);
    840 
    841     //add rax,offset（Gosubステートメントの最終ポイント）
    842     int schedule=obp,schedule2;
    843     compiler.codeGenerator.op_add_RV(REG_RAX,0);
    844     schedule2=obp-sizeof(long);
    845 
    846     //※戻り先用のrip
    847     //mov qword ptr[rsp+offset],rax     ※スタックフレームを利用
    848     pobj_sf->push(REG_RAX);
    849 
    850 
    851     if(Parameter[0]=='*'){
    852         i=GetLabelAddress(Parameter+1,0);
    853 
    854         //jmp ...
    855         OpBuffer[obp++]=(char)0xE9;
    856         if(i==-1){
    857             pGotoLabelSchedule=(GOTOLABELSCHEDULE *)HeapReAlloc(hHeap,0,pGotoLabelSchedule,(GotoLabelScheduleNum+1)*sizeof(GOTOLABELSCHEDULE));
    858             pGotoLabelSchedule[GotoLabelScheduleNum].pName=(char *)HeapAlloc(hHeap,0,lstrlen(Parameter+1)+1);
    859             lstrcpy(pGotoLabelSchedule[GotoLabelScheduleNum].pName,Parameter+1);
    860             pGotoLabelSchedule[GotoLabelScheduleNum].pos=obp;
    861             pGotoLabelSchedule[GotoLabelScheduleNum].now_cp=cp;
    862             GotoLabelScheduleNum++;
    863         }
    864         *((long *)(OpBuffer+obp))=i-(obp+sizeof(long));
    865         obp+=sizeof(long);
    866     }
    867     else{
    868         LineNum=atoi(Parameter);
    869         i=GetLabelAddress(0,LineNum);
    870 
    871         //jmp ...
    872         OpBuffer[obp++]=(char)0xE9;
    873         if(i==-1){
    874             pGotoLabelSchedule=(GOTOLABELSCHEDULE *)HeapReAlloc(hHeap,0,pGotoLabelSchedule,(GotoLabelScheduleNum+1)*sizeof(GOTOLABELSCHEDULE));
    875             pGotoLabelSchedule[GotoLabelScheduleNum].pName=0;
    876             pGotoLabelSchedule[GotoLabelScheduleNum].line=LineNum;
    877             pGotoLabelSchedule[GotoLabelScheduleNum].pos=obp;
    878             pGotoLabelSchedule[GotoLabelScheduleNum].now_cp=cp;
    879             GotoLabelScheduleNum++;
    880         }
    881         *((long *)(OpBuffer+obp))=i-(obp+sizeof(long));
    882         obp+=sizeof(long);
    883     }
    884 
    885     *((long *)(OpBuffer+schedule2))=obp-schedule;
    886 
    887     //※スタックフレームを元に戻す
    888     pobj_sf->pop(REG_NON);
    889 
    890810    SetError(-1,"Gosub ～ Returnステートメントは64ビットコンパイラで利用することはできません。",cp);
    891811}

  • trunk/abdev/BasicCompiler64/Compile_Var.cpp

    r243 r254  
    44#include <jenga/include/smoothie/LexicalAnalysis.h>
    55
    6 #include <LexicalScopingImpl.h>
    76#include <CodeGenerator.h>
    87#include <Compiler.h>
    … …  
    989988
    990989        //mov qword ptr[rsp+offset],rax
    991         compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_RAX,REG_RSP,offset,MOD_BASE_DISP32);
    992         obp-=sizeof(long);
    993         AddLocalVarAddrSchedule();
    994         obp+=sizeof(long);
     990        compiler.codeGenerator.localVarPertialSchedules.push_back(
     991            compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_RAX,REG_RSP,offset,MOD_BASE_DISP32, Schedule::None, true )
     992        );
    995993    }
    996994    else if( type.IsSingle() ){
    … …  
    999997
    1000998        //mov dword ptr[rsp+offset],value
    1001         compiler.codeGenerator.op_mov_MV(sizeof(long),REG_RSP,offset, Schedule::LocalVar, USE_OFFSET,*(int *)&flt);
     999        compiler.codeGenerator.localVarPertialSchedules.push_back(
     1000            compiler.codeGenerator.op_mov_MV(sizeof(long),REG_RSP,offset, Schedule::None, true, USE_OFFSET,*(int *)&flt)
     1001        );
    10021002    }
    10031003    else if( type.Is64() || type.IsPointer() ){
    … …  
    10141014
    10151015            //mov qword ptr[rsp+offset],rax
    1016             compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_RAX,REG_RSP,offset,MOD_BASE_DISP32, Schedule::LocalVar );
     1016            compiler.codeGenerator.localVarPertialSchedules.push_back(
     1017                compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_RAX,REG_RSP,offset,MOD_BASE_DISP32, Schedule::None, true )
     1018            );
    10171019        }
    10181020        else{
    … …  
    10221024
    10231025                //mov qword ptr[rsp+offset],rax
    1024                 compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_RAX,REG_RSP,offset,MOD_BASE_DISP32, Schedule::LocalVar );
     1026                compiler.codeGenerator.localVarPertialSchedules.push_back(
     1027                    compiler.codeGenerator.op_mov_MR(sizeof(_int64),REG_RAX,REG_RSP,offset,MOD_BASE_DISP32, Schedule::None, true )
     1028                );
    10251029            }
    10261030            else{
    10271031                //mov qword ptr[rsp+offset],value
    1028                 compiler.codeGenerator.op_mov_MV(sizeof(_int64),REG_RSP,offset, Schedule::LocalVar, USE_OFFSET,(int)i64data);
     1032                compiler.codeGenerator.localVarPertialSchedules.push_back(
     1033                    compiler.codeGenerator.op_mov_MV(sizeof(_int64),REG_RSP,offset, Schedule::None, true, USE_OFFSET,(int)i64data)
     1034                );
    10291035            }
    10301036        }
    … …  
    10321038    else if( type.IsDWord() || type.IsLong() ){
    10331039        //mov dword ptr[rsp+offset],value
    1034         compiler.codeGenerator.op_mov_MV(sizeof(long),REG_RSP,offset, Schedule::LocalVar,USE_OFFSET,(int)i64data);
     1040        compiler.codeGenerator.localVarPertialSchedules.push_back(
     1041            compiler.codeGenerator.op_mov_MV(sizeof(long),REG_RSP,offset, Schedule::None, true, USE_OFFSET,(int)i64data)
     1042        );
    10351043    }
    10361044    else if( type.IsWord() || type.IsInteger() ){
    10371045        //mov word ptr[rsp+offset],value
    1038         compiler.codeGenerator.op_mov_MV(sizeof(short),REG_RSP,offset, Schedule::LocalVar,USE_OFFSET,(int)i64data);
     1046        compiler.codeGenerator.localVarPertialSchedules.push_back(
     1047            compiler.codeGenerator.op_mov_MV(sizeof(short),REG_RSP,offset, Schedule::None, true, USE_OFFSET,(int)i64data)
     1048        );
    10391049    }
    10401050    else if( type.IsSByte() || type.IsByte() || type.IsBoolean() ){
    10411051        //mov byte ptr[rsp+offset],value
    1042         compiler.codeGenerator.op_mov_MV(sizeof(char),REG_RSP,offset, Schedule::LocalVar,USE_OFFSET,(int)i64data);
     1052        compiler.codeGenerator.localVarPertialSchedules.push_back(
     1053            compiler.codeGenerator.op_mov_MV(sizeof(char),REG_RSP,offset, Schedule::None, true, USE_OFFSET,(int)i64data)
     1054        );
    10431055    }
    10441056    return true;
    … …  
    10741086
    10751087        //レキシカルスコープ
    1076         pVar->SetScopeLevel( GetLexicalScopes().GetNowLevel() );
    1077         pVar->SetScopeStartAddress( GetLexicalScopes().GetStartAddress() );
     1088        pVar->SetScopeLevel( compiler.codeGenerator.lexicalScopes.GetNowLevel() );
     1089        pVar->SetScopeStartAddress( compiler.codeGenerator.lexicalScopes.GetStartAddress() );
    10781090        pVar->bLiving=TRUE;
    10791091
    … …  
    11091121
    11101122        //レキシカルスコープ
    1111         pVar->SetScopeLevel( GetLexicalScopes().GetNowLevel() );
    1112         pVar->SetScopeStartAddress( GetLexicalScopes().GetStartAddress() );
     1123        pVar->SetScopeLevel( compiler.codeGenerator.lexicalScopes.GetNowLevel() );
     1124        pVar->SetScopeStartAddress( compiler.codeGenerator.lexicalScopes.GetStartAddress() );
    11131125        pVar->bLiving=TRUE;
    11141126
    … …  
    11511163
    11521164            //add rcx, offset
    1153             compiler.codeGenerator.op_add_RV( REG_RCX, -pVar->GetOffsetAddress() );
    1154             obp-=sizeof(long);
    1155             AddLocalVarAddrSchedule();
    1156             obp+=sizeof(long);
     1165            compiler.codeGenerator.localVarPertialSchedules.push_back(
     1166                compiler.codeGenerator.op_add_RV( REG_RCX, -pVar->GetOffsetAddress(), Schedule::None, true )
     1167            );
    11571168
    11581169            //call FillMemory
    … …  
    12171228        if(pRelativeVar->bOffsetOffset){
    12181229            //add r11,offset
    1219             compiler.codeGenerator.op_add_RV( REG_R11, (long)pRelativeVar->offset, Schedule::LocalVar );
     1230            compiler.codeGenerator.localVarPertialSchedules.push_back(
     1231                compiler.codeGenerator.op_add_RV( REG_R11, (long)pRelativeVar->offset, Schedule::None, true )
     1232            );
    12201233
    12211234            //add r11,rsp
    … …  
    12301243
    12311244            //add reg,offset
    1232             compiler.codeGenerator.op_add_RV(reg,(long)pRelativeVar->offset, Schedule::LocalVar );
     1245            compiler.codeGenerator.localVarPertialSchedules.push_back(
     1246                compiler.codeGenerator.op_add_RV(reg,(long)pRelativeVar->offset, Schedule::None, true )
     1247            );
    12331248        }
    12341249    }
    … …  
    12361251        if(pRelativeVar->bOffsetOffset){
    12371252            //add r11,qword ptr[rsp+offset]
    1238             compiler.codeGenerator.op_add_RM( sizeof(_int64), REG_R11, REG_RSP, (long)pRelativeVar->offset, MOD_BASE_DISP32, Schedule::LocalVar );
     1253            compiler.codeGenerator.localVarPertialSchedules.push_back(
     1254                compiler.codeGenerator.op_add_RM( sizeof(_int64), REG_R11, REG_RSP, (long)pRelativeVar->offset, MOD_BASE_DISP32, Schedule::None, true )
     1255            );
    12391256        }
    12401257        else{
    12411258            //mov r11,qword ptr[rsp+offset]
    1242             compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelativeVar->offset,MOD_BASE_DISP32, Schedule::LocalVar );
     1259            compiler.codeGenerator.localVarPertialSchedules.push_back(
     1260                compiler.codeGenerator.op_mov_RM(sizeof(_int64),REG_R11,REG_RSP,(int)pRelativeVar->offset,MOD_BASE_DISP32, Schedule::None, true )
     1261            );
    12431262        }
    12441263

  • trunk/abdev/BasicCompiler64/MakePeHdr.cpp

    r242 r254  
    55#include <jenga/include/smoothie/Smoothie.h>
    66
    7 #include <LexicalScopingImpl.h>
    87#include <Class.h>
    98#include <Compiler.h>
    … …  
    334333
    335334    //レキシカルスコープ情報を初期化
    336     GetLexicalScopes().Init(obp);
     335    compiler.codeGenerator.lexicalScopes.Init(obp);
    337336
    338337
    … …  
    369368
    370369        //Gotoラベルスケジュール
    371         extern GOTOLABELSCHEDULE *pGotoLabelSchedule;
    372         extern int GotoLabelScheduleNum;
    373         pGotoLabelSchedule=(GOTOLABELSCHEDULE *)HeapAlloc(hHeap,0,1);
    374         GotoLabelScheduleNum=0;
     370        compiler.codeGenerator.gotoLabelSchedules.clear();
    375371
    376372        //With情報のメモリを確保
    … …  
    424420        HeapDefaultFree(pLabelNames);
    425421
    426         //Goto未知ラベルスケジュールを解放
    427         for(i=0;i<GotoLabelScheduleNum;i++){
    428             if(pGotoLabelSchedule[i].pName){
    429                 SetError(6,pGotoLabelSchedule[i].pName,pGotoLabelSchedule[i].now_cp);
    430                 HeapDefaultFree(pGotoLabelSchedule[i].pName);
     422        //Goto未知ラベルスケジュールが存在したらエラーにする
     423        BOOST_FOREACH( const GotoLabelSchedule *pGotoLabelSchedule, compiler.codeGenerator.gotoLabelSchedules )
     424        {
     425            if(pGotoLabelSchedule->GetName().size()>0){
     426                SetError(6,pGotoLabelSchedule->GetName(),pGotoLabelSchedule->GetSourceCodePos());
    431427            }
    432428            else{
    433                 sprintf(temporary,"%d",pGotoLabelSchedule[i].line);
    434                 SetError(6,temporary,pGotoLabelSchedule[i].now_cp);
     429                sprintf(temporary,"%d",pGotoLabelSchedule->GetLineNum());
     430                SetError(6,temporary,pGotoLabelSchedule->GetSourceCodePos());
    435431            }
    436432        }
    437         HeapDefaultFree(pGotoLabelSchedule);
    438433
    439434

  • trunk/abdev/BasicCompiler64/NumOpe.cpp

    r242 r254  
    533533    }
    534534
    535     if(expression[0]==1&& expression[1]==ESC_NEW ){
    536         //New演算子（オブジェクト生成）
    537 
    538         if( pobj_BlockReg->check(REG_RAX) ){
    539             SetError();
    540         }
    541 
    542         //////////////////////////////////////////////////////
    543         /////    レジスタ資源のバックアップ
    544         {   BACKUP_REGISTER_RESOURCE
    545         //////////////////////////////////////////////////////
    546 
    547             if( !Operator_New( expression+2, baseType, resultType ) ){
    548                 return false;
    549             }
    550 
    551         /////////////////////////////////////////////
    552         //////   レジスタ資源を復元
    553             RESTORE_REGISTER_RESOURCE
    554         }////////////////////////////////////////////
    555 
    556         //mov reg,rax
    557         compiler.codeGenerator.op_mov_RR( *pReg, REG_RAX );
    558 
    559         return true;
    560     }
    561 
    562535    if( !baseType.IsNull() && expression[0] == '[' ){
    563536        // リテラル配列の場合
    … …  
    608581
    609582        resultType = baseType;
     583
     584        return true;
     585    }
     586
     587    bool isLiteralCalculation;
     588    if( !NumOpe_GetType( expression, baseType, resultType, &isLiteralCalculation ) )
     589    {
     590        return false;
     591    }
     592    if( isLiteralCalculation )
     593    {
     594        //右辺値が数値の定数式の場合
     595        _int64 i64data;
     596        StaticCalculation(true, expression,baseType.GetBasicType(),&i64data,resultType);
     597
     598        if(resultType.IsReal()){
     599            if(baseType.IsReal()) resultType=baseType;
     600
     601            int xmmReg = REG_XMM0;
     602
     603            if(resultType.IsDouble()){
     604                i3 = compiler.GetDataTable().Add( i64data );
     605
     606                //movlpd xmm_reg,qword ptr[data table offset]
     607                compiler.codeGenerator.op_movlpd_RM( xmmReg, 0, i3, MOD_DISP32, Schedule::DataTable );
     608            }
     609            if(resultType.IsSingle()){
     610                double dbl;
     611                memcpy(&dbl,&i64data,sizeof(_int64));
     612
     613                float flt;
     614                int i32data;
     615                flt=(float)dbl;
     616                memcpy(&i32data,&flt,sizeof(long));
     617
     618                i3 = compiler.GetDataTable().Add( i32data );
     619
     620                //movss xmm_reg,dword ptr[data table offset]
     621                compiler.codeGenerator.op_movss_RM( xmmReg, 0, i3, MOD_DISP32, Schedule::DataTable );
     622            }
     623        }
     624        else{
     625            if(!resultType.Is64()){
     626                //整数（符号有り/無し）
     627
     628                i3=(long)i64data;
     629
     630                if(resultType.GetBasicSize()==sizeof(char)) i3=i3&0x000000FF;
     631                if(resultType.GetBasicSize()==sizeof(short)) i3=i3&0x0000FFFF;
     632
     633                i64data=(_int64)i3;
     634            }
     635
     636            //mov reg,i64data
     637            compiler.codeGenerator.op_mov_RV64(*pReg,i64data);
     638        }
     639        return true;
     640    }
     641
     642    if(expression[0]==1&& expression[1]==ESC_NEW ){
     643        //New演算子（オブジェクト生成）
     644
     645        if( pobj_BlockReg->check(REG_RAX) ){
     646            SetError();
     647        }
     648
     649        //////////////////////////////////////////////////////
     650        /////    レジスタ資源のバックアップ
     651        {   BACKUP_REGISTER_RESOURCE
     652        //////////////////////////////////////////////////////
     653
     654            if( !Operator_New( expression+2, baseType, resultType ) ){
     655                return false;
     656            }
     657
     658        /////////////////////////////////////////////
     659        //////   レジスタ資源を復元
     660            RESTORE_REGISTER_RESOURCE
     661        }////////////////////////////////////////////
     662
     663        //mov reg,rax
     664        compiler.codeGenerator.op_mov_RR( *pReg, REG_RAX );
    610665
    611666        return true;

  • trunk/abdev/BasicCompiler64/Opcode.h

    r226 r254  
    2727    int line;
    2828    DWORD address;
    29 };
    30 
    31 //Goto未知ラベル
    32 struct GOTOLABELSCHEDULE{
    33     char *pName;
    34     int line;
    35     DWORD pos;
    36     DWORD now_cp;
    3729};
    3830
    … …  
    339331
    340332//Compile_CallProc.cpp
    341 void AddLocalVarAddrSchedule();
    342333#define PROCFLAG_NEW    1
    343334bool Opcode_CallProcPtr(const char *variable, const char *lpszParms,ProcPointer *pProcPointer);
Note: See TracChangeset for help on using the changeset viewer.