source: dev/trunk/ab5.0/abdev/BasicCompiler_Common/src/Linker.cpp

#include "stdafx.h"

#include <Compiler.h>


// データテーブルスケジュール
void Linker::ResolveDataTableSchedules( long dataSectionBaseOffset )
{
    foreach( const Schedule &schedule, nativeCode.GetSchedules() )
    {
        if( schedule.GetType() == Schedule::DataTable )
        {
            nativeCode.Overwrite(
                schedule.GetOffset(),
                static_cast<long>( nativeCode.GetLong( schedule.GetOffset() ) + imageBase + dataSectionBaseOffset )
            );
        }
    }

    foreach( const Schedule &schedule, dataTable.schedules )
    {
        if( schedule.GetType() == Schedule::DataTable )
        {
#ifdef _WIN64
            dataTable.OverwriteInt64(
                schedule.GetOffset(),
                dataTable.GetInt64( schedule.GetOffset() ) + imageBase + dataSectionBaseOffset
            );
#else
            dataTable.Overwrite(
                schedule.GetOffset(),
                dataTable.GetLong( schedule.GetOffset() ) + imageBase + dataSectionBaseOffset
            );
#endif
        }
    }
}

// Catchアドレス スケジュール
void Linker::ResolveCatchAddressSchedules( long codeSectionBaseOffset )
{
    foreach( const Schedule &schedule, nativeCode.GetSchedules() )
    {
        if( schedule.GetType() == Schedule::CatchAddress )
        {
            if( nativeCode.GetLong( schedule.GetOffset() ) != 0 )
            {
                // 置き換える値が0の場合を除く
                nativeCode.Overwrite(
                    schedule.GetOffset(),
                    static_cast<long>( nativeCode.GetLong( schedule.GetOffset() ) + schedule.GetUserProc().GetBeginOpAddress() + imageBase + codeSectionBaseOffset )
                );
            }
        }
    }

    foreach( const Schedule &schedule, dataTable.schedules )
    {
        if( schedule.GetType() == Schedule::CatchAddress )
        {
            if( dataTable.GetLong( schedule.GetOffset() ) != 0 )
            {
                // 置き換える値が0の場合を除く
#ifdef _WIN64
                dataTable.OverwriteInt64(
                    schedule.GetOffset(),
                    dataTable.GetInt64( schedule.GetOffset() ) + schedule.GetUserProc().GetBeginOpAddress() + imageBase + codeSectionBaseOffset
                );
#else
                dataTable.Overwrite(
                    schedule.GetOffset(),
                    dataTable.GetLong( schedule.GetOffset() ) + schedule.GetUserProc().GetBeginOpAddress() + imageBase + codeSectionBaseOffset
                );
#endif
            }
        }
    }
}

// DLL関数スケジュール
void Linker::ResolveDllProcSchedules( long codeSectionBaseOffset, long importSectionBaseOffset, long lookupSize, long hintSize )
{
    foreach( const Schedule &schedule, nativeCode.GetSchedules() )
    {
        if( schedule.GetType() == Schedule::DllProc )
        {
#ifdef _AMD64_
            nativeCode.Overwrite(
                schedule.GetOffset(),
                static_cast<long>( importSectionBaseOffset + schedule.GetDllProc().GetLookupAddress()
                    - ( codeSectionBaseOffset + schedule.GetOffset() + sizeof(long) ) )
            );
#else
            nativeCode.Overwrite(
                schedule.GetOffset(),
                static_cast<long>( imageBase + importSectionBaseOffset + lookupSize + hintSize
                    + schedule.GetDllProc().GetLookupAddress() )
            );
#endif
        }
    }
}

// ユーザ定義関数スケジュール
void Linker::ResolveUserProcSchedules( long codeSectionBaseOffset )
{
    foreach( const Schedule &schedule, nativeCode.GetSchedules() )
    {
        if( schedule.GetType() == Schedule::UserProc
            || schedule.GetType() == Schedule::AddressOf )
        {
            if( schedule.GetUserProc().GetBeginOpAddress() == 0
                && schedule.GetUserProc().GetEndOpAddress() == 0 )
            {
                compiler.errorMessenger.OutputFatalError();
            }

            if( schedule.GetType() == Schedule::UserProc )
            {
                nativeCode.Overwrite(
                    schedule.GetOffset(),
                    static_cast<long>( schedule.GetUserProc().GetBeginOpAddress() - ( schedule.GetOffset() + sizeof(long) ) )
                );
            }
            else if( schedule.GetType() == Schedule::AddressOf )
            {
                nativeCode.Overwrite(
                    schedule.GetOffset(),
                    static_cast<long>( schedule.GetUserProc().GetBeginOpAddress() + imageBase + codeSectionBaseOffset )
                );
            }
        }
    }
}

// グローバル変数スケジュール
void Linker::ResolveGlobalVarSchedules( long rwSectionBaseOffset )
{
    int allInitVarSize = compiler.GetObjectModule().meta.GetGlobalVars().initAreaBuffer.GetSize();

    foreach( const Schedule &schedule, nativeCode.GetSchedules() )
    {
        if( schedule.GetType() == Schedule::GlobalVar )
        {
            if( nativeCode.GetLong( schedule.GetOffset() ) & 0x80000000 )
            {
                nativeCode.Overwrite(
                    schedule.GetOffset(),
                    static_cast<long>( allInitVarSize + (nativeCode.GetLong( schedule.GetOffset() ) & 0x7FFFFFFF) + imageBase + rwSectionBaseOffset )
                );
            }
            else
            {
                nativeCode.Overwrite(
                    schedule.GetOffset(),
                    static_cast<long>( nativeCode.GetLong( schedule.GetOffset() ) + imageBase + rwSectionBaseOffset )
                );
            }
        }
    }
}

void Linker::ResolveVtblSchedule( long dataSectionBaseOffset )
{
    foreach( const Schedule &schedule, nativeCode.GetSchedules() )
    {
        if( schedule.GetType() == Schedule::ComVtbl )
        {
            LONG_PTR vtblOffset = schedule.GetClass().GetComVtblOffset();

            nativeCode.Overwrite(
                schedule.GetOffset(),
                static_cast<long>( vtblOffset + imageBase + dataSectionBaseOffset )
            );
        }

        if( schedule.GetType() == Schedule::Vtbl )
        {
            LONG_PTR vtblMasterListOffset = schedule.GetClass().GetVtblMasterListOffset();

            nativeCode.Overwrite(
                schedule.GetOffset(),
                static_cast<long>( vtblMasterListOffset + imageBase + dataSectionBaseOffset )
            );
        }
    }

    foreach( const Schedule &schedule, dataTable.schedules )
    {
        if( schedule.GetType() == Schedule::ComVtbl )
        {
            LONG_PTR vtblOffset = schedule.GetClass().GetComVtblOffset();

#ifdef _WIN64
            dataTable.OverwriteInt64(
                schedule.GetOffset(),
                vtblOffset + imageBase + dataSectionBaseOffset
            );
#else
            dataTable.Overwrite(
                schedule.GetOffset(),
                vtblOffset + imageBase + dataSectionBaseOffset
            );
#endif
        }

        if( schedule.GetType() == Schedule::Vtbl )
        {
            LONG_PTR vtblMasterListOffset = schedule.GetClass().GetVtblMasterListOffset();

#ifdef _WIN64
            dataTable.OverwriteInt64(
                schedule.GetOffset(),
                vtblMasterListOffset + imageBase + dataSectionBaseOffset
            );
#else
            dataTable.Overwrite(
                schedule.GetOffset(),
                vtblMasterListOffset + imageBase + dataSectionBaseOffset
            );
#endif
        }
    }
}

void Linker::ResolveTypeInfoSchedule( long dataSectionBaseOffset )
{
    foreach( const Schedule &schedule, dataTable.schedules )
    {
        if( schedule.GetType() == Schedule::TypeInfo )
        {
            LONG_PTR typeInfoDataTableOffset = schedule.GetClass().GetTypeInfoDataTableOffset();

#ifdef _WIN64
            dataTable.OverwriteInt64(
                schedule.GetOffset(),
                typeInfoDataTableOffset + imageBase + dataSectionBaseOffset
            );
#else
            dataTable.Overwrite(
                schedule.GetOffset(),
                typeInfoDataTableOffset + imageBase + dataSectionBaseOffset
            );
#endif
        }
    }
}

void Linker::Link( ObjectModule &masterObjectModule )
{
    // nativeCodeは初期状態でなければならない
    if( nativeCode.GetSize() > 0 )
    {
        compiler.errorMessenger.OutputFatalError();
    }

    nativeCode.PutEx( masterObjectModule.globalNativeCode );

    foreach (auto pUserProc, masterObjectModule.meta.GetUserProcs())
    {
        if( pUserProc->GetNativeCode().GetSize() > 0 )
        {
            // 関数の開始位置（コードセクションからのオフセット）
            int beginCodePos = nativeCode.GetSize();

            // コードセクションに関数のネイティブコードを追加
            nativeCode.PutEx( pUserProc->GetNativeCode() );

            // 関数の終了位置（コードセクションからのオフセット）
            int endCodePos = nativeCode.GetSize();

            // コードセクション内の関数の範囲を設定
            pUserProc->SetBeginOpAddress( beginCodePos );
            pUserProc->SetEndOpAddress( endCodePos );
        }
    }
}

void Linker::SetDataTable( DataTable &dataTable )
{
    this->dataTable.Add( dataTable );
}