floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bugfixes: replaced int with BLASLONG

This commit is contained in:
Werner Saar 2015-04-24 14:30:44 +02:00
parent da0f27b9ac
commit fc0e0391f3
6 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
kernel/x86_64/caxpy.c
View File

@ -84,7 +84,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
if ( (inc_x == 1) && (inc_y == 1) ) if ( (inc_x == 1) && (inc_y == 1) )
{ {
int n1 = n & -32; BLASLONG n1 = n & -32;
if ( n1 ) if ( n1 )
{ {

6
kernel/x86_64/cdot.c
View File

@ -109,7 +109,7 @@ FLOAT _Complex CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG in
if ( (inc_x == 1) && (inc_y == 1) ) if ( (inc_x == 1) && (inc_y == 1) )
{ {
int n1 = n & -16; BLASLONG n1 = n & -16;
if ( n1 ) if ( n1 )
{ {
@ -119,8 +119,10 @@ FLOAT _Complex CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG in
dot[4] += dot[6]; dot[4] += dot[6];
dot[5] += dot[7]; dot[5] += dot[7];
} }
i = n1; i = n1;
int j = i * 2; BLASLONG j = i * 2;
while( i < n ) while( i < n )
{ {

4
kernel/x86_64/daxpy.c
View File

@ -80,9 +80,9 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x, BLAS
{ {
#if defined(SANDYBRIDGE) #if defined(SANDYBRIDGE)
int n1 = n & -32; BLASLONG n1 = n & -32;
#else #else
int n1 = n & -16; BLASLONG n1 = n & -16;
#endif #endif
if ( n1 ) if ( n1 )

2
kernel/x86_64/ddot.c
View File

@ -83,7 +83,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y)
if ( (inc_x == 1) && (inc_y == 1) ) if ( (inc_x == 1) && (inc_y == 1) )
{ {
int n1 = n & -16; BLASLONG n1 = n & -16;
if ( n1 ) if ( n1 )
ddot_kernel_8(n1, x, y , &dot ); ddot_kernel_8(n1, x, y , &dot );

2
kernel/x86_64/zaxpy.c
View File

@ -84,7 +84,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
if ( (inc_x == 1) && (inc_y == 1) ) if ( (inc_x == 1) && (inc_y == 1) )
{ {
int n1 = n & -16; BLASLONG n1 = n & -16;
if ( n1 ) if ( n1 )
{ {

5
kernel/x86_64/zdot.c
View File

@ -105,13 +105,14 @@ FLOAT _Complex CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG in
if ( (inc_x == 1) && (inc_y == 1) ) if ( (inc_x == 1) && (inc_y == 1) )
{ {
int n1 = n & -8; BLASLONG n1 = n & -8;
if ( n1 ) if ( n1 )
zdot_kernel_8(n1, x, y , dot ); zdot_kernel_8(n1, x, y , dot );
i = n1; i = n1;
int j = i * 2; BLASLONG j = i * 2;
while( i < n ) while( i < n )
{ {