Skip to content

Commit d20977e

Browse files
tfauckKent Knox
tfauck
authored and
Kent Knox
committed
Support for altivec on powerpc64 P8 systems (#262)
Support for altivec on powerpc64 P8 systems :shipit: Thank you for your contribution
1 parent 162e779 commit d20977e

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

53 files changed

+145
-140
lines changed

‎src/include/defbool.h

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -18,6 +18,11 @@
1818
#ifndef DEFBOOL_H_
1919
#define DEFBOOL_H_
2020

21+
#if defined(__powerpc64__) && defined(__ALTIVEC__)
22+
#include "altivec.h"
23+
#undef bool
24+
#endif
25+
2126
#if defined(_MSC_VER) && _MSC_VER <= 1700
2227

2328
/*

‎src/library/blas/functor/functor_xscal.cc

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -81,7 +81,7 @@ doScal(
8181
kargs->N = N;
8282
kargs->A = X;
8383
kargs->offBX = offx;
84-
kargs->ldb.vector = incx; // Will be using this as incx
84+
kargs->ldb.Vector = incx; // Will be using this as incx
8585

8686
if(incx < 0) { // According to Netlib - return for negative incx
8787
return clblasSuccess;

‎src/library/blas/generic/solution_seq_make.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -709,10 +709,10 @@ clblasArgsToKextraFlags(const CLBlasKargs *args, BlasFunctionID funcID)
709709
}
710710
}
711711
if (funcID == CLBLAS_GEMV || funcID == CLBLAS_SYMV) {
712-
if (args->ldb.vector == 1) {
712+
if (args->ldb.Vector == 1) {
713713
flags |= KEXTRA_INCX_ONE;
714714
}
715-
if (args->ldc.vector == 1) {
715+
if (args->ldc.Vector == 1) {
716716
flags |= KEXTRA_INCY_ONE;
717717
}
718718
}

‎src/library/blas/gens/asum.cpp

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -137,10 +137,10 @@ setBuildOpts(
137137
printf("Setting build options ... Double... for DOUBLE PRECISION support\n");
138138
#endif
139139
}
140-
if( (kargs->ldb.vector) != 1) {
140+
if( (kargs->ldb.Vector) != 1) {
141141
addBuildOpt( buildOptStr, BUILD_OPTS_MAXLEN, "-DINCX_NONUNITY");
142142
}
143-
if( (kargs->ldb.vector) < 1) {
143+
if( (kargs->ldb.Vector) < 1) {
144144
addBuildOpt( buildOptStr, BUILD_OPTS_MAXLEN, "-DINCX_NEGATIVE");
145145
}
146146
return;
@@ -275,7 +275,7 @@ assignKargs(KernelArg *args, const void *params, const void* )
275275
INIT_KARG(&args[1], blasArgs->D);
276276
initSizeKarg(&args[2], blasArgs->N);
277277
initSizeKarg(&args[3], blasArgs->offBX);
278-
incx = blasArgs->ldb.vector;
278+
incx = blasArgs->ldb.Vector;
279279
INIT_KARG(&args[4], incx);
280280
return;
281281
}

‎src/library/blas/gens/axpy_reg.cpp

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -130,10 +130,10 @@ setBuildOpts(
130130
printf("Setting build options ... Double... for DOUBLE PRECISION support\n");
131131
#endif
132132
}
133-
if( (kargs->ldb.vector) != 1) {
133+
if( (kargs->ldb.Vector) != 1) {
134134
addBuildOpt( buildOptStr, BUILD_OPTS_MAXLEN, "-DINCX_NONUNITY");
135135
}
136-
if( (kargs->ldc.vector) != 1) {
136+
if( (kargs->ldc.Vector) != 1) {
137137
addBuildOpt( buildOptStr, BUILD_OPTS_MAXLEN, "-DINCY_NONUNITY");
138138
}
139139

@@ -269,10 +269,10 @@ assignKargs(KernelArg *args, const void *params, const void* )
269269
INIT_KARG(&args[2], blasArgs->B);
270270
initSizeKarg(&args[3], blasArgs->N);
271271
initSizeKarg(&args[4], blasArgs->offBX);
272-
incx = blasArgs->ldb.vector;
272+
incx = blasArgs->ldb.Vector;
273273
INIT_KARG(&args[5], incx);
274274
initSizeKarg(&args[6], blasArgs->offCY);
275-
incy = blasArgs->ldc.vector;
275+
incy = blasArgs->ldc.Vector;
276276
INIT_KARG(&args[7], incy);
277277

278278
return;

‎src/library/blas/gens/copy_reg.cpp

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -130,10 +130,10 @@ setBuildOpts(
130130
printf("Setting build options ... Double... for DOUBLE PRECISION support\n");
131131
#endif
132132
}
133-
if( (kargs->ldb.vector) != 1) {
133+
if( (kargs->ldb.Vector) != 1) {
134134
addBuildOpt( buildOptStr, BUILD_OPTS_MAXLEN, "-DINCX_NONUNITY");
135135
}
136-
if( (kargs->ldc.vector) != 1) {
136+
if( (kargs->ldc.Vector) != 1) {
137137
addBuildOpt( buildOptStr, BUILD_OPTS_MAXLEN, "-DINCY_NONUNITY");
138138
}
139139

@@ -264,10 +264,10 @@ assignKargs(KernelArg *args, const void *params, const void* )
264264
INIT_KARG(&args[1], blasArgs->B);
265265
initSizeKarg(&args[2], blasArgs->N);
266266
initSizeKarg(&args[3], blasArgs->offBX);
267-
incx = blasArgs->ldb.vector;
267+
incx = blasArgs->ldb.Vector;
268268
INIT_KARG(&args[4], incx);
269269
initSizeKarg(&args[5], blasArgs->offCY);
270-
incy = blasArgs->ldc.vector;
270+
incy = blasArgs->ldc.Vector;
271271
INIT_KARG(&args[6], incy);
272272

273273
return;

‎src/library/blas/gens/dot.cpp

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -133,10 +133,10 @@ setBuildOpts(
133133
printf("Setting build options ... Double... for DOUBLE PRECISION support\n");
134134
#endif
135135
}
136-
if( (kargs->ldb.vector) != 1) {
136+
if( (kargs->ldb.Vector) != 1) {
137137
addBuildOpt( buildOptStr, BUILD_OPTS_MAXLEN, "-DINCX_NONUNITY");
138138
}
139-
if( (kargs->ldc.vector) != 1) {
139+
if( (kargs->ldc.Vector) != 1) {
140140
addBuildOpt( buildOptStr, BUILD_OPTS_MAXLEN, "-DINCY_NONUNITY");
141141
}
142142

@@ -272,10 +272,10 @@ assignKargs(KernelArg *args, const void *params, const void* )
272272
INIT_KARG(&args[2], blasArgs->D);
273273
initSizeKarg(&args[3], blasArgs->N);
274274
initSizeKarg(&args[4], blasArgs->offBX);
275-
incx = blasArgs->ldb.vector;
275+
incx = blasArgs->ldb.Vector;
276276
INIT_KARG(&args[5], incx);
277277
initSizeKarg(&args[6], blasArgs->offCY);
278-
incy = blasArgs->ldc.vector;
278+
incy = blasArgs->ldc.Vector;
279279
INIT_KARG(&args[7], incy);
280280
doConj = blasArgs->K;
281281
INIT_KARG(&args[8], doConj);

‎src/library/blas/gens/gbmv.cpp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -389,9 +389,9 @@ assignKargs(KernelArg *args, const void *params, const void* )
389389
initSizeKarg(&args[6], fKU);
390390

391391
initSizeKarg(&args[7], blasArgs->lda.matrix);
392-
inc = blasArgs->ldb.vector;
392+
inc = blasArgs->ldb.Vector;
393393
INIT_KARG(&args[8], inc);
394-
inc = blasArgs->ldc.vector;
394+
inc = blasArgs->ldc.Vector;
395395
INIT_KARG(&args[9], inc);
396396

397397
initSizeKarg(&args[10], blasArgs->offa);

‎src/library/blas/gens/gemv.c

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -434,12 +434,12 @@ assignKargs(KernelArg *args, const void *params, const void *extra)
434434
initSizeKarg(&args[i++], blasArgs->offCY);
435435
}
436436
if (!(kflags & KEXTRA_INCX_ONE)) {
437-
inc = blasArgs->ldb.vector;
437+
inc = blasArgs->ldb.Vector;
438438
INIT_KARG(&args[i], inc);
439439
i++;
440440
}
441441
if (!(kflags & KEXTRA_INCY_ONE)) {
442-
inc = blasArgs->ldc.vector;
442+
inc = blasArgs->ldc.Vector;
443443
INIT_KARG(&args[i], inc);
444444
i++;
445445
}
@@ -479,12 +479,12 @@ fixupArgs(void *args, SubproblemDim *subdims, void *extra)
479479
else {
480480
kargs->offA += off * kargs->lda.matrix;
481481
}
482-
if (kargs->ldc.vector < 0) {
482+
if (kargs->ldc.Vector < 0) {
483483
// K store the original height of the matrix A
484-
kargs->offCY += (kargs->K - off) * abs(kargs->ldc.vector);
484+
kargs->offCY += (kargs->K - off) * abs(kargs->ldc.Vector);
485485
}
486486
else {
487-
kargs->offCY += off * kargs->ldc.vector;
487+
kargs->offCY += off * kargs->ldc.Vector;
488488
}
489489
}
490490

‎src/library/blas/gens/ger_lds.cpp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -317,8 +317,8 @@ assignKargs(KernelArg *args, const void *params, const void*)
317317
initSizeKarg(&args[3], blasArgs->M);
318318
initSizeKarg(&args[4], blasArgs->N);
319319

320-
incx = blasArgs->ldb.vector;
321-
incy = blasArgs->ldc.vector;
320+
incx = blasArgs->ldb.Vector;
321+
incy = blasArgs->ldc.Vector;
322322
initSizeKarg(&args[5], blasArgs->offBX);
323323
INIT_KARG(&args[6], incx);
324324
initSizeKarg(&args[7], blasArgs->offCY);

0 commit comments

Comments
 (0)