static dw_handle BIMakeFundamental( TYPE typ ) {
//=============================================
// create a new fundamental handle seperate from the one created at birth
return( DWFundamental(cBIId, TypeKW(typ), BIMapType(typ), TypeSize(typ)) );
}
extern dbg_type DFFtnType( char *name, dbg_ftn_type tipe ) {
/*****************************************************************/
dbg_type ret;
unsigned size;
size = (tipe & 0x0f)+1;
ret = DWFundamental( Client, name, DW_FT_COMPLEX_FLOAT, size );
return( ret );
}
void Test( void )
{
int i;
char buf[10];
/* create all the fundamental types */
for( i = DW_FT_MIN; i < DW_FT_MAX; ++i ) {
FundamentalTypes[i] = DWFundamental( Client, itoa(i,buf,10), i, 2 );
}
/* and let's get some constant versions of them */
for( i = DW_FT_MIN; i < DW_FT_MAX; ++i ) {
ConstantFundamentalTypes[i] = DWModifier( Client, FundamentalTypes[i], DW_MOD_CONSTANT );
}
ConstCharStar = DWPointer( Client, ConstantFundamentalTypes[DW_FT_SIGNED_CHAR], 0 );
TestMacInfo();
TestTypedef();
TestPointer();
TestString();
TestArray();
TestEnum();
TestStruct1();
TestStruct2();
TestStruct3();
TestSubroutineType();
TestLexicalBlock();
TestCommonBlock();
TestSubroutine();
TestLine();
TestAranges();
TestPubnames();
}
