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(); } }
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 ); } }