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

Separated expert, non-expert typed APIs.

Browse Source 
Details:
- Split existing typed APIs into two subsets of interfaces: one for use
  with expert parameters, such as the cntx_t*, and one without. This
  separation was already in place for the object APIs, and after this
  commit the typed and object APIs will have similar expert and non-
  expert APIs. The expert functions will be suffixed with "_ex" just as
  is the case for expert interfaces in the object APIs.
- Updated internal invocations of typed APIs (functions such as
  bli_?setm() and bli_?scalv()) throughout BLIS to reflect use of the
  new explictly expert APIs.
- Updated example code in examples/tapi to reflect the existence (and
  usage) of non-expert APIs.
- Bumped the major soname version number in 'so_version'. While code
  compiled against a previous version/commit will likely still work
  (since the old typed function symbol names still exist in the new API,
  just with one less function argument) the semantics of the function
  have changed if the cntx_t* parameter the application passes in is
  non-NULL. For example, calling bli_daxpyv() with a non-NULL context
  does not behave the same way now as it did before; before, the
  context would be used in the computation, and now the context would
  be ignored since the interace for that function no longer expects a
  context argument.
This commit is contained in:
Field G. Van Zee
2018-07-06 19:14:02 -05:00
parent 331694e524
commit e88aedae73
128 changed files with 2006 additions and 818 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
frame/1/bli_l1v.h
View File

@@ -36,12 +36,16 @@
#include "bli_l1v_ft.h"
// Prototype object APIs with and without contexts.
// Prototype object APIs (expert and non-expert).
#include "bli_oapi_w_cntx.h"
#include "bli_l1v_oapi.h"
#include "bli_oapi_wo_cntx.h"
#include "bli_l1v_oapi.h"
// Prototype typed APIs (expert and non-expert).
#include "bli_tapi_w_cntx.h"
#include "bli_l1v_tapi.h"
#include "bli_tapi_wo_cntx.h"
#include "bli_l1v_tapi.h"
// Pack-related

60
frame/1/bli_l1v_oapi.c
View File

@@ -47,12 +47,12 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* x, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -70,7 +70,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_7 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
conjx, \
n, \
buf_x, inc_x, \
@@ -91,12 +91,12 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* x, \
obj_t* index \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -113,7 +113,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_5 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
n, \
buf_x, incx, \
buf_index, \
@@ -133,12 +133,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* x, \
obj_t* beta, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -171,7 +171,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_9 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
conjx, \
n, \
buf_alpha, \
@@ -193,12 +193,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* alpha, \
obj_t* x, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -226,7 +226,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_8 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
conjx, \
n, \
buf_alpha, \
@@ -248,12 +248,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* x, \
obj_t* y, \
obj_t* rho \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -273,7 +273,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_9 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
conjx, \
conjy, \
n, \
@@ -297,12 +297,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* y, \
obj_t* beta, \
obj_t* rho \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -337,7 +337,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_11 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
conjx, \
conjy, \
n, \
@@ -359,12 +359,12 @@ GENFRONT( dotxv )
void PASTEMAC(opname,EX_SUF) \
( \
obj_t* x \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -379,7 +379,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_4 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
n, \
buf_x, inc_x, \
cntx \
@@ -396,12 +396,12 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* alpha, \
obj_t* x \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -427,7 +427,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_6 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
BLIS_NO_CONJUGATE, /* internal conjugation applied during copy-cast. */ \
n, \
buf_alpha, \
@@ -447,12 +447,12 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* x, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -469,7 +469,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_6 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
n, \
buf_x, inc_x, \
buf_y, inc_y, \
@@ -488,12 +488,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* x, \
obj_t* beta, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -521,7 +521,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_8 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
conjx, \
n, \
buf_x, inc_x, \

20
frame/1/bli_l1v_oapi.h
View File

@@ -44,7 +44,7 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* x, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( addv )
@@ -59,7 +59,7 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* x, \
obj_t* index \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( amaxv )
@@ -74,7 +74,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* x, \
obj_t* beta, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( axpbyv )
@@ -88,7 +88,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* alpha, \
obj_t* x, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( axpyv )
@@ -103,7 +103,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* x, \
obj_t* y, \
obj_t* rho \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( dotv )
@@ -119,7 +119,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* y, \
obj_t* beta, \
obj_t* rho \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( dotxv )
@@ -131,7 +131,7 @@ GENTPROT( dotxv )
void PASTEMAC(opname,EX_SUF) \
( \
obj_t* x \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( invertv )
@@ -144,7 +144,7 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* alpha, \
obj_t* x \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( scalv )
@@ -158,7 +158,7 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* x, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( swapv )
@@ -172,7 +172,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* x, \
obj_t* beta, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( xpbyv )

2
frame/1/bli_l1v_oapi_wc.c
View File

@@ -35,7 +35,7 @@
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// context-aware.
// having expert parameters.
#include "bli_oapi_w_cntx.h"
// Define the macro protecting the object API definitions.

2
frame/1/bli_l1v_oapi_woc.c
View File

@@ -35,7 +35,7 @@
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// context-less.
// omitting expert parameters.
#include "bli_oapi_wo_cntx.h"
// Define the macro protecting the object API definitions.

94
frame/1/bli_l1v_tapi.c
View File

@@ -32,7 +32,9 @@
*/
#include "blis.h"
// Guard the function definitions so that they are only compiled when
// #included from files that define the typed API macros.
#ifdef BLIS_ENABLE_TAPI
//
// Define BLAS-like interfaces with typed operands.
@@ -41,16 +43,18 @@
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
dim_t n, \
ctype* x, inc_t incx, \
ctype* y, inc_t incy, \
cntx_t* cntx \
ctype* y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -77,15 +81,17 @@ INSERT_GENTFUNC_BASIC( subv, BLIS_SUBV_KER )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
dim_t n, \
ctype* x, inc_t incx, \
dim_t* index, \
cntx_t* cntx \
dim_t* index \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -109,18 +115,20 @@ INSERT_GENTFUNC_BASIC( amaxv, BLIS_AMAXV_KER )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
dim_t n, \
ctype* alpha, \
ctype* x, inc_t incx, \
ctype* beta, \
ctype* y, inc_t incy, \
cntx_t* cntx \
ctype* y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -141,23 +149,25 @@ void PASTEMAC(ch,opname) \
); \
}
INSERT_GENTFUNC_BASIC( axpbyv, BLIS_AXPBYV_KER )
INSERT_GENTFUNC_BASIC( axpbyv, BLIS_AXPBYV_KER )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
dim_t n, \
ctype* alpha, \
ctype* x, inc_t incx, \
ctype* y, inc_t incy, \
cntx_t* cntx \
ctype* y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -185,18 +195,20 @@ INSERT_GENTFUNC_BASIC( scal2v, BLIS_SCAL2V_KER )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
conj_t conjy, \
dim_t n, \
ctype* x, inc_t incx, \
ctype* y, inc_t incy, \
ctype* rho, \
cntx_t* cntx \
ctype* rho \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -223,7 +235,7 @@ INSERT_GENTFUNC_BASIC( dotv, BLIS_DOTV_KER )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
conj_t conjy, \
@@ -232,11 +244,13 @@ void PASTEMAC(ch,opname) \
ctype* x, inc_t incx, \
ctype* y, inc_t incy, \
ctype* beta, \
ctype* rho, \
cntx_t* cntx \
ctype* rho \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -265,14 +279,16 @@ INSERT_GENTFUNC_BASIC( dotxv, BLIS_DOTXV_KER )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
dim_t n, \
ctype* x, inc_t incx, \
cntx_t* cntx \
ctype* x, inc_t incx \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -295,16 +311,18 @@ INSERT_GENTFUNC_BASIC( invertv, BLIS_INVERTV_KER )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjalpha, \
dim_t n, \
ctype* alpha, \
ctype* x, inc_t incx, \
cntx_t* cntx \
ctype* x, inc_t incx \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -323,22 +341,24 @@ void PASTEMAC(ch,opname) \
); \
}
INSERT_GENTFUNC_BASIC( scalv, BLIS_SCALV_KER )
INSERT_GENTFUNC_BASIC( setv, BLIS_SETV_KER )
INSERT_GENTFUNC_BASIC( scalv, BLIS_SCALV_KER )
INSERT_GENTFUNC_BASIC( setv, BLIS_SETV_KER )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
dim_t n, \
ctype* x, inc_t incx, \
ctype* y, inc_t incy, \
cntx_t* cntx \
ctype* y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -361,17 +381,19 @@ INSERT_GENTFUNC_BASIC( swapv, BLIS_SWAPV_KER )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
dim_t n, \
ctype* x, inc_t incx, \
ctype* beta, \
ctype* y, inc_t incy, \
cntx_t* cntx \
ctype* y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -391,6 +413,8 @@ void PASTEMAC(ch,opname) \
); \
}
INSERT_GENTFUNC_BASIC( xpbyv, BLIS_XPBYV_KER )
INSERT_GENTFUNC_BASIC( xpbyv, BLIS_XPBYV_KER )
#endif

254
frame/1/bli_l1v_tapi.h
View File

@@ -34,53 +34,221 @@
//
// Generate prototypes for level-1v operations.
// Prototype BLAS-like interfaces with typed operands.
//
#undef addv_ker_name
#define addv_ker_name addv
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
dim_t n, \
ctype* restrict x, inc_t incx, \
ctype* restrict y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
);
#undef amaxv_ker_name
#define amaxv_ker_name amaxv
#undef axpbyv_ker_name
#define axpbyv_ker_name axpbyv
#undef axpyv_ker_name
#define axpyv_ker_name axpyv
#undef copyv_ker_name
#define copyv_ker_name copyv
#undef dotv_ker_name
#define dotv_ker_name dotv
#undef dotxv_ker_name
#define dotxv_ker_name dotxv
#undef invertv_ker_name
#define invertv_ker_name invertv
#undef scalv_ker_name
#define scalv_ker_name scalv
#undef scal2v_ker_name
#define scal2v_ker_name scal2v
#undef setv_ker_name
#define setv_ker_name setv
#undef subv_ker_name
#define subv_ker_name subv
#undef swapv_ker_name
#define swapv_ker_name swapv
#undef xpbyv_ker_name
#define xpbyv_ker_name xpbyv
INSERT_GENTPROT_BASIC0( addv )
// Include the level-1v kernel API template.
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
dim_t n, \
ctype* restrict x, inc_t incx, \
dim_t* restrict index \
BLIS_TAPI_EX_PARAMS \
); \
#include "bli_l1v_ker.h"
INSERT_GENTPROT_BASIC0( amaxv )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
dim_t n, \
ctype* restrict alpha, \
ctype* restrict x, inc_t incx, \
ctype* restrict beta, \
ctype* restrict y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
); \
INSERT_GENTPROT_BASIC0( axpbyv )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
dim_t n, \
ctype* restrict alpha, \
ctype* restrict x, inc_t incx, \
ctype* restrict y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
); \
INSERT_GENTPROT_BASIC0( axpyv )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
dim_t n, \
ctype* restrict x, inc_t incx, \
ctype* restrict y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( copyv )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
conj_t conjy, \
dim_t n, \
ctype* restrict x, inc_t incx, \
ctype* restrict y, inc_t incy, \
ctype* restrict rho \
BLIS_TAPI_EX_PARAMS \
); \
INSERT_GENTPROT_BASIC0( dotv )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
conj_t conjy, \
dim_t n, \
ctype* restrict alpha, \
ctype* restrict x, inc_t incx, \
ctype* restrict y, inc_t incy, \
ctype* restrict beta, \
ctype* restrict rho \
BLIS_TAPI_EX_PARAMS \
); \
INSERT_GENTPROT_BASIC0( dotxv )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
dim_t n, \
ctype* restrict x, inc_t incx \
BLIS_TAPI_EX_PARAMS \
); \
INSERT_GENTPROT_BASIC0( invertv )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjalpha, \
dim_t n, \
ctype* restrict alpha, \
ctype* restrict x, inc_t incx \
BLIS_TAPI_EX_PARAMS \
); \
INSERT_GENTPROT_BASIC0( scalv )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
dim_t n, \
ctype* restrict alpha, \
ctype* restrict x, inc_t incx, \
ctype* restrict y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
); \
INSERT_GENTPROT_BASIC0( scal2v )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjalpha, \
dim_t n, \
ctype* restrict alpha, \
ctype* restrict x, inc_t incx \
BLIS_TAPI_EX_PARAMS \
); \
INSERT_GENTPROT_BASIC0( setv )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
dim_t n, \
ctype* restrict x, inc_t incx, \
ctype* restrict y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( subv )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
dim_t n, \
ctype* restrict x, inc_t incx, \
ctype* restrict y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
); \
INSERT_GENTPROT_BASIC0( swapv )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
dim_t n, \
ctype* restrict x, inc_t incx, \
ctype* restrict beta, \
ctype* restrict y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
); \
INSERT_GENTPROT_BASIC0( xpbyv )

46
frame/1/bli_l1v_tapi_wc.c Normal file
View File

@@ -0,0 +1,46 @@
/*
BLIS
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2014, The University of Texas at Austin
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
met:
- Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
- Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
- Neither the name of The University of Texas at Austin nor the names
of its contributors may be used to endorse or promote products
derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// having expert parameters.
#include "bli_tapi_w_cntx.h"
// Define the macro protecting the typed API definitions.
#define BLIS_ENABLE_TAPI
// Include the typed API definitions here.
#include "bli_l1v_tapi.c"

46
frame/1/bli_l1v_tapi_woc.c Normal file
View File

@@ -0,0 +1,46 @@
/*
BLIS
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2014, The University of Texas at Austin
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
met:
- Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
- Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
- Neither the name of The University of Texas at Austin nor the names
of its contributors may be used to endorse or promote products
derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// omitting expert parameters.
#include "bli_tapi_wo_cntx.h"
// Define the macro protecting the typed API definitions.
#define BLIS_ENABLE_TAPI
// Include the typed API definitions here.
#include "bli_l1v_tapi.c"

7
frame/1d/bli_l1d.h
View File

@@ -34,11 +34,16 @@
#include "bli_l1d_check.h"
// Prototype object APIs with and without contexts.
// Prototype object APIs (expert and non-expert).
#include "bli_oapi_w_cntx.h"
#include "bli_l1d_oapi.h"
#include "bli_oapi_wo_cntx.h"
#include "bli_l1d_oapi.h"
// Prototype typed APIs (expert and non-expert).
#include "bli_tapi_w_cntx.h"
#include "bli_l1d_tapi.h"
#include "bli_tapi_wo_cntx.h"
#include "bli_l1d_tapi.h"

30
frame/1d/bli_l1d_oapi.c
View File

@@ -47,12 +47,12 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* x, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -75,7 +75,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_12 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
diagoffx, \
diagx, \
transx, \
@@ -100,12 +100,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* alpha, \
obj_t* x, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -138,7 +138,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_13 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
diagoffx, \
diagx, \
transx, \
@@ -161,12 +161,12 @@ GENFRONT( scal2d )
void PASTEMAC(opname,EX_SUF) \
( \
obj_t* x \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -184,7 +184,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_7 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
diagoffx, \
m, \
n, \
@@ -203,12 +203,12 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* alpha, \
obj_t* x \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -237,7 +237,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_9 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
BLIS_NO_CONJUGATE, /* internal conjugation applied during copy-cast. */ \
diagoffx, \
m, \
@@ -259,12 +259,12 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* alpha, \
obj_t* x \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -284,7 +284,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_8 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
diagoffx, \
m, \
n, \

8
frame/1d/bli_l1d_oapi.h
View File

@@ -44,7 +44,7 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* x, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( addd )
@@ -60,7 +60,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* alpha, \
obj_t* x, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( axpyd )
@@ -73,7 +73,7 @@ GENTPROT( scal2d )
void PASTEMAC(opname,EX_SUF) \
( \
obj_t* x \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( invertd )
@@ -86,7 +86,7 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* alpha, \
obj_t* x \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( scald )

2
frame/1d/bli_l1d_oapi_wc.c
View File

@@ -35,7 +35,7 @@
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// context-aware.
// having expert parameters.
#include "bli_oapi_w_cntx.h"
// Define the macro protecting the object API definitions.

2
frame/1d/bli_l1d_oapi_woc.c
View File

@@ -35,7 +35,7 @@
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// context-less.
// omitting expert parameters.
#include "bli_oapi_wo_cntx.h"
// Define the macro protecting the object API definitions.

47
frame/1d/bli_l1d_tapi.c
View File

@@ -32,7 +32,9 @@
*/
#include "blis.h"
// Guard the function definitions so that they are only compiled when
// #included from files that define the typed API macros.
#ifdef BLIS_ENABLE_TAPI
//
// Define BLAS-like interfaces with typed operands.
@@ -41,7 +43,7 @@
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kername, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
doff_t diagoffx, \
diag_t diagx, \
@@ -49,11 +51,13 @@ void PASTEMAC(ch,opname) \
dim_t m, \
dim_t n, \
ctype* x, inc_t rs_x, inc_t cs_x, \
ctype* y, inc_t rs_y, inc_t cs_y, \
cntx_t* cntx \
ctype* y, inc_t rs_y, inc_t cs_y \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -117,7 +121,7 @@ INSERT_GENTFUNC_BASIC2( subd, subv, BLIS_SUBV_KER )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kername, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
doff_t diagoffx, \
diag_t diagx, \
@@ -126,11 +130,13 @@ void PASTEMAC(ch,opname) \
dim_t n, \
ctype* alpha, \
ctype* x, inc_t rs_x, inc_t cs_x, \
ctype* y, inc_t rs_y, inc_t cs_y, \
cntx_t* cntx \
ctype* y, inc_t rs_y, inc_t cs_y \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -194,16 +200,18 @@ INSERT_GENTFUNC_BASIC2( scal2d, scal2v, BLIS_SCAL2V_KER )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kername, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
doff_t diagoffx, \
dim_t m, \
dim_t n, \
ctype* x, inc_t rs_x, inc_t cs_x, \
cntx_t* cntx \
ctype* x, inc_t rs_x, inc_t cs_x \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -247,18 +255,20 @@ INSERT_GENTFUNC_BASIC2( invertd, invertv, BLIS_INVERTV_KER )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kername, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjalpha, \
doff_t diagoffx, \
dim_t m, \
dim_t n, \
ctype* alpha, \
ctype* x, inc_t rs_x, inc_t cs_x, \
cntx_t* cntx \
ctype* x, inc_t rs_x, inc_t cs_x \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -305,17 +315,19 @@ INSERT_GENTFUNC_BASIC2( setd, setv, BLIS_SETV_KER )
#undef GENTFUNCR
#define GENTFUNCR( ctype, ctype_r, ch, chr, opname, kername, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
doff_t diagoffx, \
dim_t m, \
dim_t n, \
ctype_r* alpha, \
ctype* x, inc_t rs_x, inc_t cs_x, \
cntx_t* cntx \
ctype* x, inc_t rs_x, inc_t cs_x \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
const num_t dt_r = PASTEMAC(chr,type); \
@@ -374,3 +386,6 @@ void PASTEMAC(ch,opname) \
INSERT_GENTFUNCR_BASIC2( setid, setv, BLIS_SETV_KER )
#endif

30
frame/1d/bli_l1d_tapi.h
View File

@@ -40,7 +40,7 @@
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
doff_t diagoffx, \
diag_t diagx, \
@@ -48,8 +48,8 @@ void PASTEMAC(ch,opname) \
dim_t m, \
dim_t n, \
ctype* x, inc_t rs_x, inc_t cs_x, \
ctype* y, inc_t rs_y, inc_t cs_y, \
cntx_t* cntx \
ctype* y, inc_t rs_y, inc_t cs_y \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( addd )
@@ -60,7 +60,7 @@ INSERT_GENTPROT_BASIC0( subd )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
doff_t diagoffx, \
diag_t diagx, \
@@ -69,8 +69,8 @@ void PASTEMAC(ch,opname) \
dim_t n, \
ctype* alpha, \
ctype* x, inc_t rs_x, inc_t cs_x, \
ctype* y, inc_t rs_y, inc_t cs_y, \
cntx_t* cntx \
ctype* y, inc_t rs_y, inc_t cs_y \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( axpyd )
@@ -80,13 +80,13 @@ INSERT_GENTPROT_BASIC0( scal2d )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
doff_t diagoffx, \
dim_t m, \
dim_t n, \
ctype* x, inc_t rs_x, inc_t cs_x, \
cntx_t* cntx \
ctype* x, inc_t rs_x, inc_t cs_x \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( invertd )
@@ -95,15 +95,15 @@ INSERT_GENTPROT_BASIC0( invertd )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjalpha, \
doff_t diagoffx, \
dim_t m, \
dim_t n, \
ctype* alpha, \
ctype* x, inc_t rs_x, inc_t cs_x, \
cntx_t* cntx \
ctype* x, inc_t rs_x, inc_t cs_x \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( scald )
@@ -113,14 +113,14 @@ INSERT_GENTPROT_BASIC0( setd )
#undef GENTPROTR
#define GENTPROTR( ctype, ctype_r, ch, chr, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
doff_t diagoffx, \
dim_t m, \
dim_t n, \
ctype_r* alpha, \
ctype* x, inc_t rs_x, inc_t cs_x, \
cntx_t* cntx \
ctype* x, inc_t rs_x, inc_t cs_x \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROTR_BASIC0( setid )

46
frame/1d/bli_l1d_tapi_wc.c Normal file
View File

@@ -0,0 +1,46 @@
/*
BLIS
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2014, The University of Texas at Austin
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
met:
- Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
- Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
- Neither the name of The University of Texas at Austin nor the names
of its contributors may be used to endorse or promote products
derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// having expert parameters.
#include "bli_tapi_w_cntx.h"
// Define the macro protecting the typed API definitions.
#define BLIS_ENABLE_TAPI
// Include the typed API definitions here.
#include "bli_l1d_tapi.c"

46
frame/1d/bli_l1d_tapi_woc.c Normal file
View File

@@ -0,0 +1,46 @@
/*
BLIS
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2014, The University of Texas at Austin
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
met:
- Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
- Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
- Neither the name of The University of Texas at Austin nor the names
of its contributors may be used to endorse or promote products
derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// omitting expert parameters.
#include "bli_tapi_wo_cntx.h"
// Define the macro protecting the typed API definitions.
#define BLIS_ENABLE_TAPI
// Include the typed API definitions here.
#include "bli_l1d_tapi.c"

6
frame/1f/bli_l1f.h
View File

@@ -36,12 +36,16 @@
#include "bli_l1f_ft.h"
// Prototype object APIs with and without contexts.
// Prototype object APIs (expert and non-expert).
#include "bli_oapi_w_cntx.h"
#include "bli_l1f_oapi.h"
#include "bli_oapi_wo_cntx.h"
#include "bli_l1f_oapi.h"
// Prototype typed APIs (expert and non-expert).
#include "bli_tapi_w_cntx.h"
#include "bli_l1f_tapi.h"
#include "bli_tapi_wo_cntx.h"
#include "bli_l1f_tapi.h"
// Reference kernel headers

30
frame/1f/bli_l1f_oapi.c
View File

@@ -50,12 +50,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* x, \
obj_t* y, \
obj_t* z \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -91,7 +91,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_12 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
conjx, \
conjy, \
n, \
@@ -116,12 +116,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* a, \
obj_t* x, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -157,7 +157,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_13 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
conja, \
conjx, \
m, \
@@ -184,12 +184,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* y, \
obj_t* rho, \
obj_t* z \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -222,7 +222,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_13 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
conjxt, \
conjx, \
conjy, \
@@ -252,12 +252,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* beta, \
obj_t* y, \
obj_t* z \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -304,7 +304,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_20 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
conjat, \
conja, \
conjw, \
@@ -335,12 +335,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* x, \
obj_t* beta, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -381,7 +381,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_14 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
conjat, \
conjx, \
m, \

10
frame/1f/bli_l1f_oapi.h
View File

@@ -47,7 +47,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* x, \
obj_t* y, \
obj_t* z \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( axpy2v )
@@ -62,7 +62,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* a, \
obj_t* x, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( axpyf )
@@ -79,7 +79,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* y, \
obj_t* rho, \
obj_t* z \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( dotaxpyv )
@@ -98,7 +98,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* beta, \
obj_t* y, \
obj_t* z \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( dotxaxpyf )
@@ -114,7 +114,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* x, \
obj_t* beta, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENTPROT( dotxf )

2
frame/1f/bli_l1f_oapi_wc.c
View File

@@ -35,7 +35,7 @@
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// context-aware.
// having expert parameters.
#include "bli_oapi_w_cntx.h"
// Define the macro protecting the object API definitions.

2
frame/1f/bli_l1f_oapi_woc.c
View File

@@ -35,7 +35,7 @@
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// context-less.
// omitting expert parameters.
#include "bli_oapi_wo_cntx.h"
// Define the macro protecting the object API definitions.

47
frame/1f/bli_l1f_tapi.c
View File

@@ -32,7 +32,9 @@
*/
#include "blis.h"
// Guard the function definitions so that they are only compiled when
// #included from files that define the typed API macros.
#ifdef BLIS_ENABLE_TAPI
//
// Define BLAS-like interfaces with typed operands.
@@ -41,7 +43,7 @@
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
conj_t conjy, \
@@ -50,11 +52,13 @@ void PASTEMAC(ch,opname) \
ctype* alphay, \
ctype* x, inc_t incx, \
ctype* y, inc_t incy, \
ctype* z, inc_t incz, \
cntx_t* cntx \
ctype* z, inc_t incz \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -83,7 +87,7 @@ INSERT_GENTFUNC_BASIC( axpy2v, BLIS_AXPY2V_KER )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conja, \
conj_t conjx, \
@@ -92,11 +96,13 @@ void PASTEMAC(ch,opname) \
ctype* alpha, \
ctype* a, inc_t inca, inc_t lda, \
ctype* x, inc_t incx, \
ctype* y, inc_t incy, \
cntx_t* cntx \
ctype* y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -125,7 +131,7 @@ INSERT_GENTFUNC_BASIC( axpyf, BLIS_AXPYF_KER )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjxt, \
conj_t conjx, \
@@ -135,11 +141,13 @@ void PASTEMAC(ch,opname) \
ctype* x, inc_t incx, \
ctype* y, inc_t incy, \
ctype* rho, \
ctype* z, inc_t incz, \
cntx_t* cntx \
ctype* z, inc_t incz \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -169,7 +177,7 @@ INSERT_GENTFUNC_BASIC( dotaxpyv, BLIS_DOTAXPYV_KER )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjat, \
conj_t conja, \
@@ -183,11 +191,13 @@ void PASTEMAC(ch,opname) \
ctype* x, inc_t incx, \
ctype* beta, \
ctype* y, inc_t incy, \
ctype* z, inc_t incz, \
cntx_t* cntx \
ctype* z, inc_t incz \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -221,7 +231,7 @@ INSERT_GENTFUNC_BASIC( dotxaxpyf, BLIS_DOTXAXPYF_KER )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, kerid ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjat, \
conj_t conjx, \
@@ -231,11 +241,13 @@ void PASTEMAC(ch,opname) \
ctype* a, inc_t inca, inc_t lda, \
ctype* x, inc_t incx, \
ctype* beta, \
ctype* y, inc_t incy, \
cntx_t* cntx \
ctype* y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -261,3 +273,6 @@ void PASTEMAC(ch,opname) \
INSERT_GENTFUNC_BASIC( dotxf, BLIS_DOTXF_KER )
#endif

108
frame/1f/bli_l1f_tapi.h
View File

@@ -34,25 +34,107 @@
//
// Generate prototypes for level-1f operations.
// Prototype BLAS-like interfaces with typed operands.
//
#undef axpy2v_ker_name
#define axpy2v_ker_name axpy2v
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
conj_t conjy, \
dim_t n, \
ctype* alphax, \
ctype* alphay, \
ctype* x, inc_t incx, \
ctype* y, inc_t incy, \
ctype* z, inc_t incz \
BLIS_TAPI_EX_PARAMS \
);
#undef dotaxpyv_ker_name
#define dotaxpyv_ker_name dotaxpyv
INSERT_GENTPROT_BASIC0( axpy2v )
#undef axpyf_ker_name
#define axpyf_ker_name axpyf
#undef dotxf_ker_name
#define dotxf_ker_name dotxf
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conja, \
conj_t conjx, \
dim_t m, \
dim_t b_n, \
ctype* alpha, \
ctype* a, inc_t inca, inc_t lda, \
ctype* x, inc_t incx, \
ctype* y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
);
#undef dotxaxpyf_ker_name
#define dotxaxpyf_ker_name dotxaxpyf
INSERT_GENTPROT_BASIC0( axpyf )
// Include the level-1f kernel API template.
#include "bli_l1f_ker.h"
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjxt, \
conj_t conjx, \
conj_t conjy, \
dim_t n, \
ctype* alpha, \
ctype* x, inc_t incx, \
ctype* y, inc_t incy, \
ctype* rho, \
ctype* z, inc_t incz \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( dotaxpyv )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjat, \
conj_t conja, \
conj_t conjw, \
conj_t conjx, \
dim_t m, \
dim_t b_n, \
ctype* alpha, \
ctype* a, inc_t inca, inc_t lda, \
ctype* w, inc_t incw, \
ctype* x, inc_t incx, \
ctype* beta, \
ctype* y, inc_t incy, \
ctype* z, inc_t incz \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( dotxaxpyf )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjat, \
conj_t conjx, \
dim_t m, \
dim_t b_n, \
ctype* alpha, \
ctype* a, inc_t inca, inc_t lda, \
ctype* x, inc_t incx, \
ctype* beta, \
ctype* y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( dotxf )

46
frame/1f/bli_l1f_tapi_wc.c Normal file
View File

@@ -0,0 +1,46 @@
/*
BLIS
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2014, The University of Texas at Austin
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
met:
- Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
- Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
- Neither the name of The University of Texas at Austin nor the names
of its contributors may be used to endorse or promote products
derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// having expert parameters.
#include "bli_tapi_w_cntx.h"
// Define the macro protecting the typed API definitions.
#define BLIS_ENABLE_TAPI
// Include the typed API definitions here.
#include "bli_l1f_tapi.c"

46
frame/1f/bli_l1f_tapi_woc.c Normal file
View File

@@ -0,0 +1,46 @@
/*
BLIS
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2014, The University of Texas at Austin
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
met:
- Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
- Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
- Neither the name of The University of Texas at Austin nor the names
of its contributors may be used to endorse or promote products
derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// omitting expert parameters.
#include "bli_tapi_wo_cntx.h"
// Define the macro protecting the typed API definitions.
#define BLIS_ENABLE_TAPI
// Include the typed API definitions here.
#include "bli_l1f_tapi.c"

7
frame/1m/bli_l1m.h
View File

@@ -37,13 +37,18 @@
#include "bli_l1m_ft.h"
#include "bli_l1m_voft.h"
// Prototype object APIs with and without contexts.
// Prototype object APIs (expert and non-expert).
#include "bli_oapi_w_cntx.h"
#include "bli_l1m_oapi.h"
#include "bli_oapi_wo_cntx.h"
#include "bli_l1m_oapi.h"
// Prototype typed APIs (expert and non-expert).
#include "bli_tapi_w_cntx.h"
#include "bli_l1m_tapi.h"
#include "bli_tapi_wo_cntx.h"
#include "bli_l1m_tapi.h"
#include "bli_l1m_unb_var1.h"
// Pack-related

24
frame/1m/bli_l1m_oapi.c
View File

@@ -47,12 +47,12 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* x, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -76,7 +76,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_13 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
diagoffx, \
diagx, \
uplox, \
@@ -102,12 +102,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* alpha, \
obj_t* x, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -141,7 +141,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_14 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
diagoffx, \
diagx, \
uplox, \
@@ -166,12 +166,12 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* alpha, \
obj_t* x \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -215,7 +215,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_11 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
BLIS_NO_CONJUGATE, /* internal conjugation applied during copy-cast. */ \
diagoffx, \
diagx, \
@@ -238,12 +238,12 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* alpha, \
obj_t* x \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( x ); \
\
@@ -274,7 +274,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_11 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
BLIS_NO_CONJUGATE, /* internal conjugation applied during copy-cast. */ \
diagoffx, \
diagx, \

6
frame/1m/bli_l1m_oapi.h
View File

@@ -44,7 +44,7 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* x, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENPROT( addm )
@@ -60,7 +60,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* alpha, \
obj_t* x, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENPROT( axpym )
@@ -74,7 +74,7 @@ void PASTEMAC(opname,EX_SUF) \
( \
obj_t* alpha, \
obj_t* x \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENPROT( scalm )

2
frame/1m/bli_l1m_oapi_wc.c
View File

@@ -35,7 +35,7 @@
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// context-aware.
// having expert parameters.
#include "bli_oapi_w_cntx.h"
// Define the macro protecting the object API definitions.

2
frame/1m/bli_l1m_oapi_woc.c
View File

@@ -35,7 +35,7 @@
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// context-less.
// omitting expert parameters.
#include "bli_oapi_wo_cntx.h"
// Define the macro protecting the object API definitions.

57
frame/1m/bli_l1m_tapi.c
View File

@@ -32,7 +32,9 @@
*/
#include "blis.h"
// Guard the function definitions so that they are only compiled when
// #included from files that define the typed API macros.
#ifdef BLIS_ENABLE_TAPI
//
// Define BLAS-like interfaces with typed operands.
@@ -41,7 +43,7 @@
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, auxker ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
doff_t diagoffx, \
diag_t diagx, \
@@ -50,11 +52,13 @@ void PASTEMAC(ch,opname) \
dim_t m, \
dim_t n, \
ctype* x, inc_t rs_x, inc_t cs_x, \
ctype* y, inc_t rs_y, inc_t cs_y, \
cntx_t* cntx \
ctype* y, inc_t rs_y, inc_t cs_y \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
if ( bli_zero_dim2( m, n ) ) return; \
\
@@ -81,7 +85,7 @@ void PASTEMAC(ch,opname) \
if ( bli_is_upper_or_lower( uplox ) && \
bli_is_unit_diag( diagx ) ) \
{ \
PASTEMAC(ch,auxker) \
PASTEMAC2(ch,auxker,BLIS_TAPI_EX_SUF) \
( \
diagoffx, \
diagx, \
@@ -102,7 +106,7 @@ INSERT_GENTFUNC_BASIC( subm, subd )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
doff_t diagoffx, \
diag_t diagx, \
@@ -111,11 +115,13 @@ void PASTEMAC(ch,opname) \
dim_t m, \
dim_t n, \
ctype* x, inc_t rs_x, inc_t cs_x, \
ctype* y, inc_t rs_y, inc_t cs_y, \
cntx_t* cntx \
ctype* y, inc_t rs_y, inc_t cs_y \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
if ( bli_zero_dim2( m, n ) ) return; \
\
@@ -148,7 +154,7 @@ void PASTEMAC(ch,opname) \
if ( bli_does_trans( transx ) ) \
bli_negate_diag_offset( &diagoffy ); \
\
PASTEMAC(ch,setd) \
PASTEMAC2(ch,setd,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
diagoffy, \
@@ -167,7 +173,7 @@ INSERT_GENTFUNC_BASIC0( copym )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
doff_t diagoffx, \
diag_t diagx, \
@@ -177,11 +183,13 @@ void PASTEMAC(ch,opname) \
dim_t n, \
ctype* alpha, \
ctype* x, inc_t rs_x, inc_t cs_x, \
ctype* y, inc_t rs_y, inc_t cs_y, \
cntx_t* cntx \
ctype* y, inc_t rs_y, inc_t cs_y \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
if ( bli_zero_dim2( m, n ) ) return; \
\
@@ -212,7 +220,7 @@ void PASTEMAC(ch,opname) \
if ( bli_is_upper_or_lower( uplox ) && \
bli_is_unit_diag( diagx ) ) \
{ \
PASTEMAC(ch,axpyd) \
PASTEMAC2(ch,axpyd,BLIS_TAPI_EX_SUF) \
( \
diagoffx, \
diagx, \
@@ -233,7 +241,7 @@ INSERT_GENTFUNC_BASIC0( axpym )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
doff_t diagoffx, \
diag_t diagx, \
@@ -243,11 +251,13 @@ void PASTEMAC(ch,opname) \
dim_t n, \
ctype* alpha, \
ctype* x, inc_t rs_x, inc_t cs_x, \
ctype* y, inc_t rs_y, inc_t cs_y, \
cntx_t* cntx \
ctype* y, inc_t rs_y, inc_t cs_y \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
if ( bli_zero_dim2( m, n ) ) return; \
\
@@ -260,7 +270,7 @@ void PASTEMAC(ch,opname) \
if ( PASTEMAC(ch,eq0)( *alpha ) ) \
{ \
\
PASTEMAC(ch,setm) \
PASTEMAC2(ch,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
diagoffx, \
@@ -301,7 +311,7 @@ void PASTEMAC(ch,opname) \
if ( bli_does_trans( transx ) ) \
bli_negate_diag_offset( &diagoffy ); \
\
PASTEMAC(ch,setd) \
PASTEMAC2(ch,setd,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
diagoffy, \
@@ -320,7 +330,7 @@ INSERT_GENTFUNC_BASIC0( scal2m )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjalpha, \
doff_t diagoffx, \
@@ -329,11 +339,13 @@ void PASTEMAC(ch,opname) \
dim_t m, \
dim_t n, \
ctype* alpha, \
ctype* x, inc_t rs_x, inc_t cs_x, \
cntx_t* cntx \
ctype* x, inc_t rs_x, inc_t cs_x \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
if ( bli_zero_dim2( m, n ) ) return; \
\
@@ -359,3 +371,6 @@ void PASTEMAC(ch,opname) \
INSERT_GENTFUNC_BASIC0( scalm )
INSERT_GENTFUNC_BASIC0( setm )
#endif

18
frame/1m/bli_l1m_tapi.h
View File

@@ -40,7 +40,7 @@
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
doff_t diagoffx, \
diag_t diagx, \
@@ -49,8 +49,8 @@ void PASTEMAC(ch,opname) \
dim_t m, \
dim_t n, \
ctype* x, inc_t rs_x, inc_t cs_x, \
ctype* y, inc_t rs_y, inc_t cs_y, \
cntx_t* cntx \
ctype* y, inc_t rs_y, inc_t cs_y \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( addm )
@@ -61,7 +61,7 @@ INSERT_GENTPROT_BASIC0( subm )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
doff_t diagoffx, \
diag_t diagx, \
@@ -71,8 +71,8 @@ void PASTEMAC(ch,opname) \
dim_t n, \
ctype* alpha, \
ctype* x, inc_t rs_x, inc_t cs_x, \
ctype* y, inc_t rs_y, inc_t cs_y, \
cntx_t* cntx \
ctype* y, inc_t rs_y, inc_t cs_y \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( axpym )
@@ -82,7 +82,7 @@ INSERT_GENTPROT_BASIC0( scal2m )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjalpha, \
doff_t diagoffx, \
@@ -91,8 +91,8 @@ void PASTEMAC(ch,opname) \
dim_t m, \
dim_t n, \
ctype* alpha, \
ctype* x, inc_t rs_x, inc_t cs_x, \
cntx_t* cntx \
ctype* x, inc_t rs_x, inc_t cs_x \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( scalm )

46
frame/1m/bli_l1m_tapi_wc.c Normal file
View File

@@ -0,0 +1,46 @@
/*
BLIS
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2014, The University of Texas at Austin
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
met:
- Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
- Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
- Neither the name of The University of Texas at Austin nor the names
of its contributors may be used to endorse or promote products
derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// having expert parameters.
#include "bli_tapi_w_cntx.h"
// Define the macro protecting the typed API definitions.
#define BLIS_ENABLE_TAPI
// Include the typed API definitions here.
#include "bli_l1m_tapi.c"

46
frame/1m/bli_l1m_tapi_woc.c Normal file
View File

@@ -0,0 +1,46 @@
/*
BLIS
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2014, The University of Texas at Austin
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
met:
- Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
- Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
- Neither the name of The University of Texas at Austin nor the names
of its contributors may be used to endorse or promote products
derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// omitting expert parameters.
#include "bli_tapi_wo_cntx.h"
// Define the macro protecting the typed API definitions.
#define BLIS_ENABLE_TAPI
// Include the typed API definitions here.
#include "bli_l1m_tapi.c"

2
frame/1m/packm/bli_packm_cxk.c
View File

@@ -78,7 +78,7 @@ void PASTEMAC(ch,opname) \
\
/* Treat the micro-panel as panel_dim x panel_len and column-stored
(unit row stride). */ \
PASTEMAC(ch,scal2m) \
PASTEMAC2(ch,scal2m,BLIS_TAPI_EX_SUF) \
( \
0, \
BLIS_NONUNIT_DIAG, \

16
frame/1m/packm/bli_packm_struc_cxk.c
View File

@@ -171,7 +171,7 @@ void PASTEMAC(ch,varname) \
dim_t n_edge = n_panel_max; \
ctype* p_edge = p + (i )*rs_p; \
\
PASTEMAC(ch,setm) \
PASTEMAC2(ch,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -193,7 +193,7 @@ void PASTEMAC(ch,varname) \
dim_t n_edge = n_panel_max - j; \
ctype* p_edge = p + (j )*cs_p; \
\
PASTEMAC(ch,setm) \
PASTEMAC2(ch,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -228,7 +228,7 @@ void PASTEMAC(ch,varname) \
dim_t n_br = n_panel_max - j; \
ctype* p_br = p + (i )*rs_p + (j )*cs_p; \
\
PASTEMAC(ch,setd) \
PASTEMAC2(ch,setd,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -440,7 +440,7 @@ void PASTEMAC(ch,varname) \
ctype* restrict p11 = p + (j2 )*ldp; \
trans_t transc = ( trans_t )conjc; \
\
PASTEMAC(ch,copym) \
PASTEMAC2(ch,copym,BLIS_TAPI_EX_SUF) \
( \
0, \
BLIS_NONUNIT_DIAG, \
@@ -471,7 +471,7 @@ void PASTEMAC(ch,varname) \
/* Now that the diagonal has been made explicitly Hermitian
(if applicable), we can now safely scale the stored
triangle specified by uploc. */ \
PASTEMAC(ch,scalm) \
PASTEMAC2(ch,scalm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -536,7 +536,7 @@ void PASTEMAC(ch,varname) \
the diagonal of the packed panel to kappa. */ \
if ( bli_is_unit_diag( diagc ) ) \
{ \
PASTEMAC(ch,setd) \
PASTEMAC2(ch,setd,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
diagoffp, \
@@ -551,7 +551,7 @@ void PASTEMAC(ch,varname) \
/* If requested, invert the diagonal of the packed panel. */ \
if ( invdiag == TRUE ) \
{ \
PASTEMAC(ch,invertd) \
PASTEMAC2(ch,invertd,BLIS_TAPI_EX_SUF) \
( \
diagoffp, \
m_panel, \
@@ -576,7 +576,7 @@ void PASTEMAC(ch,varname) \
bli_toggle_uplo( &uplop ); \
bli_shift_diag_offset_to_shrink_uplo( uplop, &diagoffp ); \
\
PASTEMAC(ch,setm) \
PASTEMAC2(ch,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
diagoffp, \

30
frame/1m/packm/bli_packm_struc_cxk_3mis.c
View File

@@ -173,7 +173,7 @@ void PASTEMAC(ch,varname) \
ctype_r* p_edge_i = ( ctype_r* )p + is_p + (i )*rs_p; \
ctype_r* p_edge_rpi = ( ctype_r* )p + 2*is_p + (i )*rs_p; \
\
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -185,7 +185,7 @@ void PASTEMAC(ch,varname) \
p_edge_r, rs_p, cs_p, \
cntx \
); \
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -197,7 +197,7 @@ void PASTEMAC(ch,varname) \
p_edge_i, rs_p, cs_p, \
cntx \
); \
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -221,7 +221,7 @@ void PASTEMAC(ch,varname) \
ctype_r* p_edge_i = ( ctype_r* )p + is_p + (j )*cs_p; \
ctype_r* p_edge_rpi = ( ctype_r* )p + 2*is_p + (j )*cs_p; \
\
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -233,7 +233,7 @@ void PASTEMAC(ch,varname) \
p_edge_r, rs_p, cs_p, \
cntx \
); \
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -245,7 +245,7 @@ void PASTEMAC(ch,varname) \
p_edge_i, rs_p, cs_p, \
cntx \
); \
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -282,7 +282,7 @@ void PASTEMAC(ch,varname) \
ctype_r* p_br_r = ( ctype_r* )p + (i )*rs_p + (j )*cs_p; \
ctype_r* p_br_i = ( ctype_r* )p + is_p + (i )*rs_p + (j )*cs_p; \
\
PASTEMAC(chr,setd) \
PASTEMAC2(chr,setd,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -292,7 +292,7 @@ void PASTEMAC(ch,varname) \
p_br_r, rs_p, cs_p, \
cntx \
); \
PASTEMAC(chr,setd) \
PASTEMAC2(chr,setd,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -510,7 +510,7 @@ void PASTEMAC(ch,varname) \
ctype_r kappa_i = PASTEMAC(ch,imag)( *kappa ); \
\
/* Copy the real part of the stored triangle of c11 to p11_r. */ \
PASTEMAC(chr,scal2m) \
PASTEMAC2(chr,scal2m,BLIS_TAPI_EX_SUF) \
( \
0, \
BLIS_NONUNIT_DIAG, \
@@ -526,7 +526,7 @@ void PASTEMAC(ch,varname) \
\
/* Copy the imaginary part of the stored triangle of c11 to p11_i,
scaling by -1 if conjugation on c was requested. */ \
PASTEMAC(chr,scal2m) \
PASTEMAC2(chr,scal2m,BLIS_TAPI_EX_SUF) \
( \
0, \
BLIS_NONUNIT_DIAG, \
@@ -681,7 +681,7 @@ void PASTEMAC(ch,varname) \
ctype_r kappa_i = PASTEMAC(ch,imag)( *kappa ); \
dim_t i; \
\
PASTEMAC(chr,setd) \
PASTEMAC2(chr,setd,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
diagoffp, \
@@ -691,7 +691,7 @@ void PASTEMAC(ch,varname) \
p_r, rs_p, cs_p, \
cntx \
); \
PASTEMAC(chr,setd) \
PASTEMAC2(chr,setd,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
diagoffp, \
@@ -747,7 +747,7 @@ void PASTEMAC(ch,varname) \
bli_toggle_uplo( &uplop ); \
bli_shift_diag_offset_to_shrink_uplo( uplop, &diagoffp ); \
\
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
diagoffp, \
@@ -759,7 +759,7 @@ void PASTEMAC(ch,varname) \
p_r, rs_p, cs_p, \
cntx \
); \
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
diagoffp, \
@@ -771,7 +771,7 @@ void PASTEMAC(ch,varname) \
p_i, rs_p, cs_p, \
cntx \
); \
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
diagoffp, \

24
frame/1m/packm/bli_packm_struc_cxk_4mi.c
View File

@@ -172,7 +172,7 @@ void PASTEMAC(ch,varname) \
ctype_r* p_edge_r = ( ctype_r* )p + (i )*rs_p; \
ctype_r* p_edge_i = ( ctype_r* )p + is_p + (i )*rs_p; \
\
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -184,7 +184,7 @@ void PASTEMAC(ch,varname) \
p_edge_r, rs_p, cs_p, \
cntx \
); \
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -207,7 +207,7 @@ void PASTEMAC(ch,varname) \
ctype_r* p_edge_r = ( ctype_r* )p + (j )*cs_p; \
ctype_r* p_edge_i = ( ctype_r* )p + is_p + (j )*cs_p; \
\
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -219,7 +219,7 @@ void PASTEMAC(ch,varname) \
p_edge_r, rs_p, cs_p, \
cntx \
); \
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -256,7 +256,7 @@ void PASTEMAC(ch,varname) \
ctype_r* p_br_r = ( ctype_r* )p + (i )*rs_p + (j )*cs_p; \
ctype_r* p_br_i = ( ctype_r* )p + is_p + (i )*rs_p + (j )*cs_p; \
\
PASTEMAC(chr,setd) \
PASTEMAC2(chr,setd,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -266,7 +266,7 @@ void PASTEMAC(ch,varname) \
p_br_r, rs_p, cs_p, \
cntx \
); \
PASTEMAC(chr,setd) \
PASTEMAC2(chr,setd,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -484,7 +484,7 @@ void PASTEMAC(ch,varname) \
ctype_r kappa_i = PASTEMAC(ch,imag)( *kappa ); \
\
/* Copy the real part of the stored triangle of c11 to p11_r. */ \
PASTEMAC(chr,scal2m) \
PASTEMAC2(chr,scal2m,BLIS_TAPI_EX_SUF) \
( \
0, \
BLIS_NONUNIT_DIAG, \
@@ -500,7 +500,7 @@ void PASTEMAC(ch,varname) \
\
/* Copy the imaginary part of the stored triangle of c11 to p11_i,
scaling by -1 if conjugation on c was requested. */ \
PASTEMAC(chr,scal2m) \
PASTEMAC2(chr,scal2m,BLIS_TAPI_EX_SUF) \
( \
0, \
BLIS_NONUNIT_DIAG, \
@@ -626,7 +626,7 @@ void PASTEMAC(ch,varname) \
ctype_r kappa_r = PASTEMAC(ch,real)( *kappa ); \
ctype_r kappa_i = PASTEMAC(ch,imag)( *kappa ); \
\
PASTEMAC(chr,setd) \
PASTEMAC2(chr,setd,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
diagoffp, \
@@ -636,7 +636,7 @@ void PASTEMAC(ch,varname) \
p_r, rs_p, cs_p, \
cntx \
); \
PASTEMAC(chr,setd) \
PASTEMAC2(chr,setd,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
diagoffp, \
@@ -679,7 +679,7 @@ void PASTEMAC(ch,varname) \
bli_toggle_uplo( &uplop ); \
bli_shift_diag_offset_to_shrink_uplo( uplop, &diagoffp ); \
\
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
diagoffp, \
@@ -691,7 +691,7 @@ void PASTEMAC(ch,varname) \
p_r, rs_p, cs_p, \
cntx \
); \
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
diagoffp, \

6
frame/1m/packm/bli_packm_struc_cxk_rih.c
View File

@@ -175,7 +175,7 @@ void PASTEMAC(ch,varname) \
dim_t n_edge = n_panel_max; \
ctype_r* p_edge_r = ( ctype_r* )p + (i )*rs_p; \
\
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -197,7 +197,7 @@ void PASTEMAC(ch,varname) \
dim_t n_edge = n_panel_max - j; \
ctype_r* p_edge_r = ( ctype_r* )p + (j )*cs_p; \
\
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -571,7 +571,7 @@ void PASTEMAC(ch,varname) \
bli_toggle_uplo( &uplop ); \
bli_shift_diag_offset_to_shrink_uplo( uplop, &diagoffp ); \
\
PASTEMAC(chr,setm) \
PASTEMAC2(chr,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
diagoffp, \

10
frame/1m/packm/bli_packm_unb_var1.c
View File

@@ -152,7 +152,7 @@ void PASTEMAC(ch,varname) \
because the structure has already been "densified"), this ends
up being the only action we take. Note that if kappa is unit,
the data is simply copied (rather than scaled by one). */ \
PASTEMAC(ch,scal2m) \
PASTEMAC2(ch,scal2m,BLIS_TAPI_EX_SUF) \
( \
diagoffc, \
diagc, \
@@ -194,7 +194,7 @@ void PASTEMAC(ch,varname) \
(as specified by the original value of diagoffc). Notice
that we use a diag parameter of non-unit since we can
assume nothing about the neighboring off-diagonal. */ \
PASTEMAC(ch,scal2m) \
PASTEMAC2(ch,scal2m,BLIS_TAPI_EX_SUF) \
( \
diagoffc, \
BLIS_NONUNIT_DIAG, \
@@ -229,7 +229,7 @@ void PASTEMAC(ch,varname) \
bli_shift_diag_offset_to_shrink_uplo( uplop, &diagoffp ); \
\
/* Set the region opposite the diagonal of p to zero. */ \
PASTEMAC(ch,setm) \
PASTEMAC2(ch,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
diagoffp, \
@@ -255,7 +255,7 @@ void PASTEMAC(ch,varname) \
{ \
ctype* p_edge = p_cast + (m )*rs_p; \
\
PASTEMAC(ch,setm) \
PASTEMAC2(ch,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \
@@ -273,7 +273,7 @@ void PASTEMAC(ch,varname) \
{ \
ctype* p_edge = p_cast + (n )*cs_p; \
\
PASTEMAC(ch,setm) \
PASTEMAC2(ch,setm,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
0, \

2
frame/1m/unpackm/bli_unpackm_blk_var1.c
View File

@@ -235,7 +235,7 @@ void PASTEMAC(ch,varname) \
if ( bli_intersects_diag_n( diagoffc_i, *m_panel_full, *n_panel_full ) && \
bli_is_upper_or_lower( uploc ) ) \
{ \
PASTEMAC(ch,scal2m) \
PASTEMAC2(ch,scal2m,BLIS_TAPI_EX_SUF) \
( \
diagoffc_i, \
diagc, \

2
frame/1m/unpackm/bli_unpackm_cxk.c
View File

@@ -78,7 +78,7 @@ void PASTEMAC(ch,opname) \
\
/* Treat the micro-panel as panel_dim x panel_len and column-stored
(unit row stride). */ \
PASTEMAC(ch,scal2m) \
PASTEMAC2(ch,scal2m,BLIS_TAPI_EX_SUF) \
( \
0, \
BLIS_NONUNIT_DIAG, \

2
frame/1m/unpackm/bli_unpackm_unb_var1.c
View File

@@ -112,7 +112,7 @@ void PASTEMAC(ch,varname)( \
ctype* p_cast = p; \
ctype* c_cast = c; \
\
PASTEMAC(ch,copym) \
PASTEMAC2(ch,copym,BLIS_TAPI_EX_SUF) \
( \
diagoffp,\
BLIS_NONUNIT_DIAG, \

6
frame/2/bli_l2.h
View File

@@ -36,12 +36,16 @@
#include "bli_l2_ft.h"
// Prototype object APIs with and without contexts.
// Prototype object APIs (expert and non-expert).
#include "bli_oapi_w_cntx.h"
#include "bli_l2_oapi.h"
#include "bli_oapi_wo_cntx.h"
#include "bli_l2_oapi.h"
// Prototype typed APIs (expert and non-expert).
#include "bli_tapi_w_cntx.h"
#include "bli_l2_tapi.h"
#include "bli_tapi_wo_cntx.h"
#include "bli_l2_tapi.h"
// Operation-specific headers

36
frame/2/bli_l2_oapi.c
View File

@@ -50,12 +50,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* x, \
obj_t* beta, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( a ); \
\
@@ -93,7 +93,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_14 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
transa, \
conjx, \
m, \
@@ -119,12 +119,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* x, \
obj_t* y, \
obj_t* a \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( a ); \
\
@@ -157,7 +157,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_13 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
conjx, \
conjy, \
m, \
@@ -183,12 +183,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* x, \
obj_t* beta, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( a ); \
\
@@ -226,7 +226,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_14 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
uploa, \
conja, \
conjx, \
@@ -252,12 +252,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* alpha, \
obj_t* x, \
obj_t* a \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( a ); \
\
@@ -287,7 +287,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_10 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
uploa, \
conjx, \
m, \
@@ -311,12 +311,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* x, \
obj_t* y, \
obj_t* a \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( a ); \
\
@@ -349,7 +349,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_13 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
uploa, \
conjx, \
conjy, \
@@ -374,12 +374,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* alpha, \
obj_t* a, \
obj_t* x \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
num_t dt = bli_obj_dt( a ); \
\
@@ -410,7 +410,7 @@ void PASTEMAC(opname,EX_SUF) \
bli_call_ft_11 \
( \
dt, \
opname, \
PASTECH(opname,BLIS_TAPI_EX_SUF), \
uploa, \
transa, \
diaga, \

8
frame/2/bli_l2_oapi.h
View File

@@ -47,7 +47,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* x, \
obj_t* beta, \
obj_t* y \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENPROT( gemv )
@@ -64,7 +64,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* x, \
obj_t* y, \
obj_t* a \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENPROT( ger )
@@ -80,7 +80,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* alpha, \
obj_t* x, \
obj_t* a \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENPROT( her )
@@ -95,7 +95,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* alpha, \
obj_t* a, \
obj_t* x \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENPROT( trmv )

2
frame/2/bli_l2_oapi_wc.c
View File

@@ -35,7 +35,7 @@
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// context-aware.
// having expert parameters.
#include "bli_oapi_w_cntx.h"
// Define the macro protecting the object API definitions.

2
frame/2/bli_l2_oapi_woc.c
View File

@@ -35,7 +35,7 @@
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// context-less.
// omitting expert parameters.
#include "bli_oapi_wo_cntx.h"
// Define the macro protecting the object API definitions.

70
frame/2/bli_l2_tapi.c
View File

@@ -32,7 +32,9 @@
*/
#include "blis.h"
// Guard the function definitions so that they are only compiled when
// #included from files that define the typed API macros.
#ifdef BLIS_ENABLE_TAPI
//
// Define BLAS-like interfaces with typed operands.
@@ -41,7 +43,7 @@
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, ftname, rvarname, cvarname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
trans_t transa, \
conj_t conjx, \
@@ -51,11 +53,13 @@ void PASTEMAC(ch,opname) \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* x, inc_t incx, \
ctype* beta, \
ctype* y, inc_t incy, \
cntx_t* cntx \
ctype* y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
dim_t m_y, n_x; \
\
@@ -72,7 +76,7 @@ void PASTEMAC(ch,opname) \
return early. */ \
if ( bli_zero_dim1( n_x ) || PASTEMAC(ch,eq0)( *alpha ) ) \
{ \
PASTEMAC(ch,scalv) \
PASTEMAC2(ch,scalv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m_y, \
@@ -120,7 +124,7 @@ INSERT_GENTFUNC_BASIC3( gemv, gemv, gemv_unf_var1, gemv_unf_var2 )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, ftname, rvarname, cvarname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
conj_t conjy, \
@@ -129,11 +133,13 @@ void PASTEMAC(ch,opname) \
ctype* alpha, \
ctype* x, inc_t incx, \
ctype* y, inc_t incy, \
ctype* a, inc_t rs_a, inc_t cs_a, \
cntx_t* cntx \
ctype* a, inc_t rs_a, inc_t cs_a \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
/* If x or y has zero elements, or if alpha is zero, return early. */ \
if ( bli_zero_dim2( m, n ) || PASTEMAC(ch,eq0)( *alpha ) ) return; \
@@ -169,7 +175,7 @@ INSERT_GENTFUNC_BASIC3( ger, ger, ger_unb_var1, ger_unb_var2 )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, ftname, conjh, rvarname, cvarname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploa, \
conj_t conja, \
@@ -179,11 +185,13 @@ void PASTEMAC(ch,opname) \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* x, inc_t incx, \
ctype* beta, \
ctype* y, inc_t incy, \
cntx_t* cntx \
ctype* y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
/* Obtain a valid context from the gks if necessary. */ \
if ( cntx == NULL ) cntx = bli_gks_query_cntx(); \
@@ -192,7 +200,7 @@ void PASTEMAC(ch,opname) \
return early. */ \
if ( bli_zero_dim1( m ) || PASTEMAC(ch,eq0)( *alpha ) ) \
{ \
PASTEMAC(ch,scalv) \
PASTEMAC2(ch,scalv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \
@@ -242,18 +250,20 @@ INSERT_GENTFUNC_BASIC4( symv, hemv, BLIS_NO_CONJUGATE, hemv_unf_var1, hemv_unf_v
#undef GENTFUNCR
#define GENTFUNCR( ctype, ctype_r, ch, chr, opname, ftname, conjh, rvarname, cvarname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploa, \
conj_t conjx, \
dim_t m, \
ctype_r* alpha, \
ctype* x, inc_t incx, \
ctype* a, inc_t rs_a, inc_t cs_a, \
cntx_t* cntx \
ctype* a, inc_t rs_a, inc_t cs_a \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
ctype alpha_local; \
\
@@ -303,18 +313,20 @@ INSERT_GENTFUNCR_BASIC4( her, her, BLIS_CONJUGATE, her_unb_var1, her_unb_var2 )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, ftname, conjh, rvarname, cvarname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploa, \
conj_t conjx, \
dim_t m, \
ctype* alpha, \
ctype* x, inc_t incx, \
ctype* a, inc_t rs_a, inc_t cs_a, \
cntx_t* cntx \
ctype* a, inc_t rs_a, inc_t cs_a \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
/* If x has zero elements, or if alpha is zero, return early. */ \
if ( bli_zero_dim1( m ) || PASTEMAC(ch,eq0)( *alpha ) ) return; \
@@ -357,7 +369,7 @@ INSERT_GENTFUNC_BASIC4( syr, her, BLIS_NO_CONJUGATE, her_unb_var1, her_unb_var2
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, ftname, conjh, rvarname, cvarname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploa, \
conj_t conjx, \
@@ -366,11 +378,13 @@ void PASTEMAC(ch,opname) \
ctype* alpha, \
ctype* x, inc_t incx, \
ctype* y, inc_t incy, \
ctype* a, inc_t rs_a, inc_t cs_a, \
cntx_t* cntx \
ctype* a, inc_t rs_a, inc_t cs_a \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
/* If x has zero elements, or if alpha is zero, return early. */ \
if ( bli_zero_dim1( m ) || PASTEMAC(ch,eq0)( *alpha ) ) return; \
@@ -416,7 +430,7 @@ INSERT_GENTFUNC_BASIC4( syr2, her2, BLIS_NO_CONJUGATE, her2_unf_var1, her2_unf_v
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, ftname, rvarname, cvarname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploa, \
trans_t transa, \
@@ -424,11 +438,13 @@ void PASTEMAC(ch,opname) \
dim_t m, \
ctype* alpha, \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* x, inc_t incx, \
cntx_t* cntx \
ctype* x, inc_t incx \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
/* If x has zero elements, return early. */ \
if ( bli_zero_dim1( m ) ) return; \
@@ -439,7 +455,7 @@ void PASTEMAC(ch,opname) \
/* If alpha is zero, set x to zero and return early. */ \
if ( PASTEMAC(ch,eq0)( *alpha ) ) \
{ \
PASTEMAC(ch,setv) \
PASTEMAC2(ch,setv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \
@@ -481,3 +497,7 @@ void PASTEMAC(ch,opname) \
INSERT_GENTFUNC_BASIC3( trmv, trmv, trmv_unf_var1, trmv_unf_var2 )
INSERT_GENTFUNC_BASIC3( trsv, trmv, trsv_unf_var1, trsv_unf_var2 )
#endif

42
frame/2/bli_l2_tapi.h
View File

@@ -40,7 +40,7 @@
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
trans_t transa, \
conj_t conjx, \
@@ -50,8 +50,8 @@ void PASTEMAC(ch,opname) \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* x, inc_t incx, \
ctype* beta, \
ctype* y, inc_t incy, \
cntx_t* cntx \
ctype* y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( gemv )
@@ -60,7 +60,7 @@ INSERT_GENTPROT_BASIC0( gemv )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
conj_t conjx, \
conj_t conjy, \
@@ -69,8 +69,8 @@ void PASTEMAC(ch,opname) \
ctype* alpha, \
ctype* x, inc_t incx, \
ctype* y, inc_t incy, \
ctype* a, inc_t rs_a, inc_t cs_a, \
cntx_t* cntx \
ctype* a, inc_t rs_a, inc_t cs_a \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( ger )
@@ -79,7 +79,7 @@ INSERT_GENTPROT_BASIC0( ger )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploa, \
conj_t conja, \
@@ -89,8 +89,8 @@ void PASTEMAC(ch,opname) \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* x, inc_t incx, \
ctype* beta, \
ctype* y, inc_t incy, \
cntx_t* cntx \
ctype* y, inc_t incy \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( hemv )
@@ -100,15 +100,15 @@ INSERT_GENTPROT_BASIC0( symv )
#undef GENTPROTR
#define GENTPROTR( ctype, ctype_r, ch, chr, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploa, \
conj_t conjx, \
dim_t m, \
ctype_r* alpha, \
ctype* x, inc_t incx, \
ctype* a, inc_t rs_a, inc_t cs_a, \
cntx_t* cntx \
ctype* a, inc_t rs_a, inc_t cs_a \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROTR_BASIC0( her )
@@ -117,15 +117,15 @@ INSERT_GENTPROTR_BASIC0( her )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploa, \
conj_t conjx, \
dim_t m, \
ctype* alpha, \
ctype* x, inc_t incx, \
ctype* a, inc_t rs_a, inc_t cs_a, \
cntx_t* cntx \
ctype* a, inc_t rs_a, inc_t cs_a \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( syr )
@@ -134,7 +134,7 @@ INSERT_GENTPROT_BASIC0( syr )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploa, \
conj_t conjx, \
@@ -143,8 +143,8 @@ void PASTEMAC(ch,opname) \
ctype* alpha, \
ctype* x, inc_t incx, \
ctype* y, inc_t incy, \
ctype* a, inc_t rs_a, inc_t cs_a, \
cntx_t* cntx \
ctype* a, inc_t rs_a, inc_t cs_a \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( her2 )
@@ -154,7 +154,7 @@ INSERT_GENTPROT_BASIC0( syr2 )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploa, \
trans_t transa, \
@@ -162,8 +162,8 @@ void PASTEMAC(ch,opname) \
dim_t m, \
ctype* alpha, \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* x, inc_t incx, \
cntx_t* cntx \
ctype* x, inc_t incx \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( trmv )

46
frame/2/bli_l2_tapi_wc.c Normal file
View File

@@ -0,0 +1,46 @@
/*
BLIS
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2014, The University of Texas at Austin
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
met:
- Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
- Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
- Neither the name of The University of Texas at Austin nor the names
of its contributors may be used to endorse or promote products
derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// having expert parameters.
#include "bli_tapi_w_cntx.h"
// Define the macro protecting the typed API definitions.
#define BLIS_ENABLE_TAPI
// Include the typed API definitions here.
#include "bli_l2_tapi.c"

46
frame/2/bli_l2_tapi_woc.c Normal file
View File

@@ -0,0 +1,46 @@
/*
BLIS
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2014, The University of Texas at Austin
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
met:
- Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
- Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
- Neither the name of The University of Texas at Austin nor the names
of its contributors may be used to endorse or promote products
derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// omitting expert parameters.
#include "bli_tapi_wo_cntx.h"
// Define the macro protecting the typed API definitions.
#define BLIS_ENABLE_TAPI
// Include the typed API definitions here.
#include "bli_l2_tapi.c"

4
frame/2/gemv/bli_gemv_unb_var2.c
View File

@@ -73,7 +73,7 @@ void PASTEMAC(ch,varname) \
if ( PASTEMAC(ch,eq0)( *beta ) ) \
{ \
/* y = 0; */ \
PASTEMAC(ch,setv) \
PASTEMAC2(ch,setv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
n_elem, \
@@ -85,7 +85,7 @@ void PASTEMAC(ch,varname) \
else \
{ \
/* y = beta * y; */ \
PASTEMAC(ch,scalv) \
PASTEMAC2(ch,scalv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
n_elem, \

4
frame/2/gemv/bli_gemv_unf_var2.c
View File

@@ -73,7 +73,7 @@ void PASTEMAC(ch,varname) \
if ( PASTEMAC(ch,eq0)( *beta ) ) \
{ \
/* y = 0; */ \
PASTEMAC(ch,setv) \
PASTEMAC2(ch,setv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
n_elem, \
@@ -85,7 +85,7 @@ void PASTEMAC(ch,varname) \
else \
{ \
/* y = beta * y; */ \
PASTEMAC(ch,scalv) \
PASTEMAC2(ch,scalv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
n_elem, \

4
frame/2/hemv/bli_hemv_unb_var1.c
View File

@@ -94,7 +94,7 @@ void PASTEMAC(ch,varname) \
if ( PASTEMAC(ch,eq0)( *beta ) ) \
{ \
/* y = 0; */ \
PASTEMAC(ch,setv) \
PASTEMAC2(ch,setv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \
@@ -106,7 +106,7 @@ void PASTEMAC(ch,varname) \
else \
{ \
/* y = beta * y; */ \
PASTEMAC(ch,scalv) \
PASTEMAC2(ch,scalv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \

4
frame/2/hemv/bli_hemv_unb_var2.c
View File

@@ -96,7 +96,7 @@ void PASTEMAC(ch,varname) \
if ( PASTEMAC(ch,eq0)( *beta ) ) \
{ \
/* y = 0; */ \
PASTEMAC(ch,setv) \
PASTEMAC2(ch,setv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \
@@ -108,7 +108,7 @@ void PASTEMAC(ch,varname) \
else \
{ \
/* y = beta * y; */ \
PASTEMAC(ch,scalv) \
PASTEMAC2(ch,scalv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \

4
frame/2/hemv/bli_hemv_unb_var3.c
View File

@@ -94,7 +94,7 @@ void PASTEMAC(ch,varname) \
if ( PASTEMAC(ch,eq0)( *beta ) ) \
{ \
/* y = 0; */ \
PASTEMAC(ch,setv) \
PASTEMAC2(ch,setv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \
@@ -106,7 +106,7 @@ void PASTEMAC(ch,varname) \
else \
{ \
/* y = beta * y; */ \
PASTEMAC(ch,scalv) \
PASTEMAC2(ch,scalv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \

4
frame/2/hemv/bli_hemv_unb_var4.c
View File

@@ -95,7 +95,7 @@ void PASTEMAC(ch,varname) \
if ( PASTEMAC(ch,eq0)( *beta ) ) \
{ \
/* y = 0; */ \
PASTEMAC(ch,setv) \
PASTEMAC2(ch,setv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \
@@ -107,7 +107,7 @@ void PASTEMAC(ch,varname) \
else \
{ \
/* y = beta * y; */ \
PASTEMAC(ch,scalv) \
PASTEMAC2(ch,scalv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \

4
frame/2/hemv/bli_hemv_unf_var1.c
View File

@@ -103,7 +103,7 @@ void PASTEMAC(ch,varname) \
if ( PASTEMAC(ch,eq0)( *beta ) ) \
{ \
/* y = 0; */ \
PASTEMAC(ch,setv) \
PASTEMAC2(ch,setv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \
@@ -115,7 +115,7 @@ void PASTEMAC(ch,varname) \
else \
{ \
/* y = beta * y; */ \
PASTEMAC(ch,scalv) \
PASTEMAC2(ch,scalv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \

4
frame/2/hemv/bli_hemv_unf_var1a.c
View File

@@ -94,7 +94,7 @@ void PASTEMAC(ch,varname) \
if ( PASTEMAC(ch,eq0)( *beta ) ) \
{ \
/* y = 0; */ \
PASTEMAC(ch,setv) \
PASTEMAC2(ch,setv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \
@@ -106,7 +106,7 @@ void PASTEMAC(ch,varname) \
else \
{ \
/* y = beta * y; */ \
PASTEMAC(ch,scalv) \
PASTEMAC2(ch,scalv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \

4
frame/2/hemv/bli_hemv_unf_var3.c
View File

@@ -103,7 +103,7 @@ void PASTEMAC(ch,varname) \
if ( PASTEMAC(ch,eq0)( *beta ) ) \
{ \
/* y = 0; */ \
PASTEMAC(ch,setv) \
PASTEMAC2(ch,setv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \
@@ -115,7 +115,7 @@ void PASTEMAC(ch,varname) \
else \
{ \
/* y = beta * y; */ \
PASTEMAC(ch,scalv) \
PASTEMAC2(ch,scalv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \

4
frame/2/hemv/bli_hemv_unf_var3a.c
View File

@@ -94,7 +94,7 @@ void PASTEMAC(ch,varname) \
if ( PASTEMAC(ch,eq0)( *beta ) ) \
{ \
/* y = 0; */ \
PASTEMAC(ch,setv) \
PASTEMAC2(ch,setv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \
@@ -106,7 +106,7 @@ void PASTEMAC(ch,varname) \
else \
{ \
/* y = beta * y; */ \
PASTEMAC(ch,scalv) \
PASTEMAC2(ch,scalv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \

2
frame/2/trsv/bli_trsv_unb_var1.c
View File

@@ -81,7 +81,7 @@ void PASTEMAC(ch,varname) \
conja = bli_extract_conj( transa ); \
\
/* x = alpha * x; */ \
PASTEMAC(ch,scalv) \
PASTEMAC2(ch,scalv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \

2
frame/2/trsv/bli_trsv_unb_var2.c
View File

@@ -81,7 +81,7 @@ void PASTEMAC(ch,varname) \
conja = bli_extract_conj( transa ); \
\
/* x = alpha * x; */ \
PASTEMAC(ch,scalv) \
PASTEMAC2(ch,scalv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \

2
frame/2/trsv/bli_trsv_unf_var1.c
View File

@@ -75,7 +75,7 @@ void PASTEMAC(ch,varname) \
conj_t conja; \
\
/* x = alpha * x; */ \
PASTEMAC(ch,scalv) \
PASTEMAC2(ch,scalv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \

2
frame/2/trsv/bli_trsv_unf_var2.c
View File

@@ -74,7 +74,7 @@ void PASTEMAC(ch,varname) \
conj_t conja; \
\
/* x = alpha * x; */ \
PASTEMAC(ch,scalv) \
PASTEMAC2(ch,scalv,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
m, \

6
frame/3/bli_l3.h
View File

@@ -44,12 +44,16 @@
#include "bli_l3_prune.h"
#include "bli_l3_packm.h"
// Prototype object APIs with and without contexts.
// Prototype object APIs (expert and non-expert).
#include "bli_oapi_w_cntx.h"
#include "bli_l3_oapi.h"
#include "bli_oapi_wo_cntx.h"
#include "bli_l3_oapi.h"
// Prototype typed APIs (expert and non-expert).
#include "bli_tapi_w_cntx.h"
#include "bli_l3_tapi.h"
#include "bli_tapi_wo_cntx.h"
#include "bli_l3_tapi.h"
#include "bli_l3_ukr_oapi.h"

16
frame/3/bli_l3_oapi.c
View File

@@ -50,12 +50,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* b, \
obj_t* beta, \
obj_t* c \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
/* Only proceed with an induced method if all operands have the same
(complex) datatype. If any datatypes differ, skip the induced method
@@ -94,12 +94,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* b, \
obj_t* beta, \
obj_t* c \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
/* Only proceed with an induced method if all operands have the same
(complex) datatype. If any datatypes differ, skip the induced method
@@ -136,12 +136,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* a, \
obj_t* beta, \
obj_t* c \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
/* Only proceed with an induced method if all operands have the same
(complex) datatype. If any datatypes differ, skip the induced method
@@ -176,12 +176,12 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* alpha, \
obj_t* a, \
obj_t* b \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_OAPI_CNTX_DECL \
BLIS_OAPI_EX_DECLS \
\
/* Only proceed with an induced method if all operands have the same
(complex) datatype. If any datatypes differ, skip the induced method

8
frame/3/bli_l3_oapi.h
View File

@@ -47,7 +47,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* b, \
obj_t* beta, \
obj_t* c \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENPROT( gemm )
@@ -66,7 +66,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* b, \
obj_t* beta, \
obj_t* c \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENPROT( hemm )
@@ -83,7 +83,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* a, \
obj_t* beta, \
obj_t* c \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENPROT( herk )
@@ -99,7 +99,7 @@ void PASTEMAC(opname,EX_SUF) \
obj_t* alpha, \
obj_t* a, \
obj_t* b \
BLIS_OAPI_CNTX_PARAM \
BLIS_OAPI_EX_PARAMS \
);
GENPROT( trmm )

2
frame/3/bli_l3_oapi_wc.c
View File

@@ -35,7 +35,7 @@
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// context-aware.
// having expert parameters.
#include "bli_oapi_w_cntx.h"
// Define the macro protecting the object API definitions.

2
frame/3/bli_l3_oapi_woc.c
View File

@@ -35,7 +35,7 @@
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// context-less.
// omitting expert parameters.
#include "bli_oapi_wo_cntx.h"
// Define the macro protecting the object API definitions.

90
frame/3/bli_l3_tapi.c
View File

@@ -32,10 +32,9 @@
*/
#include "blis.h"
// Include the definition of EX_SUF for the context-aware object API.
#include "bli_oapi_w_cntx.h"
// Guard the function definitions so that they are only compiled when
// #included from files that define the typed API macros.
#ifdef BLIS_ENABLE_TAPI
//
// Define BLAS-like interfaces with typed operands.
@@ -44,7 +43,7 @@
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
trans_t transa, \
trans_t transb, \
@@ -55,11 +54,13 @@ void PASTEMAC(ch,opname) \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* b, inc_t rs_b, inc_t cs_b, \
ctype* beta, \
ctype* c, inc_t rs_c, inc_t cs_c, \
cntx_t* cntx \
ctype* c, inc_t rs_c, inc_t cs_c \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -81,7 +82,7 @@ void PASTEMAC(ch,opname) \
bli_obj_set_conjtrans( transa, &ao ); \
bli_obj_set_conjtrans( transb, &bo ); \
\
PASTEMAC(opname,EX_SUF) \
PASTEMAC(opname,BLIS_OAPI_EX_SUF) \
( \
&alphao, \
&ao, \
@@ -98,7 +99,7 @@ INSERT_GENTFUNC_BASIC0( gemm )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname, struca ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
side_t side, \
uplo_t uploa, \
@@ -110,11 +111,13 @@ void PASTEMAC(ch,opname) \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* b, inc_t rs_b, inc_t cs_b, \
ctype* beta, \
ctype* c, inc_t rs_c, inc_t cs_c, \
cntx_t* cntx \
ctype* c, inc_t rs_c, inc_t cs_c \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -139,7 +142,7 @@ void PASTEMAC(ch,opname) \
\
bli_obj_set_struc( struca, &ao ); \
\
PASTEMAC(opname,EX_SUF) \
PASTEMAC(opname,BLIS_OAPI_EX_SUF) \
( \
side, \
&alphao, \
@@ -158,7 +161,7 @@ INSERT_GENTFUNC_BASIC( symm, BLIS_SYMMETRIC )
#undef GENTFUNCR
#define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploc, \
trans_t transa, \
@@ -167,11 +170,13 @@ void PASTEMAC(ch,opname) \
ctype_r* alpha, \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype_r* beta, \
ctype* c, inc_t rs_c, inc_t cs_c, \
cntx_t* cntx \
ctype* c, inc_t rs_c, inc_t cs_c \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt_r = PASTEMAC(chr,type); \
const num_t dt = PASTEMAC(ch,type); \
@@ -193,7 +198,7 @@ void PASTEMAC(ch,opname) \
\
bli_obj_set_struc( BLIS_HERMITIAN, &co ); \
\
PASTEMAC(opname,EX_SUF) \
PASTEMAC(opname,BLIS_OAPI_EX_SUF) \
( \
&alphao, \
&ao, \
@@ -209,7 +214,7 @@ INSERT_GENTFUNCR_BASIC0( herk )
#undef GENTFUNCR
#define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploc, \
trans_t transa, \
@@ -220,11 +225,13 @@ void PASTEMAC(ch,opname) \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* b, inc_t rs_b, inc_t cs_b, \
ctype_r* beta, \
ctype* c, inc_t rs_c, inc_t cs_c, \
cntx_t* cntx \
ctype* c, inc_t rs_c, inc_t cs_c \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt_r = PASTEMAC(chr,type); \
const num_t dt = PASTEMAC(ch,type); \
@@ -250,7 +257,7 @@ void PASTEMAC(ch,opname) \
\
bli_obj_set_struc( BLIS_HERMITIAN, &co ); \
\
PASTEMAC(opname,EX_SUF) \
PASTEMAC(opname,BLIS_OAPI_EX_SUF) \
( \
&alphao, \
&ao, \
@@ -267,7 +274,7 @@ INSERT_GENTFUNCR_BASIC0( her2k )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploc, \
trans_t transa, \
@@ -276,11 +283,13 @@ void PASTEMAC(ch,opname) \
ctype* alpha, \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* beta, \
ctype* c, inc_t rs_c, inc_t cs_c, \
cntx_t* cntx \
ctype* c, inc_t rs_c, inc_t cs_c \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -301,7 +310,7 @@ void PASTEMAC(ch,opname) \
\
bli_obj_set_struc( BLIS_SYMMETRIC, &co ); \
\
PASTEMAC(opname,EX_SUF) \
PASTEMAC(opname,BLIS_OAPI_EX_SUF) \
( \
&alphao, \
&ao, \
@@ -317,7 +326,7 @@ INSERT_GENTFUNC_BASIC0( syrk )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploc, \
trans_t transa, \
@@ -328,11 +337,13 @@ void PASTEMAC(ch,opname) \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* b, inc_t rs_b, inc_t cs_b, \
ctype* beta, \
ctype* c, inc_t rs_c, inc_t cs_c, \
cntx_t* cntx \
ctype* c, inc_t rs_c, inc_t cs_c \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -357,7 +368,7 @@ void PASTEMAC(ch,opname) \
\
bli_obj_set_struc( BLIS_SYMMETRIC, &co ); \
\
PASTEMAC(opname,EX_SUF) \
PASTEMAC(opname,BLIS_OAPI_EX_SUF) \
( \
&alphao, \
&ao, \
@@ -374,7 +385,7 @@ INSERT_GENTFUNC_BASIC0( syr2k )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
side_t side, \
uplo_t uploa, \
@@ -387,11 +398,13 @@ void PASTEMAC(ch,opname) \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* b, inc_t rs_b, inc_t cs_b, \
ctype* beta, \
ctype* c, inc_t rs_c, inc_t cs_c, \
cntx_t* cntx \
ctype* c, inc_t rs_c, inc_t cs_c \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -417,7 +430,7 @@ void PASTEMAC(ch,opname) \
\
bli_obj_set_struc( BLIS_TRIANGULAR, &ao ); \
\
PASTEMAC(opname,EX_SUF) \
PASTEMAC(opname,BLIS_OAPI_EX_SUF) \
( \
side, \
&alphao, \
@@ -435,7 +448,7 @@ INSERT_GENTFUNC_BASIC0( trmm3 )
#undef GENTFUNC
#define GENTFUNC( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
side_t side, \
uplo_t uploa, \
@@ -445,11 +458,13 @@ void PASTEMAC(ch,opname) \
dim_t n, \
ctype* alpha, \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* b, inc_t rs_b, inc_t cs_b, \
cntx_t* cntx \
ctype* b, inc_t rs_b, inc_t cs_b \
BLIS_TAPI_EX_PARAMS \
) \
{ \
bli_init_once(); \
\
BLIS_TAPI_EX_DECLS \
\
const num_t dt = PASTEMAC(ch,type); \
\
@@ -470,7 +485,7 @@ void PASTEMAC(ch,opname) \
\
bli_obj_set_struc( BLIS_TRIANGULAR, &ao ); \
\
PASTEMAC(opname,EX_SUF) \
PASTEMAC(opname,BLIS_OAPI_EX_SUF) \
( \
side, \
&alphao, \
@@ -483,3 +498,6 @@ void PASTEMAC(ch,opname) \
INSERT_GENTFUNC_BASIC0( trmm )
INSERT_GENTFUNC_BASIC0( trsm )
#endif

48
frame/3/bli_l3_tapi.h
View File

@@ -40,7 +40,7 @@
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
trans_t transa, \
trans_t transb, \
@@ -51,8 +51,8 @@ void PASTEMAC(ch,opname) \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* b, inc_t rs_b, inc_t cs_b, \
ctype* beta, \
ctype* c, inc_t rs_c, inc_t cs_c, \
cntx_t* cntx \
ctype* c, inc_t rs_c, inc_t cs_c \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( gemm )
@@ -61,7 +61,7 @@ INSERT_GENTPROT_BASIC0( gemm )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
side_t side, \
uplo_t uploa, \
@@ -73,8 +73,8 @@ void PASTEMAC(ch,opname) \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* b, inc_t rs_b, inc_t cs_b, \
ctype* beta, \
ctype* c, inc_t rs_c, inc_t cs_c, \
cntx_t* cntx \
ctype* c, inc_t rs_c, inc_t cs_c \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( hemm )
@@ -84,7 +84,7 @@ INSERT_GENTPROT_BASIC0( symm )
#undef GENTPROTR
#define GENTPROTR( ctype, ctype_r, ch, chr, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploc, \
trans_t transa, \
@@ -93,8 +93,8 @@ void PASTEMAC(ch,opname) \
ctype_r* alpha, \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype_r* beta, \
ctype* c, inc_t rs_c, inc_t cs_c, \
cntx_t* cntx \
ctype* c, inc_t rs_c, inc_t cs_c \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROTR_BASIC0( herk )
@@ -103,7 +103,7 @@ INSERT_GENTPROTR_BASIC0( herk )
#undef GENTPROTR
#define GENTPROTR( ctype, ctype_r, ch, chr, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploc, \
trans_t transa, \
@@ -114,8 +114,8 @@ void PASTEMAC(ch,opname) \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* b, inc_t rs_b, inc_t cs_b, \
ctype_r* beta, \
ctype* c, inc_t rs_c, inc_t cs_c, \
cntx_t* cntx \
ctype* c, inc_t rs_c, inc_t cs_c \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROTR_BASIC0( her2k )
@@ -124,7 +124,7 @@ INSERT_GENTPROTR_BASIC0( her2k )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploc, \
trans_t transa, \
@@ -133,8 +133,8 @@ void PASTEMAC(ch,opname) \
ctype* alpha, \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* beta, \
ctype* c, inc_t rs_c, inc_t cs_c, \
cntx_t* cntx \
ctype* c, inc_t rs_c, inc_t cs_c \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( syrk )
@@ -143,7 +143,7 @@ INSERT_GENTPROT_BASIC0( syrk )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
uplo_t uploc, \
trans_t transa, \
@@ -154,8 +154,8 @@ void PASTEMAC(ch,opname) \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* b, inc_t rs_b, inc_t cs_b, \
ctype* beta, \
ctype* c, inc_t rs_c, inc_t cs_c, \
cntx_t* cntx \
ctype* c, inc_t rs_c, inc_t cs_c \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( syr2k )
@@ -164,7 +164,7 @@ INSERT_GENTPROT_BASIC0( syr2k )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
side_t side, \
uplo_t uploa, \
@@ -177,8 +177,8 @@ void PASTEMAC(ch,opname) \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* b, inc_t rs_b, inc_t cs_b, \
ctype* beta, \
ctype* c, inc_t rs_c, inc_t cs_c, \
cntx_t* cntx \
ctype* c, inc_t rs_c, inc_t cs_c \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( trmm3 )
@@ -187,7 +187,7 @@ INSERT_GENTPROT_BASIC0( trmm3 )
#undef GENTPROT
#define GENTPROT( ctype, ch, opname ) \
\
void PASTEMAC(ch,opname) \
void PASTEMAC2(ch,opname,EX_SUF) \
( \
side_t side, \
uplo_t uploa, \
@@ -197,8 +197,8 @@ void PASTEMAC(ch,opname) \
dim_t n, \
ctype* alpha, \
ctype* a, inc_t rs_a, inc_t cs_a, \
ctype* b, inc_t rs_b, inc_t cs_b, \
cntx_t* cntx \
ctype* b, inc_t rs_b, inc_t cs_b \
BLIS_TAPI_EX_PARAMS \
);
INSERT_GENTPROT_BASIC0( trmm )

46
frame/3/bli_l3_tapi_wc.c Normal file
View File

@@ -0,0 +1,46 @@
/*
BLIS
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2014, The University of Texas at Austin
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
met:
- Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
- Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
- Neither the name of The University of Texas at Austin nor the names
of its contributors may be used to endorse or promote products
derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// having expert parameters.
#include "bli_tapi_w_cntx.h"
// Define the macro protecting the typed API definitions.
#define BLIS_ENABLE_TAPI
// Include the typed API definitions here.
#include "bli_l3_tapi.c"

46
frame/3/bli_l3_tapi_woc.c Normal file
View File

@@ -0,0 +1,46 @@
/*
BLIS
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2014, The University of Texas at Austin
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
met:
- Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
- Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
- Neither the name of The University of Texas at Austin nor the names
of its contributors may be used to endorse or promote products
derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include "blis.h"
// Include cpp macros that instantiate the API definition templates as
// omitting expert parameters.
#include "bli_tapi_wo_cntx.h"
// Define the macro protecting the typed API definitions.
#define BLIS_ENABLE_TAPI
// Include the typed API definitions here.
#include "bli_l3_tapi.c"

2
frame/compat/bla_amax.c
View File

@@ -70,7 +70,7 @@ f77_int PASTEF772(i,chx,blasname) \
bli_convert_blas_incv( n0, (ftype_x*)x, *incx, x0, incx0 ); \
\
/* Call BLIS interface. */ \
PASTEMAC(chx,blisname) \
PASTEMAC2(chx,blisname,BLIS_TAPI_EX_SUF) \
( \
n0, \
x0, incx0, \

2
frame/compat/bla_asum.c
View File

@@ -63,7 +63,7 @@ ftype_r PASTEF772(chr,chx,blasname) \
bli_convert_blas_incv( n0, (ftype_x*)x, *incx, x0, incx0 ); \
\
/* Call BLIS interface. */ \
PASTEMAC(chx,blisname) \
PASTEMAC2(chx,blisname,BLIS_TAPI_EX_SUF) \
( \
n0, \
x0, incx0, \

2
frame/compat/bla_axpy.c
View File

@@ -67,7 +67,7 @@ void PASTEF77(ch,blasname) \
bli_convert_blas_incv( n0, (ftype*)y, *incy, y0, incy0 ); \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
n0, \

2
frame/compat/bla_copy.c
View File

@@ -66,7 +66,7 @@ void PASTEF77(ch,blasname) \
bli_convert_blas_incv( n0, (ftype*)y, *incy, y0, incy0 ); \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
n0, \

2
frame/compat/bla_dot.c
View File

@@ -67,7 +67,7 @@ ftype PASTEF772(ch,blasname,chc) \
bli_convert_blas_incv( n0, (ftype*)y, *incy, y0, incy0 ); \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
blis_conjx, \
BLIS_NO_CONJUGATE, \

2
frame/compat/bla_gemm.c
View File

@@ -98,7 +98,7 @@ void PASTEF77(ch,blasname) \
cs_c = *ldc; \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
blis_transa, \
blis_transb, \

2
frame/compat/bla_gemv.c
View File

@@ -117,7 +117,7 @@ void PASTEF77(ch,blasname) \
cs_a = *lda; \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
blis_transa, \
BLIS_NO_CONJUGATE, \

2
frame/compat/bla_ger.c
View File

@@ -88,7 +88,7 @@ void PASTEF772(ch,blasname,chc) \
cs_a = *lda; \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
blis_conjy, \

2
frame/compat/bla_hemm.c
View File

@@ -95,7 +95,7 @@ void PASTEF77(ch,blasname) \
cs_c = *ldc; \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
blis_side, \
blis_uploa, \

2
frame/compat/bla_hemv.c
View File

@@ -91,7 +91,7 @@ void PASTEF77(ch,blasname) \
cs_a = *lda; \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
blis_uploa, \
BLIS_NO_CONJUGATE, \

2
frame/compat/bla_her.c
View File

@@ -85,7 +85,7 @@ void PASTEF77(ch,blasname) \
cs_a = *lda; \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
blis_uploa, \
BLIS_NO_CONJUGATE, \

2
frame/compat/bla_her2.c
View File

@@ -90,7 +90,7 @@ void PASTEF77(ch,blasname) \
cs_a = *lda; \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
blis_uploa, \
BLIS_NO_CONJUGATE, \

2
frame/compat/bla_her2k.c
View File

@@ -112,7 +112,7 @@ void PASTEF77(ch,blasname) \
cs_c = *ldc; \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
blis_uploc, \
blis_transa, \

2
frame/compat/bla_herk.c
View File

@@ -107,7 +107,7 @@ void PASTEF77(ch,blasname) \
cs_c = *ldc; \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
blis_uploc, \
blis_transa, \

2
frame/compat/bla_nrm2.c
View File

@@ -63,7 +63,7 @@ ftype_r PASTEF772(chr,chx,blasname) \
bli_convert_blas_incv( n0, (ftype_x*)x, *incx, x0, incx0 ); \
\
/* Call BLIS interface. */ \
PASTEMAC(chx,blisname) \
PASTEMAC2(chx,blisname,BLIS_TAPI_EX_SUF) \
( \
n0, \
x0, incx0, \

2
frame/compat/bla_scal.c
View File

@@ -70,7 +70,7 @@ void PASTEF772(chx,cha,blasname) \
PASTEMAC2(cha,chx,cast)( (ftype_a*)alpha, alpha_cast ); \
\
/* Call BLIS interface. */ \
PASTEMAC(chx,blisname) \
PASTEMAC2(chx,blisname,BLIS_TAPI_EX_SUF) \
( \
BLIS_NO_CONJUGATE, \
n0, \

2
frame/compat/bla_swap.c
View File

@@ -66,7 +66,7 @@ void PASTEF77(ch,blasname) \
bli_convert_blas_incv( n0, (ftype*)y, *incy, y0, incy0 ); \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
n0, \
x0, incx0, \

2
frame/compat/bla_symm.c
View File

@@ -95,7 +95,7 @@ void PASTEF77(ch,blasname) \
cs_c = *ldc; \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
blis_side, \
blis_uploa, \

2
frame/compat/bla_symv.c
View File

@@ -91,7 +91,7 @@ void PASTEF77(ch,blasname) \
cs_a = *lda; \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
blis_uploa, \
BLIS_NO_CONJUGATE, \

2
frame/compat/bla_syr.c
View File

@@ -85,7 +85,7 @@ void PASTEF77(ch,blasname) \
cs_a = *lda; \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
blis_uploa, \
BLIS_NO_CONJUGATE, \

2
frame/compat/bla_syr2.c
View File

@@ -91,7 +91,7 @@ void PASTEF77(ch,blasname) \
cs_a = *lda; \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
blis_uploa, \
BLIS_NO_CONJUGATE, \

2
frame/compat/bla_syr2k.c
View File

@@ -104,7 +104,7 @@ void PASTEF77(ch,blasname) \
cs_c = *ldc; \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
blis_uploc, \
blis_transa, \

2
frame/compat/bla_syrk.c
View File

@@ -99,7 +99,7 @@ void PASTEF77(ch,blasname) \
cs_c = *ldc; \
\
/* Call BLIS interface. */ \
PASTEMAC(ch,blisname) \
PASTEMAC2(ch,blisname,BLIS_TAPI_EX_SUF) \
( \
blis_uploc, \
blis_transa, \

Some files were not shown because too many files have changed in this diff Show More