mirror of
https://github.com/amd/blis.git
synced 2026-05-11 17:50:00 +00:00
Set structure of objects in level-2 BLIS APIs.
Details: - Added missing statement to set structure field of local objects in top-level BLIS (BLAS-like) API wrappers. Thanks to Bryan Marker for reporting this bug.
This commit is contained in:
@@ -190,6 +190,7 @@ void PASTEMAC(ch,opname)( \
|
||||
bli_obj_create_with_attached_buffer( dt, m, 1, x, rs_x, cs_x, &xo ); \
|
||||
bli_obj_create_with_attached_buffer( dt, m, 1, y, rs_y, cs_y, &yo ); \
|
||||
\
|
||||
bli_obj_set_struc( BLIS_HERMITIAN, ao ); \
|
||||
bli_obj_set_uplo( uploa, ao ); \
|
||||
bli_obj_set_conj( conja, ao ); \
|
||||
bli_obj_set_conj( conjx, xo ); \
|
||||
|
||||
@@ -142,6 +142,7 @@ void PASTEMAC(ch,opname)( \
|
||||
bli_obj_create_with_attached_buffer( dt, m, m, c, rs_c, cs_c, &co ); \
|
||||
\
|
||||
bli_obj_set_conj( conjx, xo ); \
|
||||
bli_obj_set_struc( BLIS_HERMITIAN, co ); \
|
||||
bli_obj_set_uplo( uploc, co ); \
|
||||
\
|
||||
PASTEMAC0(opname)( &alphao, \
|
||||
|
||||
@@ -164,6 +164,7 @@ void PASTEMAC(ch,opname)( \
|
||||
\
|
||||
bli_obj_set_conj( conjx, xo ); \
|
||||
bli_obj_set_conj( conjy, yo ); \
|
||||
bli_obj_set_struc( BLIS_HERMITIAN, co ); \
|
||||
bli_obj_set_uplo( uploc, co ); \
|
||||
\
|
||||
PASTEMAC0(opname)( &alphao, \
|
||||
|
||||
@@ -190,6 +190,7 @@ void PASTEMAC(ch,opname)( \
|
||||
bli_obj_create_with_attached_buffer( dt, m, 1, x, rs_x, cs_x, &xo ); \
|
||||
bli_obj_create_with_attached_buffer( dt, m, 1, y, rs_y, cs_y, &yo ); \
|
||||
\
|
||||
bli_obj_set_struc( BLIS_SYMMETRIC, ao ); \
|
||||
bli_obj_set_uplo( uploa, ao ); \
|
||||
bli_obj_set_conj( conja, ao ); \
|
||||
bli_obj_set_conj( conjx, xo ); \
|
||||
|
||||
@@ -143,6 +143,7 @@ void PASTEMAC(ch,opname)( \
|
||||
bli_obj_create_with_attached_buffer( dt, m, m, c, rs_c, cs_c, &co ); \
|
||||
\
|
||||
bli_obj_set_conj( conjx, xo ); \
|
||||
bli_obj_set_struc( BLIS_SYMMETRIC, co ); \
|
||||
bli_obj_set_uplo( uploc, co ); \
|
||||
\
|
||||
PASTEMAC0(opname)( &alphao, \
|
||||
|
||||
@@ -157,6 +157,7 @@ void PASTEMAC(ch,opname)( \
|
||||
\
|
||||
bli_obj_set_conj( conjx, xo ); \
|
||||
bli_obj_set_conj( conjy, yo ); \
|
||||
bli_obj_set_struc( BLIS_SYMMETRIC, co ); \
|
||||
bli_obj_set_uplo( uploc, co ); \
|
||||
\
|
||||
PASTEMAC0(opname)( &alphao, \
|
||||
|
||||
@@ -158,6 +158,7 @@ void PASTEMAC(ch,opname)( \
|
||||
bli_obj_create_with_attached_buffer( dt, m, m, a, rs_a, cs_a, &ao ); \
|
||||
bli_obj_create_with_attached_buffer( dt, m, 1, x, rs_x, cs_x, &xo ); \
|
||||
\
|
||||
bli_obj_set_struc( BLIS_TRIANGULAR, ao ); \
|
||||
bli_obj_set_uplo( uploa, ao ); \
|
||||
bli_obj_set_conjtrans( transa, ao ); \
|
||||
bli_obj_set_diag( diaga, ao ); \
|
||||
|
||||
@@ -155,6 +155,7 @@ void PASTEMAC(ch,opname)( \
|
||||
bli_obj_create_with_attached_buffer( dt, m, m, a, rs_a, cs_a, &ao ); \
|
||||
bli_obj_create_with_attached_buffer( dt, m, 1, x, rs_x, cs_x, &xo ); \
|
||||
\
|
||||
bli_obj_set_struc( BLIS_TRIANGULAR, ao ); \
|
||||
bli_obj_set_uplo( uploa, ao ); \
|
||||
bli_obj_set_conjtrans( transa, ao ); \
|
||||
bli_obj_set_diag( diaga, ao ); \
|
||||
|
||||
Reference in New Issue
Block a user