static void TestSubroutineType( void )
{
dw_handle sub_type;
sub_type = DWBeginSubroutineType( Client, FundamentalTypes[DW_FT_SIGNED], NULL, 0, DW_FLAG_PROTOTYPED );
DWFormalParameter( Client, FundamentalTypes[DW_FT_UNSIGNED_CHAR], NULL, NULL, "a", DW_DEFAULT_NONE );
DWEllipsis( Client );
DWEndSubroutineType( Client );
}
static void SymParm( cg_sym_handle sym, dw_loc_handle loc,
dw_loc_handle entry ) {
/*******************************************************************/
// fe_attr attr;
const char *name;
// dw_handle obj;
dbg_type dbtype;
// attr = FEAttr( sym );
dbtype = FEDbgType( sym ); /* causes FEName side effects */
name = FEName( sym );
// obj = DWFormalParameter( Client, dbtype, loc, entry, name, DW_DEFAULT_NONE );
DWFormalParameter( Client, dbtype, loc, entry, name, DW_DEFAULT_NONE );
}
static void BIOutSPDumInfo( sym_id ste_ptr ) {
//============================================
// Dump the name of a subprogram dummy argument.
dw_handle handle;
char name[MAX_SYMLEN+1];
memset( name, 0, MAX_SYMLEN+1 );
handle = DWFormalParameter( cBIId, BIGetAnyType( ste_ptr ), 0, 0,
strncpy( name, ste_ptr->u.ns.name,
ste_ptr->u.ns.u2.name_len ),
DW_DEFAULT_NONE );
BIRefSymbol( handle );
BISetHandle( ste_ptr, handle );
}
