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:
Field G. Van Zee
2013-04-15 14:31:40 -05:00
parent d9948c541c
commit ea079d3559
8 changed files with 8 additions and 0 deletions

View File

@@ -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 ); \

View File

@@ -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, \

View File

@@ -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, \

View File

@@ -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 ); \

View File

@@ -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, \

View File

@@ -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, \

View File

@@ -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 ); \

View File

@@ -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 ); \