mirror of
https://github.com/amd/blis.git
synced 2026-05-11 01:30:00 +00:00
Added BLAS error checking to compatibility layer.
Details: - Added frame/compat/check directory, which now houses companion _check() routines for each of the BLAS wrappers in frame/compat. These _check() routines are called from the compatibility wrappers and mimic the error-checking present in the netlib BLAS. - Edited bla_xerbla.c so that xerbla() translates the operation string to uppercase before printing. - Redefined util routines in frame/compat/f2c/util in terms of level0 macros. - Added prototypes for util routines, f2c routines, lsame(), and xerbla(). - Commented out prototypes in test/test_*.c since Fortran integers are now int64_t by default (and the prototypes that were present in the files used int). - Removed redundant #include "bli_f2c.h" in bli_?lamch.c and bli_lsame.c, since blis.h was already being included. - Other minor changes to code in frame/compat/f2c.
This commit is contained in:
@@ -59,6 +59,17 @@ void PASTEF77(ch,blasname)( \
|
||||
inc_t rs_a, cs_a; \
|
||||
inc_t rs_b, cs_b; \
|
||||
inc_t rs_c, cs_c; \
|
||||
\
|
||||
/* Perform BLAS parameter checking. */ \
|
||||
PASTEBLACHK(blasname)( MKSTR(ch), \
|
||||
MKSTR(blasname), \
|
||||
uploc, \
|
||||
transa, \
|
||||
m, \
|
||||
k, \
|
||||
lda, \
|
||||
ldb, \
|
||||
ldc ); \
|
||||
\
|
||||
/* Map BLAS chars to their corresponding BLIS enumerated type value. */ \
|
||||
bli_param_map_netlib_to_blis_uplo( *uploc, &blis_uploc ); \
|
||||
|
||||
Reference in New Issue
Block a user