static SYMBOL registerHandler( // REGISTER THE HANDLER
SYMBOL rw, // - symbol for R/W block
unsigned rtn_code ) // - R/T handler code
{
#if 0
CgAssignPtr( CgSymbolPlusOffset( rw, CgbkInfo.size_data_ptr )
, CgAddrSymbol( RunTimeCallSymbol( rtn_code ) ) );
#else
CgAssign( CgSymbolPlusOffset( rw, CgbkInfo.size_data_ptr )
, CgAddrSymbol( RunTimeCallSymbol( rtn_code ) )
, TY_CODE_PTR );
#endif
return rw;
}
void CgRtCallInit( // SET UP A R/T CALL
RT_DEF *def, // - definition for call
RTF rt_code ) // - code for run/time call
{
SYMBOL sym; // - symbol for run/time call
sym = RunTimeCallSymbol( rt_code );
def->type = CgTypeOutput( SymFuncReturnType( sym ) );
def->handle = CGInitCall( CgSymbol( sym )
, def->type
, (cg_sym_handle)sym );
}
PTREE RunTimeCall( // GENERATE A RUN-TIME CALL PARSE SUBTREE
PTREE expr, // - expression for operands
TYPE type, // - type for function return
RTF code ) // - code for function
{
SYMBOL func;
func = RunTimeCallSymbol( code );
DbgVerify( (PointerTypeEquivalent( type ) == NULL)
== (PointerTypeEquivalent( SymFuncReturnType( func ) ) == NULL)
, "RunTimeCall -- return type mismatch" );
return NodeMakeCall( func, type, expr );
}
unsigned StaticInitFuncBeg( // START INITIALIZATION OF STATIC IN FUNCTION
void )
{
CGLABEL init_label; // - label #
INIT_VAR *init_var;
CgFrontStatInit();
init_var = FunctionBodyGetInit( NULL );
if( init_var->var == NULL ) {
init_var->var = staticInitFuncVar();
} else {
init_var->mask <<= 1;
if( init_var->mask >= 0x100 ) {
++init_var->var->sym_type->u.a.array_size;
init_var->mask = 1;
}
}
if( CompFlags.bm_switch_used ) {
SYMBOL rtf;
rtf = RunTimeCallSymbol( RTF_STATIC_INIT );
CgFrontSymbol( rtf );
CgSetType( GetBasicType( TYP_SINT ) );
CgFrontCodePtr( IC_CALL_SETUP, rtf );
CgSetType( GetBasicType( TYP_SINT ) );
CgFrontCodeUint( IC_LEAF_CONST_INT, init_var->mask );
CgFrontCode( IC_CALL_PARM );
moduleInitVar( init_var->var, false );
CgFrontCode( IC_CALL_PARM );
CgFrontCode( IC_CALL_EXEC );
} else {
moduleInitVar( init_var->var, true );
CgFrontCodeUint( IC_OPR_UNARY, CO_FETCH );
CgFrontCodeUint( IC_LEAF_CONST_INT, init_var->mask );
CgFrontCodeUint( IC_OPR_BINARY, CO_AND );
}
CgFrontCodeUint( IC_LEAF_CONST_INT, 0 );
CgFrontCodeUint( IC_OPR_BINARY, CO_NE );
init_label = CgFrontLabelCs();
CgFrontGotoNear( IC_LABEL_CS, O_IF_TRUE, init_label );
if( !CompFlags.bm_switch_used ) {
moduleInitVar( init_var->var, true );
CgFrontCodeUint( IC_LEAF_CONST_INT, init_var->mask );
CgFrontCodeUint( IC_OPR_BINARY, CO_OR_EQUAL );
CgFrontCode( IC_EXPR_DONE );
}
return( init_label );
}
