Esempio n. 1
0
extern  void    DFObjFiniDbgInfo( offset codesize ) {
/******************************/
    segment_id      old;
    offset          here;
    back_handle     bck;

    if( _IsModel( DBG_LOCALS | DBG_TYPES ) ) {
        bck = Comp_High;
        if( bck != NULL ){
            old = SetOP( AskCodeSeg() );
            OutLabel( bck->lbl );
            SetOP( old );
            BEFreeBack( bck );
            Comp_High = NULL;
        }
        DWEndCompileUnit( Client );
        DWFini( Client );
        old = SetOP( UnitSize->segment );
        here = AskLocation();
        SetLocation( UnitSize->offset );
        DataLong( codesize );
        SetLocation( here );
        SetOP( old );
        FiniSegBck();
    }
}
Esempio n. 2
0
static  void    InitSegBck( void )
/********************************/
{
    segment_id  old_segid;

    if( _IsModel( DBG_LOCALS ) ) {
        old_segid = SetOP( CVSyms );
        DataLong( CV_OMF_SIG );
        SetOP( old_segid );
    }
    if( _IsModel( DBG_TYPES ) ) {
        old_segid = SetOP( CVTypes );
        DataLong( CV_OMF_SIG );
        SetOP( old_segid );
    }
}