Browse Source

bugfixes: replaced int with BLASLONG

tags/v0.2.15^2
Werner Saar 10 years ago
parent
commit
fc0e0391f3
6 changed files with 12 additions and 9 deletions
  1. +1
    -1
      kernel/x86_64/caxpy.c
  2. +4
    -2
      kernel/x86_64/cdot.c
  3. +2
    -2
      kernel/x86_64/daxpy.c
  4. +1
    -1
      kernel/x86_64/ddot.c
  5. +1
    -1
      kernel/x86_64/zaxpy.c
  6. +3
    -2
      kernel/x86_64/zdot.c

+ 1
- 1
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) )
{

int n1 = n & -32;
BLASLONG n1 = n & -32;

if ( n1 )
{


+ 4
- 2
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) )
{

int n1 = n & -16;
BLASLONG n1 = n & -16;

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[5] += dot[7];
}

i = n1;
int j = i * 2;
BLASLONG j = i * 2;

while( i < n )
{



+ 2
- 2
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)
int n1 = n & -32;
BLASLONG n1 = n & -32;
#else
int n1 = n & -16;
BLASLONG n1 = n & -16;
#endif

if ( n1 )


+ 1
- 1
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) )
{

int n1 = n & -16;
BLASLONG n1 = n & -16;

if ( n1 )
ddot_kernel_8(n1, x, y , &dot );


+ 1
- 1
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) )
{

int n1 = n & -16;
BLASLONG n1 = n & -16;

if ( n1 )
{


+ 3
- 2
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) )
{

int n1 = n & -8;
BLASLONG n1 = n & -8;

if ( n1 )
zdot_kernel_8(n1, x, y , dot );

i = n1;
int j = i * 2;
BLASLONG j = i * 2;

while( i < n )
{



Loading…
Cancel
Save