/****************************************************************************
*
*                            Open Watcom Project
*
*    Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
*  ========================================================================
*
*    This file contains Original Code and/or Modifications of Original
*    Code as defined in and that are subject to the Sybase Open Watcom
*    Public License version 1.0 (the 'License'). You may not use this file
*    except in compliance with the License. BY USING THIS FILE YOU AGREE TO
*    ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
*    provided with the Original Code and Modifications, and is also
*    available at www.sybase.com/developer/opensource.
*
*    The Original Code and all software distributed under the License are
*    distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
*    EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
*    ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
*    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
*    NON-INFRINGEMENT. Please see the License for the specific language
*    governing rights and limitations under the License.
*
*  ========================================================================
*
* Description:  WHEN YOU FIGURE OUT WHAT THIS FILE DOES, PLEASE
*               DESCRIBE IT HERE!
*
****************************************************************************/


#include "dwpriv.h"
#include "dwinfo.h"
#include "dwline.h"
#include "dwmac.h"
#include "dwutils.h"
#include "dwabbrev.h"
#include "dwtype.h"
#include "dwdie.h"
#include "dwarange.h"
#include "dwloc.h"
#include "dwdecl.h"
#include "dwrefer.h"
#include "dwmem.h"
#include "dwhandle.h"
#include "dwname.h"


dw_handle DWENTRY DWBeginCompileUnit(
    dw_client                   cli,
    dw_cu_info                 *cu  )
{
    dw_handle                   new;
    uint                        tmp;
    abbrev_code                 abbrev;

    {/* remember where all the sections start */
        dw_sectnum                  sect;

        for( sect = 0; sect < DW_DEBUG_MAX; ++sect ) {
            if( (cli->compiler_options & DW_CM_ABBREV_PRE) && sect == DW_DEBUG_ABBREV ){
                cli->section_base[ sect ] = 0;
            }else{
                cli->section_base[ sect ] = CLITell( sect );
            }
        }
    }
    cli->offset_size = cu->offset_size;
    cli->segment_size = cu->segment_size;
    cli->dbg_pch = cu->dbg_pch;
    cli->defset = 0;
    InitDebugPubnames( cli );
    InitDebugAranges( cli );
    InitReferences( cli );      // will this screw up AT_WATCOM_ref_start?
    InitDebugInfo( cli );
    InitHandles( cli );
    InitDecl( cli );
    InitDIE( cli );

    /* start the tree */
    StartChildren( cli );

    /* get the compile unit handle */
    new = LabelNewHandle( cli );

    /* emit the TAG_compile_unit */
    abbrev = AB_COMPILE_UNIT | AB_SIBLING;
    if( cu->flags != 0 ) {
        abbrev |= AB_LOWHIGH_PC;
    }
    StartDIE( cli, abbrev );
    if( abbrev & AB_LOWHIGH_PC ) {
        /* AT_low_pc */
        InfoReloc( cli, DW_W_LOW_PC );
        /* AT_high_pc */
        InfoReloc( cli, DW_W_HIGH_PC );
    }
    /* AT_name */
    InfoString( cli, cu->source_filename );
    /* AT_stmt_list */
    CLIReloc3( DW_DEBUG_INFO, DW_W_SECTION_POS, DW_DEBUG_LINE );
    /* AT_language */
    switch( cli->language ) {
    case DWLANG_C:              tmp = DW_LANG_C89;              break;
    case DWLANG_CPP:            tmp = DW_LANG_C_plus_plus;      break;
    case DWLANG_FORTRAN:        tmp = DW_LANG_Fortran77;        break;
    default:
        _Abort( ABORT_INVALID_LANGUAGE );
    }
    InfoULEB128( cli, tmp );
    /* AT_comp_dir */
    InfoString( cli, cu->directory );
    /* AT_producer */
    InfoBytes( cli, "V1.0 ", 5  );
    InfoString( cli, cli->producer_name );
    /* AT_identifier_case */
    tmp = DW_ID_case_sensitive;
    if( cli->compiler_options & DW_CM_UPPER ) {
        tmp = DW_ID_up_case;
    } else if( cli->compiler_options & DW_CM_LOWER ) {
        tmp = DW_ID_down_case;
    }
    InfoULEB128( cli, tmp );
    /* AT_macro_info */
    CLIReloc3( DW_DEBUG_INFO, DW_W_SECTION_POS, DW_DEBUG_MACINFO );
    /* AT_base_types */
    if( cli->dbg_pch != 0 ){ // want start of ccu in pch
        CLIReloc4( DW_DEBUG_INFO, DW_W_EXT_REF, cli->dbg_pch, COMPILE_UNIT_HDR_SIZE  );
    }else{  // 0 no pch
        Info32( cli, 0  );
    }
   /* AT_WATCOM_memory_model */
    Info8( cli, cu->model );
    /* AT_WATCOM_references_start */
    CLIReloc3( DW_DEBUG_INFO, DW_W_SECTION_POS, DW_DEBUG_REF );
    EndDIE( cli );
    StartChildren( cli );
/*
 * these are done now so that the references to their starting point
 * actually point to the start, rather than midway through
*/
    InitDebugLine( cli, cu->source_filename, cu->inc_list, cu->inc_list_len );
    InitDebugMacInfo( cli );
    return( new );
}


void DWENTRY DWEndCompileUnit(
    dw_client                   cli )
{
    EndChildren( cli );
    EndChildren( cli );

    FiniDIE( cli );
    FiniDecl( cli );
    FiniReferences( cli );
    FiniHandles( cli );
    FiniDebugInfo( cli );
    FiniDebugMacInfo( cli );
    FiniDebugLine( cli );
    FiniDebugAranges( cli );
    FiniDebugPubnames( cli );
    cli->offset_size = 0;
    cli->segment_size = 0;
}


dw_client DWENTRY DWInit(
    const dw_init_info *        info )
{
    dw_client                   cli;

    if( info == NULL ) return( NULL );

    cli = info->funcs.alloc( sizeof( struct dw_client ) );

    /* copy some parms */
    cli->funcs = info->funcs;
    memcpy( &cli->exception_handler, &info->exception_handler,
        sizeof( info->exception_handler ) );
    cli->producer_name = StrDup( cli, info->producer_name );
    cli->compiler_options = info->compiler_options;
    cli->language = info->language;
    cli->abbrev_sym = info->abbrev_sym;

    InitDebugAbbrev( cli );
    InitDebugLoc( cli );
    if( cli->compiler_options & DW_CM_ABBREV_GEN ){
        GenAllAbbrev( cli );
    }
    return( cli );
}


void DWENTRY DWFini(
    dw_client                   cli )
{
    FiniDebugLoc( cli );
    if( !cli->compiler_options & DW_CM_ABBREV_PRE ){
        FiniDebugAbbrev( cli );
    }
    CLIFree( cli->producer_name );
    CLIFree( cli );
}

extern void DWInitDebugLine(
    dw_client                   cli,
    dw_cu_info                 *cu  ){

    cli->offset_size = cu->offset_size;
    cli->segment_size = cu->segment_size;
    cli->dbg_pch = cu->dbg_pch;
    cli->defset = 0;
    cli->section_base[ DW_DEBUG_LINE ] = CLITell( DW_DEBUG_LINE );
    InitDebugLine( cli, cu->source_filename, cu->inc_list, cu->inc_list_len );
}

extern void DWFiniDebugLine(
    dw_client                   cli ){
    FiniDebugLine( cli );
}
