amd/blis
1
0
Fork 0
mirror of https://github.com/amd/blis.git synced 2026-05-11 09:39:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed static funcs related to target and exec dts.

Browse Source 
Details:
- Fixed incorrect bit shifts in the following static functions:
    bli_obj_set_target_domain()
    bli_obj_set_target_prec()
    bli_obj_set_exec_domain()
    bli_obj_set_exec_prec()
- Fixed incorrect bitmask in bli_dt_proj_to_single_prec().
- Updated bli_obj_real_part() and bli_obj_imag_part() so that it updates
  the target and exec datatypes (in addition to the storage datatypes).
This commit is contained in:
Field G. Van Zee
2018-06-29 12:30:44 -05:00
parent e006f2d0ee
commit 52d80b5f09
2 changed files with 18 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
frame/include/bli_obj_macro_defs.h
View File

@@ -363,12 +363,12 @@ static void bli_obj_set_target_dt( num_t dt, obj_t* obj )
static void bli_obj_set_target_domain( dom_t dt, obj_t* obj )
{
obj->info = ( obj->info & ~BLIS_TARGET_DOMAIN_BIT ) | ( dt << BLIS_TARGET_DOMAIN_SHIFT );
obj->info = ( obj->info & ~BLIS_TARGET_DOMAIN_BIT ) | ( dt << BLIS_TARGET_DT_SHIFT );
}
static void bli_obj_set_target_prec( prec_t dt, obj_t* obj )
{
obj->info = ( obj->info & ~BLIS_TARGET_PREC_BIT ) | ( dt << BLIS_TARGET_PREC_SHIFT );
obj->info = ( obj->info & ~BLIS_TARGET_PREC_BIT ) | ( dt << BLIS_TARGET_DT_SHIFT );
}
static void bli_obj_set_exec_dt( num_t dt, obj_t* obj )
@@ -378,12 +378,12 @@ static void bli_obj_set_exec_dt( num_t dt, obj_t* obj )
static void bli_obj_set_exec_domain( dom_t dt, obj_t* obj )
{
obj->info = ( obj->info & ~BLIS_EXEC_DOMAIN_BIT ) | ( dt << BLIS_EXEC_DOMAIN_SHIFT );
obj->info = ( obj->info & ~BLIS_EXEC_DOMAIN_BIT ) | ( dt << BLIS_EXEC_DT_SHIFT );
}
static void bli_obj_set_exec_prec( prec_t dt, obj_t* obj )
{
obj->info = ( obj->info & ~BLIS_EXEC_PREC_BIT ) | ( dt << BLIS_EXEC_PREC_SHIFT );
obj->info = ( obj->info & ~BLIS_EXEC_PREC_BIT ) | ( dt << BLIS_EXEC_DT_SHIFT );
}
static void bli_obj_set_pack_schema( pack_t schema, obj_t* obj )
@@ -1084,9 +1084,13 @@ static void bli_obj_real_part( obj_t* c, obj_t* r )
if ( bli_obj_is_complex( c ) )
{
// Change the datatype.
num_t dt_r = bli_obj_dt_proj_to_real( c );
bli_obj_set_dt( dt_r, r );
// Change the datatypes.
const num_t dt_stor_r = bli_dt_proj_to_real( bli_obj_dt( c ) );
const num_t dt_targ_r = bli_dt_proj_to_real( bli_obj_target_dt( c ) );
const num_t dt_exec_r = bli_dt_proj_to_real( bli_obj_exec_dt( c ) );
bli_obj_set_dt( dt_stor_r, r );
bli_obj_set_target_dt( dt_targ_r, r );
bli_obj_set_exec_dt( dt_exec_r, r );
// Update the element size.
siz_t es_c = bli_obj_elem_size( c );
@@ -1110,8 +1114,12 @@ static void bli_obj_imag_part( obj_t* c, obj_t* i )
bli_obj_alias_to( c, i );
// Change the datatype.
num_t dt_r = bli_obj_dt_proj_to_real( c );
bli_obj_set_dt( dt_r, i );
const num_t dt_stor_r = bli_dt_proj_to_real( bli_obj_dt( c ) );
const num_t dt_targ_r = bli_dt_proj_to_real( bli_obj_target_dt( c ) );
const num_t dt_exec_r = bli_dt_proj_to_real( bli_obj_exec_dt( c ) );
bli_obj_set_dt( dt_stor_r, i );
bli_obj_set_target_dt( dt_targ_r, i );
bli_obj_set_exec_dt( dt_exec_r, i );
// Update the element size.
siz_t es_c = bli_obj_elem_size( c );

2
frame/include/bli_param_macro_defs.h
View File

@@ -134,7 +134,7 @@ static num_t bli_dt_proj_to_complex( num_t dt )
static num_t bli_dt_proj_to_single_prec( num_t dt )
{
return ( dt & ~BLIS_BITVAL_SINGLE_PREC );
return ( dt & ~BLIS_BITVAL_DOUBLE_PREC );
}
static num_t bli_dt_proj_to_double_prec( num_t dt )