cg_name CgDtorStatic( // DTOR STATIC OBJECT
SYMBOL sym ) // - object symbol
{
STAB_CTL sctl; // - state-table instance
STAB_DEFN dctl; // - state-table definition
RT_DEF def; // - control for run-time call
SE* se; // - state entry
segment_id old_seg; // - old segment
StabCtlInit( &sctl, &dctl );
StabDefnInit( &dctl, DTRG_STATIC_INITLS );
#ifndef NDEBUG
if( PragDbgToggle.dump_stab ) {
printf( "State Table for static object: %p\n", &dctl.state_table );
}
#endif
sctl.rw = CgVarRw( CgbkInfo.size_rw_base + CgbkInfo.size_data_ptr, SC_STATIC );
dctl.ro = CgVarRo( 1, SC_STATIC, NULL );
se = SeAlloc( DTC_SYM_STATIC );
se->base.gen = true;
se->sym_static.sym = sym;
se->sym_static.dtor = RoDtorFind( sym );
se = StateTableAdd( se, &sctl );
StabGenerate( &sctl );
old_seg = DgSetSegSym( sctl.rw );
CgBackGenLabelInternal( sctl.rw );
DgInitBytes( CgbkInfo.size_data_ptr, 0 );
DgPtrSymData( dctl.ro );
DgOffset( 1 );
DgPtrSymData( sym );
BESetSeg( old_seg );
CgRtCallInit( &def, RTF_REG_LCL );
CgRtParamAddrSym( &def, sctl.rw );
return( CgRtCallExec( &def ) );
}
static SYMBOL segEmitLabel( // EMIT SEGMENT LABEL
PC_SEGMENT* seg ) // - current segment
{
SYMBOL label; // - label in segment
segment_id old_seg; // - old segment
label = seg->label;
if( label != NULL && ! seg->lab_gened ) {
if( seg->seg_id == SEG_STACK ) {
CGAutoDecl( (cg_sym_handle)label, TY_UINT_1 );
} else {
old_seg = DgSetSegSym( label );
CgBackGenLabel( label );
BESetSeg( old_seg );
}
seg->lab_gened = TRUE;
_markUsed( seg, TRUE );
}
return label;
}
void ThrowRoGen( // GENERATE A THROW R/O BLOCK
void )
{
THROW_RO *ro; // - R/O block for symbol
segment_id old_seg; // - old segment
TYPE type; // - type being converted
THROW_CNV_CTL ctl; // - control for conversions
target_offset_t offset; // - offset within class
RingIterBeg( ring_throw_ro, ro ) {
if( ! ro->emitted ) {
ro->emitted = true;
old_seg = DgSetSegSym( ro->sym );
CgBackGenLabelInternal( ro->sym );
offset = ThrowCnvInit( &ctl, ro->sig->type );
DbgVerify( ! ctl.error_occurred
, "cgGenThrowRo -- failure in ThrowCnvInit" );
#ifndef NDEBUG
if( PragDbgToggle.dump_stab ) {
printf( "ThrowRo[%p] offset=%p sig=%x\n"
, ro
, ro->sig
, offset );
}
#endif
DgOffset( offset );
for( ; ; ) {
type = ThrowCnvType( &ctl, &offset );
if( type == NULL )
break;
cgGenThrowCnv( type, offset );
}
ThrowCnvFini( &ctl );
BESetSeg( old_seg );
}
} RingIterEnd( ro );
}
bool StabGenerate( // GENERATE A STATE TABLE
STAB_CTL* sctl ) // - state-table information
{
STAB_DEFN* defn; // - state-table definition
SE* se; // - current state entry
SE* state_table; // - the state table
segment_id old_seg; // - old segment
if( sctl->rw == NULL ) return FALSE;
defn = sctl->defn;
old_seg = DgSetSegSym( defn->ro );
CgBackGenLabelInternal( defn->ro );
DgOffset( defn->kind );
#if _CPU == _AXP
if( defn->kind == DTRG_FUN ) {
DgOffset( - CgOffsetRw( 0 ) );
}
#endif
state_table = defn->state_table;
RingIterBeg( state_table, se ) {
if( se->base.gen ) {
switch( se->base.se_type ) {
case DTC_SYM_AUTO :
DbgVerify( UNDEF_AREL != se->sym_auto.offset, "cgStateTable -- no offset for SYM_AUTO" );
DgPtrSymCode( se->sym_auto.dtor );
DgOffset( CgOffsetRw( se->sym_auto.offset ) );
padOffsetToPtrSize();
break;
case DTC_SYM_STATIC :
DgPtrSymCode( se->sym_static.dtor );
DgPtrSymData( se->sym_static.sym );
break;
case DTC_TEST_FLAG :
cgStateTableCmd( CgCmdTestFlag( se ), 0 );
break;
case DTC_TRY :
se->try_blk.sym = cgStateTableCmd( CgCmdTry( se ), 0 );
break;
case DTC_CATCH :
cgStateTableCmd( se->catch_blk.try_blk->try_blk.sym, sizeof( DTOR_CMD_CODE ) );
break;
case DTC_FN_EXC :
cgStateTableCmd( CgCmdFnExc( se ), 0 );
break;
case DTC_SET_SV :
if( se != state_table ) {
cgStateTableCmd( CgCmdSetSv( se ), 0 );
}
break;
case DTC_ACTUAL_DBASE :
case DTC_ACTUAL_VBASE :
case DTC_COMP_VBASE :
case DTC_COMP_DBASE :
case DTC_COMP_MEMB :
cgStateTableCmd( CgCmdComponent( se ), 0 );
break;
case DTC_ARRAY_INIT :
cgStateTableCmd( CgCmdArrayInit( se ), 0 );
break;
case DTC_DLT_1 :
cgStateTableCmd( CgCmdDlt1( se ), 0 );
break;
case DTC_DLT_2 :
cgStateTableCmd( CgCmdDlt2( se ), 0 );
break;
case DTC_DLT_1_ARRAY :
cgStateTableCmd( CgCmdDlt1Array( se ), 0 );
break;
case DTC_DLT_2_ARRAY :
cgStateTableCmd( CgCmdDlt2Array( se ), 0 );
break;
case DTC_CTOR_TEST :
cgStateTableCmd( CgCmdCtorTest( se ), 0 );
break;
DbgDefault( "cgStateTable -- impossible" );
}
}
} RingIterEnd( se )
#if !defined( NDEBUG ) || !defined( _INTEL_CPU )
DgPtrSymCode( NULL );
DgPtrSymData( NULL );
#endif
BESetSeg( old_seg );
StabDefnFreeStateTable( defn );
return TRUE;
}
