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

Fixed cpp guard typos in frame/compat/check files.

Browse Source 
Details:
- Fixed instances of BLIS_ENABLE_BLIS2BLAS that should have been
  BLIS_ENABLE_BLAS2BLIS. Thanks to Tyler for catching this.
- Fixed various syntax errors in the code that had yet to be compiled
  due to the aforementioned bug.
This commit is contained in:
Field G. Van Zee
2013-08-06 12:25:51 -05:00
parent f4ec28e723
commit 685aad2535
19 changed files with 37 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
frame/compat/check/bla_gemm_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_gemm_check( char* dt_str,
char* op_str,
@@ -52,7 +52,6 @@ void bla_gemm_check( char* dt_str,
f77_int conja, conjb;
f77_int ta, tb;
f77_int nrowa, nrowb;
f77_int ncola;
nota = PASTEF770(lsame)( transa, "N", (ftnlen)1, (ftnlen)1 );
notb = PASTEF770(lsame)( transb, "N", (ftnlen)1, (ftnlen)1 );
@@ -61,10 +60,10 @@ void bla_gemm_check( char* dt_str,
ta = PASTEF770(lsame)( transa, "T", (ftnlen)1, (ftnlen)1 );
tb = PASTEF770(lsame)( transb, "T", (ftnlen)1, (ftnlen)1 );
if ( nota ) { nrowa = *m; ncola = *k; }
else { nrowa = *k; ncola = *m; }
if ( notb ) { nrowb = *k; }
else { nrowb = *n; }
if ( nota ) { nrowa = *m; }
else { nrowa = *k; }
if ( notb ) { nrowb = *k; }
else { nrowb = *n; }
if ( !nota && !conja && !ta )
info = 1;

2
frame/compat/check/bla_gemv_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_gemv_check( char* dt_str,
char* op_str,

2
frame/compat/check/bla_ger_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_ger_check( char* dt_str,
char* op_str,

6
frame/compat/check/bla_hemm_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_hemm_check( char* dt_str,
char* op_str,
@@ -56,8 +56,8 @@ void bla_hemm_check( char* dt_str,
lower = PASTEF770(lsame)( uploa, "L", (ftnlen)1, (ftnlen)1 );
upper = PASTEF770(lsame)( uploa, "U", (ftnlen)1, (ftnlen)1 );
if ( left ) { nrowa = *m }
else { nrowa = *n }
if ( left ) { nrowa = *m; }
else { nrowa = *n; }
if ( !left && !right )
info = 1;

2
frame/compat/check/bla_hemv_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_hemv_check( char* dt_str,
char* op_str,

2
frame/compat/check/bla_her2_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_her2_check( char* dt_str,
char* op_str,

6
frame/compat/check/bla_her2k_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_her2k_check( char* dt_str,
char* op_str,
@@ -56,8 +56,8 @@ void bla_her2k_check( char* dt_str,
lower = PASTEF770(lsame)( uploa, "L", (ftnlen)1, (ftnlen)1 );
upper = PASTEF770(lsame)( uploa, "U", (ftnlen)1, (ftnlen)1 );
if ( nota ) { nrowa = *m }
else { nrowa = *k }
if ( nota ) { nrowa = *m; }
else { nrowa = *k; }
if ( !lower && !upper )
info = 1;

2
frame/compat/check/bla_her_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_her_check( char* dt_str,
char* op_str,

6
frame/compat/check/bla_herk_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_herk_check( char* dt_str,
char* op_str,
@@ -55,8 +55,8 @@ void bla_herk_check( char* dt_str,
lower = PASTEF770(lsame)( uploc, "L", (ftnlen)1, (ftnlen)1 );
upper = PASTEF770(lsame)( uploc, "U", (ftnlen)1, (ftnlen)1 );
if ( nota ) { nrowa = *m }
else { nrowa = *k }
if ( nota ) { nrowa = *m; }
else { nrowa = *k; }
if ( !lower && !upper )
info = 1;

2
frame/compat/check/bla_symm_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_symm_check( char* dt_str,
char* op_str,

2
frame/compat/check/bla_symv_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_symv_check( char* dt_str,
char* op_str,

2
frame/compat/check/bla_syr2_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_syr2_check( char* dt_str,
char* op_str,

6
frame/compat/check/bla_syr2k_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_syr2k_check( char* dt_str,
char* op_str,
@@ -56,8 +56,8 @@ void bla_syr2k_check( char* dt_str,
lower = PASTEF770(lsame)( uploa, "L", (ftnlen)1, (ftnlen)1 );
upper = PASTEF770(lsame)( uploa, "U", (ftnlen)1, (ftnlen)1 );
if ( nota ) { nrowa = *m }
else { nrowa = *k }
if ( nota ) { nrowa = *m; }
else { nrowa = *k; }
if ( !lower && !upper )
info = 1;

2
frame/compat/check/bla_syr_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_syr_check( char* dt_str,
char* op_str,

6
frame/compat/check/bla_syrk_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_syrk_check( char* dt_str,
char* op_str,
@@ -55,8 +55,8 @@ void bla_syrk_check( char* dt_str,
lower = PASTEF770(lsame)( uploc, "L", (ftnlen)1, (ftnlen)1 );
upper = PASTEF770(lsame)( uploc, "U", (ftnlen)1, (ftnlen)1 );
if ( nota ) { nrowa = *m }
else { nrowa = *k }
if ( nota ) { nrowa = *m; }
else { nrowa = *k; }
if ( !lower && !upper )
info = 1;

6
frame/compat/check/bla_trmm_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_trmm_check( char* dt_str,
char* op_str,
@@ -64,8 +64,8 @@ void bla_trmm_check( char* dt_str,
unita = PASTEF770(lsame)( diaga, "U", (ftnlen)1, (ftnlen)1 );
nonua = PASTEF770(lsame)( diaga, "N", (ftnlen)1, (ftnlen)1 );
if ( left ) { nrowa = *m }
else { nrowa = *n }
if ( left ) { nrowa = *m; }
else { nrowa = *n; }
if ( !left && !right )
info = 1;

4
frame/compat/check/bla_trmv_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_trmv_check( char* dt_str,
char* op_str,
@@ -47,6 +47,8 @@ void bla_trmv_check( char* dt_str,
{
f77_int info = 0;
f77_int lower, upper;
f77_int nota, ta, conja;
f77_int unita, nonua;
lower = PASTEF770(lsame)( uploa, "L", (ftnlen)1, (ftnlen)1 );
upper = PASTEF770(lsame)( uploa, "U", (ftnlen)1, (ftnlen)1 );

2
frame/compat/check/bla_trsm_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_trsm_check( char* dt_str,
char* op_str,

2
frame/compat/check/bla_trsv_check.c
View File

@@ -34,7 +34,7 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLIS2BLAS
#ifdef BLIS_ENABLE_BLAS2BLIS
void bla_trsv_check( char* dt_str,
char* op_str,