source: dev/trunk/abdev/BasicCompiler32/Compile_ProcOp.cpp@ 244

#include "stdafx.h"

#include <jenga/include/smoothie/Smoothie.h>
#include <jenga/include/smoothie/LexicalAnalysis.h>

#include <Program.h>
#include <Compiler.h>
#include <LexicalScopingImpl.h>
#include <Class.h>
#include <Variable.h>
#include <NamespaceSupporter.h>

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


void SystemProc( const UserProc &userProc ){
    if( userProc.GetName() == "_System_GetEip" ){
        //mov eax,dword ptr[esp]
        compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EAX, REG_ESP, 0, MOD_BASE );

        //ret
        compiler.codeGenerator.op_ret();
    }
    else if( userProc.GetName() == "_System_InitDllGlobalVariables" ){
        ////////////////////////////////////////
        // DLLのグローバル領域をコンパイル
        ////////////////////////////////////////

        extern BOOL bDll;
        if(!bDll){
            //ret
            compiler.codeGenerator.op_ret();

            return;
        }

        const UserProc *pBackUserProc;
        pBackUserProc = &UserProc::CompilingUserProc();
        UserProc::CompileStartForGlobalArea();

        int BackCp;
        BackCp=cp;
        cp=-1;

        extern BOOL bDebugCompile;
        if(bDebugCompile){
            //デバッグ用の変数を定義
            DebugVariable();
        }

        //GC用の変数を定義
        InitGCVariables();

        //_System_StartupProgramの呼び出し
        extern const UserProc *pSub_System_StartupProgram;
        compiler.codeGenerator.op_call(pSub_System_StartupProgram);

        //クラスに属する静的メンバを定義
        compiler.GetMeta().GetClasses().InitStaticMember();

        GetGlobalDataForDll();

        UserProc::CompileStartForUserProc( pBackUserProc );
        cp=BackCp;

        //ret
        compiler.codeGenerator.op_ret();
    }
    else if( userProc.GetName() == "_System_InitStaticLocalVariables" ){
        //静的ローカルオブジェクトのコンストラクタ呼び出し

        BOOST_FOREACH( Variable *pVar, compiler.GetMeta().GetGlobalVars() ){
            if(memicmp(pVar->GetName().c_str(),"Static%",7)==0){
                //コンストラクタ呼び出し
                if( pVar->GetType().IsObject() ){

                    //エラー用
                    cp=pVar->source_code_address;

                    CallConstructor(
                        pVar->GetName().c_str(),
                        pVar->GetSubscripts(),
                        pVar->GetType(),
                        pVar->GetParamStrForConstructor().c_str());
                }
            }
        }

        //ret
        compiler.codeGenerator.op_ret();
    }
    else if( userProc.GetName() == "_System_Call_Destructor_of_GlobalObject" ){

        const UserProc *pBackUserProc;
        pBackUserProc = &UserProc::CompilingUserProc();
        UserProc::CompileStartForGlobalArea();

        GetLexicalScopes().CallDestructorsOfScopeEnd();

        UserProc::CompileStartForUserProc( pBackUserProc );


        //ret
        compiler.codeGenerator.op_ret();
    }
    else if( userProc.GetName() == "_System_GetSp" ){
        //mov eax,esp
        compiler.codeGenerator.op_mov_RR(REG_EAX,REG_ESP);

        //add eax,PTR_SIZE
        compiler.codeGenerator.op_add_RV8(REG_EAX,PTR_SIZE);

        //ret
        compiler.codeGenerator.op_ret();
    }
    else if( userProc.GetName() == "_allrem" ){
        //乗除演算用の特殊関数（64ビット整数対応）
        BYTE Buffer_allrem[]={
            0x53,0x57,0x33,0xFF,0x8B,0x44,0x24,0x10,0x0B,0xC0,0x7D,0x14,0x47,0x8B,0x54,0x24,0x0C,0xF7,0xD8,0xF7,0xDA,0x83,0xD8,0x00,0x89,0x44,0x24,0x10,0x89,0x54,0x24,0x0C,0x8B,0x44,0x24,0x18,0x0B,0xC0,0x7D,0x13,0x8B,0x54,0x24,0x14,0xF7,0xD8,0xF7,0xDA,0x83,0xD8,0x00,0x89,0x44,0x24,0x18,0x89,0x54,0x24,0x14,0x0B,0xC0,0x75,0x1B,0x8B,0x4C,0x24,0x14,0x8B,0x44,0x24,0x10,0x33,0xD2,0xF7,0xF1,0x8B,0x44,0x24,0x0C,0xF7,0xF1,0x8B,0xC2,0x33,0xD2,0x4F,0x79,0x4E,0xEB,0x53,0x8B,0xD8,0x8B,0x4C,0x24,0x14,0x8B,0x54,0x24,0x10,0x8B,0x44,0x24,0x0C,0xD1,0xEB,0xD1,0xD9,0xD1,0xEA,0xD1,0xD8,0x0B,0xDB,0x75,0xF4,0xF7,0xF1,0x8B,0xC8,0xF7,0x64,0x24,0x18,0x91,0xF7,0x64,0x24,0x14,0x03,0xD1,0x72,0x0E,0x3B,0x54,0x24,0x10,0x77,0x08,0x72,0x0E,0x3B,0x44,0x24,0x0C,0x76,0x08,0x2B,0x44,0x24,0x14,0x1B,0x54,0x24,0x18,0x2B,0x44,0x24,0x0C,0x1B,0x54,0x24,0x10,0x4F,0x79,0x07,0xF7,0xDA,0xF7,0xD8,0x83,0xDA,0x00,0x5F,0x5B,0xC2,0x10,0x00
        };

        memcpy(OpBuffer+obp,Buffer_allrem,178);
        obp+=178;
    }
    else if( userProc.GetName() == "_aullrem" ){
        //乗除演算用の特殊関数（64ビット整数対応）
        BYTE Buffer_aullrem[]={
            0x53,0x8B,0x44,0x24,0x14,0x0B,0xC0,0x75,0x18,0x8B,0x4C,0x24,0x10,0x8B,
            0x44,0x24,0x0C,0x33,0xD2,0xF7,0xF1,0x8B,0x44,0x24,0x08,0xF7,0xF1,0x8B,
            0xC2,0x33,0xD2,0xEB,0x50,0x8B,0xC8,0x8B,0x5C,0x24,0x10,0x8B,0x54,0x24,
            0x0C,0x8B,0x44,0x24,0x08,0xD1,0xE9,0xD1,0xDB,0xD1,0xEA,0xD1,0xD8,0x0B,
            0xC9,0x75,0xF4,0xF7,0xF3,0x8B,0xC8,0xF7,0x64,0x24,0x14,0x91,0xF7,0x64,
            0x24,0x10,0x03,0xD1,0x72,0x0E,0x3B,0x54,0x24,0x0C,0x77,0x08,0x72,0x0E,
            0x3B,0x44,0x24,0x08,0x76,0x08,0x2B,0x44,0x24,0x10,0x1B,0x54,0x24,0x14,
            0x2B,0x44,0x24,0x08,0x1B,0x54,0x24,0x0C,0xF7,0xDA,0xF7,0xD8,0x83,0xDA,
            0x00,0x5B,0xC2,0x10,0x00
        };

        memcpy(OpBuffer+obp,Buffer_aullrem,117);
        obp+=117;
    }
    else if( userProc.GetName() == "_allmul" ){
        //乗算用の特殊関数（64ビット整数対応）
        BYTE Buffer_allmul[]={
            0x8B,0x44,0x24,0x08,0x8B,0x4C,0x24,0x10,0x0B,0xC8,0x8B,0x4C,0x24,0x0C,0x75,0x09,0x8B,0x44,0x24,0x04,0xF7,0xE1,0xC2,0x10,0x00,0x53,0xF7,0xE1,0x8B,0xD8,0x8B,0x44,0x24,0x08,0xF7,0x64,0x24,0x14,0x03,0xD8,0x8B,0x44,0x24,0x08,0xF7,0xE1,0x03,0xD3,0x5B,0xC2,0x10,0x00
        };

        memcpy(OpBuffer+obp,Buffer_allmul,52);
        obp+=52;
    }
    else if( userProc.GetName() == "_alldiv" ){
        //除算用の特殊関数（64ビット整数対応）
        BYTE Buffer_alldiv[]={
            0x57,0x56,0x53,0x33,0xFF,0x8B,0x44,0x24,0x14,0x0B,0xC0,0x7D,0x14,0x47,0x8B,0x54,0x24,0x10,0xF7,0xD8,0xF7,0xDA,0x83,0xD8,0x00,0x89,0x44,0x24,0x14,0x89,0x54,0x24,0x10,0x8B,0x44,0x24,0x1C,0x0B,0xC0,0x7D,0x14,0x47,0x8B,0x54,0x24,0x18,0xF7,0xD8,0xF7,0xDA,0x83,0xD8,0x00,0x89,0x44,0x24,0x1C,0x89,0x54,0x24,0x18,0x0B,0xC0,0x75,0x18,0x8B,0x4C,0x24,0x18,0x8B,0x44,0x24,0x14,0x33,0xD2,0xF7,0xF1,0x8B,0xD8,0x8B,0x44,0x24,0x10,0xF7,0xF1,0x8B,0xD3,0xEB,0x41,0x8B,0xD8,0x8B,0x4C,0x24,0x18,0x8B,0x54,0x24,0x14,0x8B,0x44,0x24,0x10,0xD1,0xEB,0xD1,0xD9,0xD1,0xEA,0xD1,0xD8,0x0B,0xDB,0x75,0xF4,0xF7,0xF1,0x8B,0xF0,0xF7,0x64,0x24,0x1C,0x8B,0xC8,0x8B,0x44,0x24,0x18,0xF7,0xE6,0x03,0xD1,0x72,0x0E,0x3B,0x54,0x24,0x14,0x77,0x08,0x72,0x07,0x3B,0x44,0x24,0x10,0x76,0x01,0x4E,0x33,0xD2,0x8B,0xC6,0x4F,0x75,0x07,0xF7,0xDA,0xF7,0xD8,0x83,0xDA,0x00,0x5B,0x5E,0x5F,0xC2,0x10,0x00
        };

        memcpy(OpBuffer+obp,Buffer_alldiv,170);
        obp+=170;
    }
    else if( userProc.GetName() == "_aulldiv" ){
        //整数除算用の特殊関数（64ビット整数対応）
        BYTE Buffer_aulldiv[]={
            0x53,0x56,0x8B,0x44,0x24,0x18,0x0B,0xC0,0x75,0x18,0x8B,0x4C,0x24,0x14,
            0x8B,0x44,0x24,0x10,0x33,0xD2,0xF7,0xF1,0x8B,0xD8,0x8B,0x44,0x24,0x0C,
            0xF7,0xF1,0x8B,0xD3,0xEB,0x41,0x8B,0xC8,0x8B,0x5C,0x24,0x14,0x8B,0x54,
            0x24,0x10,0x8B,0x44,0x24,0x0C,0xD1,0xE9,0xD1,0xDB,0xD1,0xEA,0xD1,0xD8,
            0x0B,0xC9,0x75,0xF4,0xF7,0xF3,0x8B,0xF0,0xF7,0x64,0x24,0x18,0x8B,0xC8,
            0x8B,0x44,0x24,0x14,0xF7,0xE6,0x03,0xD1,0x72,0x0E,0x3B,0x54,0x24,0x10,
            0x77,0x08,0x72,0x07,0x3B,0x44,0x24,0x0C,0x76,0x01,0x4E,0x33,0xD2,0x8B,
            0xC6,0x5E,0x5B,0xC2,0x10,0x00
        };

        memcpy(OpBuffer+obp,Buffer_aulldiv,104);
        obp+=104;
    }
    else if( userProc.GetName() == "_allshl" ){
        //符号あり左ビットシフト用の特殊関数（64ビット整数対応）
        BYTE Buffer_allshl[]={
            0x80,0xF9,0x40,0x73,0x15,0x80,0xF9,0x20,0x73,0x06,0x0F,0xA5,0xC2,0xD3,0xE0,0xC3,0x8B,0xD0,0x33,0xC0,0x80,0xE1,0x1F,0xD3,0xE2,0xC3,0x33,0xC0,0x33,0xD2,0xC3
        };

        memcpy(OpBuffer+obp,Buffer_allshl,31);
        obp+=31;
    }
    else if( userProc.GetName() == "_allshr" ){
        //符号あり右ビットシフト用の特殊関数（64ビット整数対応）
        BYTE Buffer_allshr[]={
            0x80,0xF9,0x40,0x73,0x16,0x80,0xF9,0x20,0x73,0x06,0x0F,0xAD,0xD0,0xD3,0xFA,0xC3,0x8B,0xC2,0xC1,0xFA,0x1F,0x80,0xE1,0x1F,0xD3,0xF8,0xC3,0xC1,0xFA,0x1F,0x8B,0xC2,0xC3
        };

        memcpy(OpBuffer+obp,Buffer_allshr,33);
        obp+=33;
    }
    else if( userProc.GetName() == "_aullshr" ){
        //符号なし右ビットシフト用の特殊関数（64ビット整数対応）
        BYTE Buffer_aullshr[]={
            0x80,0xF9,0x40,         //cmp         cl,40h
            0x73,0x15,              //jae         RETZERO (0040d71a)
            0x80,0xF9,0x20,         //cmp         cl,20h
            0x73,0x06,              //jae         MORE32 (0040d710)
            0x0F,0xAD,0xD0,         //shrd        eax,edx,cl
            0xD3,0xEA,              //shr         edx,cl
            0xC3,                   //ret
            //MORE32:
            0x8B,0xC2,              //mov         eax,edx
            0x33,0xD2,              //xor         edx,edx
            0x80,0xE1,0x1F,         //and         cl,1Fh
            0xD3,0xE8,              //shr         eax,cl
            0xC3,                   //ret
            //RETZERO:
            0x33,0xC0,              //xor         eax,eax
            0x33,0xD2,              //xor         edx,edx
            0xC3                    //ret
        };

        memcpy(OpBuffer+obp,Buffer_aullshr,31);
        obp+=31;
    }
    else{
        SetError();
    }
}
void AutoGeneration( const UserProc &userProc){
    if( userProc.GetName() == "InitializeUserTypes"
        && userProc.HasParentClass()
        && userProc.GetParentClass().GetName() == "_System_TypeBase" ){

            compiler.GetMeta().GetClasses().Compile_System_InitializeUserTypes();
    }
    else if( userProc.GetName() == "RegisterGlobalRoots"
        && userProc.HasParentClass()
        && userProc.GetParentClass().GetName() == "_System_CGarbageCollection" ){

            Compile_AddGlobalRootsForGc();
    }
    else{
        SetError();
    }
}

void _compile_proc(const UserProc *pUserProc){
    extern char *basbuf;
    extern HANDLE hHeap;
    extern BOOL bDebugCompile;
    int i3,i4,LocalVarSchedule,EspOffsetSchedule,BaseOffset;
    char temporary[VN_SIZE];

    if( pUserProc->IsUsing() == false || pUserProc->IsCompiled() ) return;

    if( pUserProc->GetLocalVars().size() ){
        SetError();
        return;
    }

    trace_for_sourcecodestep( "★★★ " << pUserProc->GetFullName() << "のコンパイルを開始" );

    pUserProc->CompleteCompile();

    extern BOOL bSystemProc;
    if(memcmp(pUserProc->GetName().c_str(),"_System_",8)==0) bSystemProc=1;
    else bSystemProc=0;

    extern BOOL bDebugSupportProc;
    if(memcmp(pUserProc->GetName().c_str(),"_DebugSys_",10)==0){
        if(!bDebugCompile){
            return;
        }
        bDebugSupportProc=1;
    }
    else bDebugSupportProc=0;

    pUserProc->SetBeginOpAddress( obp );

    //コンパイル中の関数が属するクラス
    compiler.pCompilingClass=pUserProc->GetParentClassPtr();

    //コンパイルスタートをクラス管理クラスに追加
    compiler.GetMeta().GetClasses().StartCompile( pUserProc );

    //コンパイル中の関数
    UserProc::CompileStartForUserProc( pUserProc );

    // コンパイル中の関数が属する名前空間
    compiler.GetNamespaceSupporter().SetLivingNamespaceScopes( pUserProc->GetNamespaceScopes() );

    // コンパイル中の関数でImportsされている名前空間
    compiler.GetNamespaceSupporter().SetImportedNamespaces( pUserProc->GetImportedNamespaces() );

    // コード生成対象を選択
    compiler.codeGenerator.Select( (const_cast<UserProc *>(pUserProc))->GetNativeCode() );

    if(pUserProc->IsSystem()){
        ////////////////////
        // 特殊関数
        ////////////////////

        extern int AllLocalVarSize;
        AllLocalVarSize=0;

        SystemProc(*pUserProc);

        pUserProc->SetEndOpAddress( obp );
        return;
    }

    cp=pUserProc->GetCodePos();
    for(;;cp++){
        if(IsCommandDelimitation(basbuf[cp])) break;
    }
    cp--;

    //ローカル変数に関する情報
    extern int AllLocalVarSize;
    AllLocalVarSize=0;

    //ローカル変数アドレススケジュール
    extern DWORD *pLocalVarAddrSchedule;
    extern int LocalVarAddrScheduleNum;
    pLocalVarAddrSchedule=(DWORD *)HeapAlloc(hHeap,0,1);
    LocalVarAddrScheduleNum=0;

    //パラメータ用の変数データを考慮
    for(i3=(int)pUserProc->RealParams().size()-1;i3>=0;i3--){
        Parameter &param = *pUserProc->RealParams()[i3];

        Variable *pVar = new Variable( param.GetVarName(), param, false, param.IsRef(), "" );

        if( param.IsArray() ){
            pVar->SetArray( param.GetSubscripts() );
        }

        int varSize;
        if( param.IsRef() == false && param.IsStruct() ){
            //構造体のByValパラメータ
            pVar->ThisIsParameter();
            varSize=PTR_SIZE;
        }
        else{
            if( param.IsArray() == false ){
                varSize = pVar->GetMemorySize();
            }
            else{
                varSize=PTR_SIZE;
            }
        }
        AllLocalVarSize+=varSize;
        pVar->SetOffsetAddress( AllLocalVarSize );

        //レキシカルスコープ情報
        pVar->SetScopeLevel( GetLexicalScopes().GetNowLevel() );
        pVar->SetScopeStartAddress( GetLexicalScopes().GetStartAddress() );
        pVar->bLiving=TRUE;

        pUserProc->GetLocalVars().push_back( pVar );
    }

    //Thisポインタを示すローカルオフセット値をセット
    extern int LocalVar_ThisPtrOffset;
    LocalVar_ThisPtrOffset=AllLocalVarSize;

    BaseOffset=AllLocalVarSize;

    //ret用のアドレスを考慮
    AllLocalVarSize+=sizeof(long);


    ///////////////////////
    // ここからコード生成

    //sub esp,AllLocalVarSize（スケジュール）
    compiler.codeGenerator.op_sub_esp(0xFFFFFFFF);
    LocalVarSchedule=obp-sizeof(long);

    //push ebp
    compiler.codeGenerator.op_push(REG_EBP);

    //mov ebp,esp
    compiler.codeGenerator.op_mov_RR( REG_EBP, REG_ESP );

    //push ebx
    compiler.codeGenerator.op_push(REG_EBX);

    //push esi
    compiler.codeGenerator.op_push( REG_ESI );

    //push edi
    compiler.codeGenerator.op_push( REG_EDI );

    if( !pUserProc->ReturnType().IsNull() ){
        //戻り値が存在するとき

        const char *temp = pUserProc->GetName().c_str();
        if( temp[0]==1&&temp[1]==ESC_OPERATOR ){
            temp = "_System_ReturnValue";
        }

        if( pUserProc->ReturnType().IsStruct() ){
            //戻り値用の構造体（値型）はパラメータで引き渡される
        }
        else{
            if( pUserProc->ReturnType().IsObject() ){
                sprintf(temporary,"%s=Nothing%c%c%s",temp,1,ESC_AS, Compiler::TypeToString( pUserProc->ReturnType() ).c_str() );
            }
            else{
                //戻り値用の変数の定義
                sprintf(temporary,"%s%c%c%s",temp,1,ESC_AS, Compiler::TypeToString( pUserProc->ReturnType() ).c_str() );
            }

            OpcodeDim(temporary,0);
        }
    }

    //プロシージャ抜け出しスケジュール（Exit Sub/Function）
    extern DWORD *pExitSubSchedule;
    extern int ExitSubScheduleNum;
    pExitSubSchedule=(DWORD *)HeapAlloc(hHeap,0,1);
    ExitSubScheduleNum=0;

    //ラベル用のメモリを確保
    extern LABEL *pLabelNames;
    extern int MaxLabelNum;
    pLabelNames=(LABEL *)HeapAlloc(hHeap,0,1);
    MaxLabelNum=0;

    //Gotoラベルスケジュール
    extern GOTOLABELSCHEDULE *pGotoLabelSchedule;
    extern int GotoLabelScheduleNum;
    pGotoLabelSchedule=(GOTOLABELSCHEDULE *)HeapAlloc(hHeap,0,1);
    GotoLabelScheduleNum=0;

    //With情報のメモリを確保
    extern WITHINFO WithInfo;
    WithInfo.ppName=(char **)HeapAlloc(hHeap,0,1);
    WithInfo.pWithCp=(int *)HeapAlloc(hHeap,0,1);
    WithInfo.num=0;

    //重複エラー情報管理のメモリを確保
    extern char **SynonymErrorWords;
    extern int SynonymErrorNum;
    SynonymErrorNum=0;
    SynonymErrorWords=(char **)HeapAlloc(hHeap,0,1);

    //Continueアドレスを初期化
    compiler.codeGenerator.ClearContinueArea();

    if(bDebugCompile&&bDebugSupportProc==0){
        //push dword ptr[ebp+(AllLocalVarSize-BaseOffset)]（スケジュール）
        OpBuffer[obp++]=(char)0xFF;
        OpBuffer[obp++]=(char)0xB5;
        EspOffsetSchedule=obp;
        obp+=sizeof(long);  

        //push dword ptr[ebp]（以前のebp）
        compiler.codeGenerator.op_push_M( REG_EBP );

        //call _DebugSys_StartProc
        extern const UserProc *pSub_DebugSys_StartProc;
        compiler.codeGenerator.op_call(pSub_DebugSys_StartProc);
    }

    if(compiler.pCompilingClass){
        if( pUserProc->GetName() == compiler.pCompilingClass->GetName() ){
            ////////////////////////////////////
            // コンストラクタをコンパイルするとき
            ////////////////////////////////////

            //コンストラクタのコンパイル開始を通知
            compiler.pCompilingClass->NotifyStartConstructorCompile();

            //基底クラスかどうかの識別
            //（継承元がインターフェイスの場合も基底クラスと見なす）
            BOOL bThisIsSuperClass;
            if( !compiler.pCompilingClass->HasSuperClass() ) bThisIsSuperClass=1;
            else if( compiler.pCompilingClass->GetSuperClass().GetConstructorMethod() == NULL ){
                //インターフェイスを継承したときはコンストラクタを持たない
                bThisIsSuperClass=1;
            }
            else bThisIsSuperClass=0;

            if(!bThisIsSuperClass){
                /* サブクラスコンストラクタをコンパイルしているときは、
                    基底クラスのコンストラクタを呼び出す */

                i3=cp+1;
                while(IsCommandDelimitation(basbuf[i3])) i3++;
                for(i4=0;;i3++,i4++){
                    if(!IsVariableChar(basbuf[i3])){
                        temporary[i4]=0;
                        break;
                    }
                    temporary[i4]=basbuf[i3];
                }
                if( compiler.pCompilingClass->GetSuperClass().GetName() == temporary ){
                    //基底クラスのコンストラクタを呼び出す
                    cp=i3;
                    for(i4=0;;cp++,i4++){
                        if(IsCommandDelimitation(basbuf[cp])){
                            temporary[i4]=0;
                            break;
                        }
                        temporary[i4]=basbuf[cp];
                    }
                    if(!(temporary[0]=='('&&temporary[lstrlen(temporary)-1]==')')){
                        SetError(1,NULL,cp);
                    }
                    RemoveStringPare(temporary);

                    Type dummyType;
                    CallProc( PROC_DEFAULT
                        , &compiler.pCompilingClass->GetSuperClass().GetConstructorMethod()->GetUserProc()
                        , compiler.pCompilingClass->GetSuperClass().GetConstructorMethod()->GetUserProc().GetName().c_str()
                        , temporary
                        , dummyType );
                }
                else{
                    //基底クラスのコンストラクタを暗黙的に呼び出す
                    Opcode_CallProc("",
                        &compiler.pCompilingClass->GetSuperClass().GetConstructorMethod()->GetUserProc(),
                        0,
                        "",
                        0);
                }
            }

            //仮想関数テーブルを初期化
            if( compiler.pCompilingClass->IsExistVirtualFunctions()
                && !compiler.pCompilingClass->IsAbstract() ){
                    //関数テーブルに値をセット
                    int offset = (int)compiler.pCompilingClass->GetVtblGlobalOffset();

                    //mov eax,offset
                    compiler.codeGenerator.op_mov_RV( REG_EAX, offset, Schedule::DataTable );

                    //Thisポインタをecxにコピー
                    SetThisPtrToReg(REG_ECX);

                    //mov dword ptr[ecx],eax
                    compiler.codeGenerator.op_mov_MR( sizeof(long), REG_EAX, REG_ECX, 0, MOD_BASE );
            }
        }
        else if( pUserProc->IsDestructor() ){
            //デストラクタをコンパイルしたとき

            //デストラクタのコンパイル開始を通知
            compiler.pCompilingClass->NotifyStartDestructorCompile();
        }
    }

    //////////////////////////////////////////
    //////////////////////////////////////////
    ////// プロシージャ内をコンパイル ////////
    if( pUserProc->IsAutoGeneration() ){
        AutoGeneration( *pUserProc );
    }
    else{
        if(pUserProc->IsMacro()){
            CompileBuffer(ESC_ENDMACRO,0);
        }
        else{
            if(pUserProc->IsSub()){
                CompileBuffer(ESC_ENDSUB,0);
            }
            else if(pUserProc->IsFunction()){
                CompileBuffer(ESC_ENDFUNCTION,0);
            }
        }
    }
    //////////////////////////////////////////
    //////////////////////////////////////////

    if( compiler.pCompilingClass ){

        if( compiler.pCompilingClass->IsCompilingConstructor() ){
            // コンストラクタをコンパイルしていたとき

            // コンストラクタのコンパイルが完了したことを通知
            compiler.pCompilingClass->NotifyFinishConstructorCompile();
        }
        else if( pUserProc->IsDestructor() ){
            ////////////////////////////////////
            //デストラクタをコンパイルしたとき
            ////////////////////////////////////

            // デストラクタのコンパイルが完了したことを通知
            compiler.pCompilingClass->NotifyFinishDestructorCompile();

            if( compiler.pCompilingClass->HasSuperClass() ){
                /* サブクラスのデストラクタをコンパイルしているときは、
                    基底クラスのデストラクタを呼び出す */

                const CMethod *method = compiler.pCompilingClass->GetSuperClass().GetDestructorMethod();
                if( method ){
                    Opcode_CallProc("",
                        &method->GetUserProc(),
                        0,
                        "",
                        0);
                }
            }
        }
    }

    //ラベル用のメモリを解放
    for(i3=0;i3<MaxLabelNum;i3++){
        if(pLabelNames[i3].pName) HeapDefaultFree(pLabelNames[i3].pName);
    }
    HeapDefaultFree(pLabelNames);

    //Goto未知ラベルスケジュールを解放
    for(i3=0;i3<GotoLabelScheduleNum;i3++){
        if(pGotoLabelSchedule[i3].pName){
            SetError(6,pGotoLabelSchedule[i3].pName,pGotoLabelSchedule[i3].now_cp);
            HeapDefaultFree(pGotoLabelSchedule[i3].pName);
        }
        else{
            sprintf(temporary,"%d",pGotoLabelSchedule[i3].line);
            SetError(6,temporary,pGotoLabelSchedule[i3].now_cp);
        }
    }
    HeapDefaultFree(pGotoLabelSchedule);

    //With情報のメモリを解放
    for(i3=0;i3<WithInfo.num;i3++){
        SetError(22,"With",WithInfo.pWithCp[i3]);
        HeapDefaultFree(WithInfo.ppName[i3]);
    }
    HeapDefaultFree(WithInfo.ppName);
    HeapDefaultFree(WithInfo.pWithCp);

    //push ebp
    AllLocalVarSize+=sizeof(long);

    //ローカルオブジェクトの解放処理
    GetLexicalScopes().CallDestructorsOfScopeEnd();

    //プロシージャ抜け出しスケジュール（Exit Sub/Function）
    for(i3=0;i3<ExitSubScheduleNum;i3++){
        *((long *)(OpBuffer+pExitSubSchedule[i3]))=obp-(pExitSubSchedule[i3]+sizeof(long));
    }
    HeapDefaultFree(pExitSubSchedule);

    if(bDebugCompile&&bDebugSupportProc==0){
        *((long *)(OpBuffer+EspOffsetSchedule))=AllLocalVarSize-BaseOffset-sizeof(long);

        //call _DebugSys_EndProc
        extern const UserProc *pSub_DebugSys_EndProc;
        compiler.codeGenerator.op_call(pSub_DebugSys_EndProc);
    }

    if( !pUserProc->ReturnType().IsNull() ){
        //戻り値をeax、edxに設定
        RELATIVE_VAR RelativeVar;

        const char *temp = pUserProc->GetName().c_str();
        if( temp[0]==1 && temp[1]==ESC_OPERATOR ){
            temp="_System_ReturnValue";
        }
        GetVarOffsetReadWrite(temp,&RelativeVar,Type());

        i3=pUserProc->ReturnType().GetBasicType();

        if(i3==DEF_OBJECT || i3==DEF_STRUCT){
            SetVarPtrToEax(&RelativeVar);
            if( i3==DEF_OBJECT ){
                //mov eax,dword ptr[eax]
                compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EAX, REG_EAX, 0, MOD_BASE );
            }
        }
        else if( i3==DEF_DOUBLE
            || i3 == DEF_SINGLE )
        {
            //fld qword ptr[ebp+offset]
            compiler.codeGenerator.op_fld_base_offset( i3, REG_EBP, RelativeVar.offset, Schedule::LocalVar );
        }
        else if(i3==DEF_INT64||i3==DEF_QWORD){
            //mov eax,dword ptr[ebp+offset]
            compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EAX, REG_EBP, RelativeVar.offset, MOD_BASE_DISP32, Schedule::LocalVar );

            //mov edx,dword ptr[ebp+offset+sizeof(long)]
            compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EDX, REG_EBP, RelativeVar.offset+sizeof(long), MOD_BASE_DISP32, Schedule::LocalVar );
        }
        else if(i3==DEF_LONG||i3==DEF_DWORD||
            IsPtrType(i3)){
            //mov eax,dword ptr[ebp+offset]
            compiler.codeGenerator.op_mov_RM( sizeof(long), REG_EAX, REG_EBP, RelativeVar.offset, MOD_BASE_DISP32, Schedule::LocalVar );
        }
        else if(i3==DEF_INTEGER||i3==DEF_WORD || (Smoothie::IsUnicode()&&i3==DEF_CHAR)){
            //xor eax,eax（eaxを0に初期化する）
            compiler.codeGenerator.op_zero_reg(REG_EAX);

            //mov ax,word ptr[ebp+offset]
            compiler.codeGenerator.op_mov_RM( sizeof(short), REG_EAX, REG_EBP, RelativeVar.offset, MOD_BASE_DISP32, Schedule::LocalVar );
        }
        else if(i3==DEF_SBYTE||i3==DEF_BYTE||i3==DEF_BOOLEAN || (Smoothie::IsUnicode()==false&&i3==DEF_CHAR)){
            //xor eax,eax（eaxを0に初期化する）
            compiler.codeGenerator.op_zero_reg(REG_EAX);

            //mov al,byte ptr[ebp+offset]
            compiler.codeGenerator.op_mov_RM( sizeof(char), REG_EAX, REG_EBP, RelativeVar.offset, MOD_BASE_DISP32, Schedule::LocalVar );
        }
    }

    //ローカル変数アドレススケジュール
    for(i3=0;i3<LocalVarAddrScheduleNum;i3++){
        *((long *)(OpBuffer+pLocalVarAddrSchedule[i3]))+=AllLocalVarSize;
    }
    HeapDefaultFree(pLocalVarAddrSchedule);
    BOOST_FOREACH( Variable *pVar, pUserProc->GetLocalVars() ){
        //後にデバッグで利用する
        pVar->SetOffsetAddress( AllLocalVarSize - pVar->GetOffsetAddress() );
    }

    //push ebp、ret用のアドレスを考慮
    AllLocalVarSize-=sizeof(long)*2;

    //ローカル変数用メモリを確保するためのスケジュール（subコマンド）
    *((long *)(OpBuffer+LocalVarSchedule))=AllLocalVarSize-BaseOffset;

    //pop edi
    compiler.codeGenerator.op_pop( REG_EDI );

    //pop esi
    compiler.codeGenerator.op_pop( REG_ESI );

    //pop ebx
    compiler.codeGenerator.op_pop(REG_EBX);

    if(bDebugCompile){
        //cmp esp,ebp
        compiler.codeGenerator.op_cmp_RR( REG_ESP, REG_EBP );

        //je 6（次のcallとbreakpointを飛び越す）
        compiler.codeGenerator.op_je( 6 );

        //call _esp_error
        extern const UserProc *pSub_esp_error;
        compiler.codeGenerator.op_call( pSub_esp_error );

        breakpoint;
    }

    //mov esp,ebp
    compiler.codeGenerator.op_mov_RR( REG_ESP, REG_EBP );

    //pop ebp
    compiler.codeGenerator.op_pop(REG_EBP);

    //add esp AllLocalVarSize
    compiler.codeGenerator.op_add_esp(AllLocalVarSize-BaseOffset);

    if( BaseOffset==0 || pUserProc->IsCdecl() ){
        //ret
        compiler.codeGenerator.op_ret();
    }
    else{
        //ret BaseOffset（パラメータ分のスタック領域を解放）
        compiler.codeGenerator.op_ret( (_int16)BaseOffset );
    }


    pUserProc->SetEndOpAddress( obp );


    //重複エラー情報管理のメモリを解放
    for(i3=0;i3<SynonymErrorNum;i3++) HeapDefaultFree(SynonymErrorWords[i3]);
    HeapDefaultFree(SynonymErrorWords);
    SynonymErrorWords=0;


    //ローカル変数のネーム情報は後に解放する
}

void CompileBufferInProcedure( const UserProc &userProc ){
    if( userProc.IsUsing() == false || userProc.IsCompiled() ) return;

    _compile_proc( &userProc );
/*
    // ログを履く
    char temporary[8192];
    temporary[0]=0;
    lstrcat( temporary, "------------------------------------------------------------------\n" );
    sprintf( temporary + lstrlen(temporary), "【 %s のコード情報】\n", userProc.GetFullName().c_str() );
    sprintf( temporary + lstrlen(temporary), "code size: %d bytes\n", userProc.GetCodeSize() );
    lstrcat( temporary, "------------------------------------------------------------------\n" );
    lstrcat( temporary, "\n" );
    Smoothie::Logger::Put( temporary );*/
}
void CompileLocal(){
    extern BOOL bDll;
    if(bDll){
        //DLLの場合はグローバル変数を初期化するための関数を一番初めにコンパイルする
        const UserProc *pUserProc=GetSubHash("_System_InitDllGlobalVariables");
        if(pUserProc){
            CompileBufferInProcedure( *pUserProc );
        }
        else SetError(300,NULL,cp);
    }

    //_System_TypeBase_InitializeUserTypesは一番最後にコンパイル
    extern const UserProc *pSubStaticMethod_System_TypeBase_InitializeUserTypes;
    pSubStaticMethod_System_TypeBase_InitializeUserTypes->CompleteCompile();

    //_System_InitStaticLocalVariablesは一番最後にコンパイル
    //※一般関数内の静的変数オブジェクトをすべて収集しなければならない
    extern const UserProc *pSub_System_InitStaticLocalVariables;
    pSub_System_InitStaticLocalVariables->CompleteCompile();

    //_System_Call_Destructor_of_GlobalObjectは一番最後にコンパイル
    extern const UserProc *pSub_System_Call_Destructor_of_GlobalObject;
    pSub_System_Call_Destructor_of_GlobalObject->CompleteCompile();

repeat:
    compiler.GetMeta().GetUserProcs().Iterator_Reset();
    while( compiler.GetMeta().GetUserProcs().Iterator_HasNext() )
    {
        UserProc *pUserProc = compiler.GetMeta().GetUserProcs().Iterator_GetNext();
        CompileBufferInProcedure( *pUserProc );
    }

    if( IsNeedProcCompile() ){
        //プロシージャコンパイルによって、プロシージャコンパイルが必要になる場合
        goto repeat;
    }

    //_System_TypeBase_InitializeUserTypesは最後のほうでコンパイル
    pSubStaticMethod_System_TypeBase_InitializeUserTypes->KillCompileStatus();
    CompileBufferInProcedure( *pSubStaticMethod_System_TypeBase_InitializeUserTypes );

    if( IsNeedProcCompile() ){
        //プロシージャコンパイルによって、プロシージャコンパイルが必要になる場合

        compiler.GetMeta().GetUserProcs().Iterator_Reset();
        while( compiler.GetMeta().GetUserProcs().Iterator_HasNext() )
        {
            UserProc *pUserProc = compiler.GetMeta().GetUserProcs().Iterator_GetNext();
            CompileBufferInProcedure( *pUserProc );
        }
    }

    //_System_InitStaticLocalVariablesは一番最後にコンパイル
    pSub_System_InitStaticLocalVariables->KillCompileStatus();
    CompileBufferInProcedure( *pSub_System_InitStaticLocalVariables );

    //_System_Call_Destructor_of_GlobalObjectは一番最後にコンパイル
    pSub_System_Call_Destructor_of_GlobalObject->KillCompileStatus();
    CompileBufferInProcedure( *pSub_System_Call_Destructor_of_GlobalObject );
}