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 ) );
}
SE* DtorForDelBeg( // DTORING AREA TO BE DELETED: start
FN_CTL* fctl, // - function information
target_size_t elem_size, // - size of one element in area
unsigned dlt1, // - entry type when one arg
unsigned dlt2, // - entry type when two args
SYMBOL op_del ) // - operator delete to be used
{
SE* se_dlt; // - entry allocated
SYMBOL var; // - var containing address of delete area
cg_name top_expr; // - top expression
cg_type top_type; // - type of top expression
cg_name emit; // - expression for state update
patch_handle patch; // - patch handle for area
if( DtmTabular( fctl ) ) {
if( 2 == SymFuncArgList( op_del )->num_args ) {
se_dlt = SeAlloc( dlt2 );
se_dlt->del_2_array.size = elem_size;
} else {
se_dlt = SeAlloc( dlt1 );
}
se_dlt->del_1_array.op_del = op_del;
var = CgVarRw( TY_POINTER, SC_AUTO );
if( se_dlt->base.gen ) {
AutoRelRegister( var, &se_dlt->del_1_array.offset );
}
top_expr = CgExprPopType( &top_type );
top_expr = CGLVAssign( CgSymbol( var ), top_expr, top_type );
top_expr = CgFetchType( top_expr, top_type );
emit = emitPatch( &patch );
top_expr = emitPatchCallBack( top_expr
, emit
, top_type
, &patchForDtorDelBeg
, patch
, se_dlt );
CgExprPush( top_expr, top_type );
DbgSetState( "patchForDtorDelBeg", se_dlt );
} else {
se_dlt = NULL;
}
return se_dlt;
}
