Fixed context-broken dunnington/penryn kernels.

Details:
- Added missing context parameters to several instances where simpler
  kernels, or reference kernels, are called instead of executing the
  main body code contained in the kernel function in question.
- Renamed axpyv and dotv kernel files to use "opt" instead of "int"
  substring, for consistency with level-1f kernels.
This commit is contained in:
Field G. Van Zee
2016-04-11 18:08:32 -05:00
parent 7912af5db4
commit 0bd4169ea7
7 changed files with 29 additions and 20 deletions

View File

@@ -43,7 +43,7 @@ typedef union
} v2df_t;
void bli_daxpyv_int_var1
void bli_daxpyv_opt_var1
(
conj_t conjx,
dim_t n,
@@ -106,7 +106,8 @@ void bli_daxpyv_int_var1
n,
alpha,
x, incx,
y, incy );
y, incy,
cntx );
return;
}

View File

@@ -43,7 +43,7 @@ typedef union
} v2df_t;
void bli_ddotv_int_var1
void bli_ddotv_opt_var1
(
conj_t conjx,
conj_t conjy,
@@ -109,7 +109,8 @@ void bli_ddotv_int_var1
n,
x, incx,
y, incy,
rho );
rho,
cntx );
return;
}

View File

@@ -117,7 +117,8 @@ void bli_daxpy2v_int_var1
beta,
x, incx,
y, incy,
z, incz );
z, incz,
cntx );
return;
}

View File

@@ -90,7 +90,7 @@ void bli_daxpyf_int_var1
// If there is anything that would interfere with our use of aligned
// vector loads/stores, call the reference implementation.
if ( b_n < PASTEMAC(d,axpyf_fusefac) )
if ( b_n < bli_cntx_get_blksz_def_dt( BLIS_DOUBLE, BLIS_AF, cntx ) )
{
use_ref = TRUE;
}
@@ -122,7 +122,8 @@ void bli_daxpyf_int_var1
alpha_cast,
a_cast, inca, lda,
x_cast, incx,
y_cast, incy );
y_cast, incy,
cntx );
return;
}

View File

@@ -120,7 +120,8 @@ void bli_ddotaxpyv_int_var1
x, incx,
y, incy,
rho,
z, incz );
z, incz,
cntx );
return;
}

View File

@@ -104,10 +104,11 @@ void bli_ddotxaxpyf_int_var1
// If the vector lengths are zero, scale y by beta and return.
if ( bli_zero_dim1( m ) )
{
PASTEMAC2(d,d,scalv)( BLIS_NO_CONJUGATE,
b_n,
beta,
y, incy );
bli_dscalv( BLIS_NO_CONJUGATE,
b_n,
beta,
y, incy,
cntx );
return;
}
@@ -115,7 +116,7 @@ void bli_ddotxaxpyf_int_var1
// If there is anything that would interfere with our use of aligned
// vector loads/stores, call the reference implementation.
if ( b_n < PASTEMAC(d,dotxaxpyf_fusefac) )
if ( b_n < bli_cntx_get_blksz_def_dt( BLIS_DOUBLE, BLIS_XF, cntx ) )
{
use_ref = TRUE;
}
@@ -155,7 +156,8 @@ void bli_ddotxaxpyf_int_var1
x_cast, incx,
beta_cast,
y_cast, incy,
z_cast, incz );
z_cast, incz,
cntx );
return;
}

View File

@@ -90,10 +90,11 @@ void bli_ddotxf_int_var1
// If the vector lengths are zero, scale r by beta and return.
if ( bli_zero_dim1( m ) )
{
PASTEMAC2(d,d,scalv)( BLIS_NO_CONJUGATE,
b_n,
beta_cast,
y_cast, incy );
bli_dscalv( BLIS_NO_CONJUGATE,
b_n,
beta_cast,
y_cast, incy,
cntx );
return;
}
@@ -101,7 +102,7 @@ void bli_ddotxf_int_var1
// If there is anything that would interfere with our use of aligned
// vector loads/stores, call the reference implementation.
if ( b_n < PASTEMAC(d,dotxf_fusefac) )
if ( b_n < bli_cntx_get_blksz_def_dt( BLIS_DOUBLE, BLIS_DF, cntx ) )
{
use_ref = TRUE;
}
@@ -136,7 +137,8 @@ void bli_ddotxf_int_var1
a_cast, inca, lda,
x_cast, incx,
beta_cast,
y_cast, incy );
y_cast, incy,
cntx );
return;
}