diff --git a/frame/include/bli_obj_macro_defs.h b/frame/include/bli_obj_macro_defs.h index bf1259a57..a09fdfaae 100644 --- a/frame/include/bli_obj_macro_defs.h +++ b/frame/include/bli_obj_macro_defs.h @@ -76,12 +76,12 @@ static bool_t bli_obj_is_const( obj_t* obj ) return ( bli_obj_dt( obj ) == BLIS_BITVAL_CONST_TYPE ); } -static objbits_t bli_obj_domain( obj_t* obj ) +static dom_t bli_obj_domain( obj_t* obj ) { return ( obj->info & BLIS_DOMAIN_BIT ); } -static objbits_t bli_obj_prec( obj_t* obj ) +static prec_t bli_obj_prec( obj_t* obj ) { return ( obj->info & BLIS_PRECISION_BIT ); } diff --git a/frame/include/bli_param_macro_defs.h b/frame/include/bli_param_macro_defs.h index e8343d804..b49f17c6a 100644 --- a/frame/include/bli_param_macro_defs.h +++ b/frame/include/bli_param_macro_defs.h @@ -112,6 +112,16 @@ static bool_t bli_is_double_prec( num_t dt ) bli_is_dcomplex( dt ) ); } +static dom_t bli_dt_domain( num_t dt ) +{ + return ( dt & BLIS_DOMAIN_BIT ); +} + +static prec_t bli_dt_prec( num_t dt ) +{ + return ( dt & BLIS_PRECISION_BIT ); +} + static num_t bli_dt_proj_to_real( num_t dt ) { return ( dt & ~BLIS_BITVAL_COMPLEX );