diff --git a/CREDITS b/CREDITS index 6c2eaa990..52efd782f 100644 --- a/CREDITS +++ b/CREDITS @@ -14,12 +14,14 @@ but many others have contributed code and feedback, including Erling Andersen @erling-d-andersen Alex Arslan @ararslan Vernon Austel (IBM, T.J. Watson Research Center) + Matthew Brett @matthew-brett (University of Birmingham) Jed Brown @jedbrown (Argonne National Laboratory) Robin Christ @robinchrist Kay Dewhurst @jkd2016 (Max Planck Institute, Halle, Germany) Jeff Diamond (Oracle) Johannes Dieterich @iotamudelta Krzysztof Drewniak @krzysz00 + Marat Dukhan @Maratyszcza (Google) Victor Eijkhout @VictorEijkhout (Texas Advanced Computing Center) Isuru Fernando @isuruf Roman Gareev @gareevroman @@ -30,7 +32,7 @@ but many others have contributed code and feedback, including Jeff Hammond @jeffhammond (Intel) Jacob Gorm Hansen @jacobgorm Jean-Michel Hautbois @jhautbois - Ian Henriksen @insertinterestingnamehere + Ian Henriksen @insertinterestingnamehere (The University of Texas at Austin) Minh Quan Ho @hominhquan Matthew Honnibal @honnibal Stefan Husmann @stefanhusmann @@ -63,6 +65,7 @@ but many others have contributed code and feedback, including Rene Sitt Tony Skjellum @tonyskjellum (The University of Tennessee at Chattanooga) Mikhail Smelyanskiy (Intel, Parallel Computing Lab) + Nathaniel Smith @njsmith Shaden Smith @ShadenSmith Tyler Smith @tlrmchlsmth (The University of Texas at Austin) Paul Springer @springer13 (RWTH-Aachen) @@ -83,8 +86,10 @@ partners, including AMD Hewlett Packard Enterprise + Huawei Intel Microsoft + Oracle Texas Instruments as well as the National Science Foundation (NSF Awards CCF-0917167, diff --git a/build/bli_config.h.in b/build/bli_config.h.in index 1bd5e57f6..7debcfa38 100644 --- a/build/bli_config.h.in +++ b/build/bli_config.h.in @@ -159,7 +159,23 @@ #define BLIS_DISABLE_SHARED #endif -#define BLIS_EXPORT_BLAS -#define BLIS_EXPORT_BLIS +#if !defined(BLIS_ENABLE_SHARED) + #define BLIS_EXPORT +#else + #if defined(_WIN32) || defined(__CYGWIN__) + #ifdef BLIS_IS_BUILDING_LIBRARY + #define BLIS_EXPORT __declspec(dllexport) + #else + #define BLIS_EXPORT __declspec(dllimport) + #endif + #elif defined(__GNUC__) && __GNUC__ >= 4 + #define BLIS_EXPORT __attribute__ ((visibility ("default"))) + #else + #define BLIS_EXPORT + #endif +#endif + +#define BLIS_EXPORT_BLIS BLIS_EXPORT +#define BLIS_EXPORT_BLAS BLIS_EXPORT #endif diff --git a/build/libblis-symbols.def b/build/libblis-symbols.def index f8752018b..e1bfce807 100644 --- a/build/libblis-symbols.def +++ b/build/libblis-symbols.def @@ -183,8 +183,6 @@ bli_cgemm4mb bli_cgemm4mb_ker_var2 bli_cgemm4mh bli_cgemm_ex -bli_cgemm_haswell_asm_3x8 -bli_cgemm_haswell_asm_8x3 bli_cgemm_ker_var2 bli_cgemm_md_c2r_ref bli_cgemmtrsm_l_ukernel @@ -591,7 +589,6 @@ bli_daddv bli_daddv_ex bli_damaxv bli_damaxv_ex -bli_damaxv_zen_int bli_dasumv bli_dasumv_ex bli_dasumv_unb_var1 @@ -603,14 +600,11 @@ bli_daxpyd bli_daxpyd_ex bli_daxpyf bli_daxpyf_ex -bli_daxpyf_zen_int_8 bli_daxpym bli_daxpym_ex bli_daxpym_unb_var1 bli_daxpyv bli_daxpyv_ex -bli_daxpyv_zen_int -bli_daxpyv_zen_int10 bli_dccastm bli_dccastnzm bli_dccastv @@ -640,16 +634,12 @@ bli_ddotaxpyv bli_ddotaxpyv_ex bli_ddotv bli_ddotv_ex -bli_ddotv_zen_int -bli_ddotv_zen_int10 bli_ddotxaxpyf bli_ddotxaxpyf_ex bli_ddotxf bli_ddotxf_ex -bli_ddotxf_zen_int_8 bli_ddotxv bli_ddotxv_ex -bli_ddotxv_zen_int bli_ddpackm_blk_var1_md bli_ddpackm_cxk_1e_md bli_ddpackm_cxk_1r_md @@ -673,12 +663,8 @@ bli_dgemm4mb bli_dgemm4mb_ker_var2 bli_dgemm4mh bli_dgemm_ex -bli_dgemm_haswell_asm_6x8 -bli_dgemm_haswell_asm_8x6 bli_dgemm_ker_var2 -bli_dgemmtrsm_l_haswell_asm_6x8 bli_dgemmtrsm_l_ukernel -bli_dgemmtrsm_u_haswell_asm_6x8 bli_dgemmtrsm_u_ukernel bli_dgemm_ukernel bli_dgemv @@ -746,11 +732,6 @@ bli_dinvertv_ex bli_divsc bli_divsc_check bli_divsc_qfp -bli_dlamc1 -bli_dlamc2 -bli_dlamc3 -bli_dlamc4 -bli_dlamc5 bli_dlamch bli_dmachval bli_dmkherm @@ -838,8 +819,6 @@ bli_dscalm_ex bli_dscalm_unb_var1 bli_dscalv bli_dscalv_ex -bli_dscalv_zen_int -bli_dscalv_zen_int10 bli_dscastm bli_dscastnzm bli_dscastv @@ -1452,8 +1431,6 @@ bli_pool_init bli_pool_print bli_pool_reinit bli_pool_shrink -bli_pow_di -bli_pow_ri bli_prime_factorization bli_printm bli_printm_ex @@ -1510,7 +1487,6 @@ bli_saddv bli_saddv_ex bli_samaxv bli_samaxv_ex -bli_samaxv_zen_int bli_sasumv bli_sasumv_ex bli_sasumv_unb_var1 @@ -1522,14 +1498,11 @@ bli_saxpyd bli_saxpyd_ex bli_saxpyf bli_saxpyf_ex -bli_saxpyf_zen_int_8 bli_saxpym bli_saxpym_ex bli_saxpym_unb_var1 bli_saxpyv bli_saxpyv_ex -bli_saxpyv_zen_int -bli_saxpyv_zen_int10 bli_sba_acquire bli_sba_checkin_array bli_sba_checkout_array @@ -1591,16 +1564,12 @@ bli_sdotaxpyv bli_sdotaxpyv_ex bli_sdotv bli_sdotv_ex -bli_sdotv_zen_int -bli_sdotv_zen_int10 bli_sdotxaxpyf bli_sdotxaxpyf_ex bli_sdotxf bli_sdotxf_ex -bli_sdotxf_zen_int_8 bli_sdotxv bli_sdotxv_ex -bli_sdotxv_zen_int bli_sdpackm_blk_var1_md bli_sdpackm_cxk_1e_md bli_sdpackm_cxk_1r_md @@ -1643,12 +1612,8 @@ bli_sgemm4mb bli_sgemm4mb_ker_var2 bli_sgemm4mh bli_sgemm_ex -bli_sgemm_haswell_asm_16x6 -bli_sgemm_haswell_asm_6x16 bli_sgemm_ker_var2 -bli_sgemmtrsm_l_haswell_asm_6x16 bli_sgemmtrsm_l_ukernel -bli_sgemmtrsm_u_haswell_asm_6x16 bli_sgemmtrsm_u_ukernel bli_sgemm_ukernel bli_sgemv @@ -1717,11 +1682,6 @@ bli_sinvertd_ex bli_sinvertsc bli_sinvertv bli_sinvertv_ex -bli_slamc1 -bli_slamc2 -bli_slamc3 -bli_slamc4 -bli_slamc5 bli_slamch bli_sleep bli_smachval @@ -1793,8 +1753,6 @@ bli_sscalm_ex bli_sscalm_unb_var1 bli_sscalv bli_sscalv_ex -bli_sscalv_zen_int -bli_sscalv_zen_int10 bli_sscastm bli_sscastnzm bli_sscastv @@ -2245,8 +2203,6 @@ bli_zgemm4mb bli_zgemm4mb_ker_var2 bli_zgemm4mh bli_zgemm_ex -bli_zgemm_haswell_asm_3x4 -bli_zgemm_haswell_asm_4x3 bli_zgemm_ker_var2 bli_zgemm_md_c2r_ref bli_zgemmtrsm_l_ukernel @@ -2528,19 +2484,6 @@ bli_zzpackm_struc_cxk_md bli_zzxpbym_md bli_zzxpbym_md_ex bli_zzxpbym_md_unb_var1 -bla_c_abs -bla_c_div -bla_d_abs -bla_d_cnjg -bla_d_imag -bla_d_sign -bla_f__cabs -bla_r_abs -bla_r_cnjg -bla_r_imag -bla_r_sign -bla_z_abs -bla_z_div sasum_ sasumsub_ saxpy_ diff --git a/common.mk b/common.mk index 2e43a46f8..75e563878 100644 --- a/common.mk +++ b/common.mk @@ -506,9 +506,9 @@ SOFLAGS := -shared ifeq ($(IS_WIN),yes) # Windows shared library link flags. ifeq ($(CC_VENDOR),clang) -SOFLAGS += -Wl,-def:build/libblis-symbols.def -Wl,-implib:$(BASE_LIB_PATH)/$(LIBBLIS).lib +SOFLAGS += -Wl,-implib:$(BASE_LIB_PATH)/$(LIBBLIS).lib else -SOFLAGS += -Wl,--export-all-symbols -Wl,--out-implib,$(BASE_LIB_PATH)/$(LIBBLIS).dll.a +SOFLAGS += -Wl,--out-implib,$(BASE_LIB_PATH)/$(LIBBLIS).dll.a endif else # Linux shared library link flags. diff --git a/frame/0/bli_l0_check.c b/frame/0/bli_l0_check.c index aa046285e..65eeda1b7 100644 --- a/frame/0/bli_l0_check.c +++ b/frame/0/bli_l0_check.c @@ -41,7 +41,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* chi, \ obj_t* psi \ @@ -61,7 +61,7 @@ GENFRONT( subsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* chi \ ) \ @@ -75,7 +75,7 @@ GENFRONT( invertsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* chi, \ obj_t* norm \ diff --git a/frame/0/bli_l0_check.h b/frame/0/bli_l0_check.h index e1ae0951e..262679aeb 100644 --- a/frame/0/bli_l0_check.h +++ b/frame/0/bli_l0_check.h @@ -40,7 +40,7 @@ #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* chi, \ obj_t* psi \ @@ -57,7 +57,7 @@ GENTPROT( subsc ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* chi \ ); @@ -68,7 +68,7 @@ GENTPROT( invertsc ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* chi, \ obj_t* absq \ @@ -81,7 +81,7 @@ GENTPROT( normfsc ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* chi, \ double* zeta_r, \ @@ -94,7 +94,7 @@ GENTPROT( getsc ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ double zeta_r, \ double zeta_i, \ @@ -107,7 +107,7 @@ GENTPROT( setsc ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* chi, \ obj_t* zeta_r, \ @@ -120,7 +120,7 @@ GENTPROT( unzipsc ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* zeta_r, \ obj_t* zeta_i, \ @@ -132,18 +132,18 @@ GENTPROT( zipsc ) // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_l0_xsc_check +void bli_l0_xsc_check ( obj_t* chi ); -BLIS_EXPORT_BLIS void bli_l0_xxsc_check +void bli_l0_xxsc_check ( obj_t* chi, obj_t* psi ); -BLIS_EXPORT_BLIS void bli_l0_xx2sc_check +void bli_l0_xx2sc_check ( obj_t* chi, obj_t* norm diff --git a/frame/0/bli_l0_fpa.h b/frame/0/bli_l0_fpa.h index 1749c4af8..0d9b28361 100644 --- a/frame/0/bli_l0_fpa.h +++ b/frame/0/bli_l0_fpa.h @@ -40,7 +40,7 @@ #define GENPROT( opname ) \ \ PASTECH(opname,_vft) \ -BLIS_EXPORT_BLIS BLIS_EXPORT_BLIS PASTEMAC(opname,_qfp)( num_t dt ); +PASTEMAC(opname,_qfp)( num_t dt ); GENPROT( absqsc ) GENPROT( normfsc ) diff --git a/frame/0/bli_l0_oapi.c b/frame/0/bli_l0_oapi.c index c6e98f7b6..9a5492971 100644 --- a/frame/0/bli_l0_oapi.c +++ b/frame/0/bli_l0_oapi.c @@ -41,7 +41,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* chi, \ obj_t* absq \ @@ -81,7 +81,7 @@ GENFRONT( normfsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* chi, \ obj_t* psi \ @@ -120,7 +120,7 @@ GENFRONT( subsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* chi \ ) \ @@ -153,7 +153,7 @@ GENFRONT( invertsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* chi, \ obj_t* psi \ @@ -186,7 +186,7 @@ GENFRONT( sqrtsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* chi, \ double* zeta_r, \ @@ -230,7 +230,7 @@ GENFRONT( getsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ double zeta_r, \ double zeta_i, \ @@ -264,7 +264,7 @@ GENFRONT( setsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* chi, \ obj_t* zeta_r, \ @@ -307,7 +307,7 @@ GENFRONT( unzipsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* zeta_r, \ obj_t* zeta_i, \ diff --git a/frame/0/bli_l0_tapi.c b/frame/0/bli_l0_tapi.c index 1a86ebd0a..620cad299 100644 --- a/frame/0/bli_l0_tapi.c +++ b/frame/0/bli_l0_tapi.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjchi, \ ctype* chi, \ @@ -64,7 +64,7 @@ INSERT_GENTFUNC_BASIC( subsc, subs ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjchi, \ ctype* chi \ @@ -85,7 +85,7 @@ INSERT_GENTFUNC_BASIC( invertsc, inverts ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjchi, \ ctype* chi, \ @@ -114,7 +114,7 @@ INSERT_GENTFUNC_BASIC( mulsc, scals ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ ctype* chi, \ ctype_r* absq \ @@ -143,7 +143,7 @@ INSERT_GENTFUNCR_BASIC0( absqsc ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ ctype* chi, \ ctype_r* norm \ @@ -161,7 +161,7 @@ INSERT_GENTFUNCR_BASIC0( normfsc ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ ctype* chi, \ ctype* psi \ @@ -179,7 +179,7 @@ INSERT_GENTFUNC_BASIC0( sqrtsc ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ ctype* chi, \ double* zeta_r, \ @@ -197,7 +197,7 @@ INSERT_GENTFUNC_BASIC0( getsc ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ double zeta_r, \ double zeta_i, \ @@ -215,7 +215,7 @@ INSERT_GENTFUNC_BASIC0( setsc ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ ctype* chi, \ ctype_r* zeta_r, \ @@ -233,7 +233,7 @@ INSERT_GENTFUNCR_BASIC0( unzipsc ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ ctype_r* zeta_r, \ ctype_r* zeta_i, \ diff --git a/frame/0/copysc/bli_copysc.c b/frame/0/copysc/bli_copysc.c index b01678877..3001aa6c7 100644 --- a/frame/0/copysc/bli_copysc.c +++ b/frame/0/copysc/bli_copysc.c @@ -55,7 +55,7 @@ static FUNCPTR_T GENARRAY2_ALL(ftypes,copysc); #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* chi, \ obj_t* psi \ @@ -103,7 +103,7 @@ GENFRONT( copysc ) #undef GENTFUNC2 #define GENTFUNC2( ctype_x, ctype_y, chx, chy, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(chx,chy,varname) \ +void PASTEMAC2(chx,chy,varname) \ ( \ conj_t conjchi, \ void* chi, \ diff --git a/frame/1/bli_l1v_check.c b/frame/1/bli_l1v_check.c index e795f7e00..74b60febd 100644 --- a/frame/1/bli_l1v_check.c +++ b/frame/1/bli_l1v_check.c @@ -41,7 +41,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* y \ @@ -59,7 +59,7 @@ GENFRONT( swapv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* index \ @@ -74,7 +74,7 @@ GENFRONT( amaxv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -91,7 +91,7 @@ GENFRONT( axpbyv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -108,7 +108,7 @@ GENFRONT( scal2v ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* y, \ @@ -124,7 +124,7 @@ GENFRONT( dotv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -142,7 +142,7 @@ GENFRONT( dotxv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x \ ) \ @@ -156,7 +156,7 @@ GENFRONT( invertv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -172,7 +172,7 @@ GENFRONT( setv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* beta, \ diff --git a/frame/1/bli_l1v_check.h b/frame/1/bli_l1v_check.h index 9fc902c04..98051d0cd 100644 --- a/frame/1/bli_l1v_check.h +++ b/frame/1/bli_l1v_check.h @@ -40,7 +40,7 @@ #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* y \ @@ -55,7 +55,7 @@ GENTPROT( swapv ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* index \ @@ -67,7 +67,7 @@ GENTPROT( amaxv ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -81,7 +81,7 @@ GENTPROT( axpbyv ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -95,7 +95,7 @@ GENTPROT( scal2v ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* y, \ @@ -108,7 +108,7 @@ GENTPROT( dotv ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -123,7 +123,7 @@ GENTPROT( dotxv ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x \ ); @@ -134,7 +134,7 @@ GENTPROT( invertv ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -147,7 +147,7 @@ GENTPROT( setv ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* beta, \ @@ -160,27 +160,27 @@ GENTPROT( xpbyv ) // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_l1v_xy_check +void bli_l1v_xy_check ( obj_t* x, obj_t* y ); -BLIS_EXPORT_BLIS void bli_l1v_axy_check +void bli_l1v_axy_check ( obj_t* alpha, obj_t* x, obj_t* y ); -BLIS_EXPORT_BLIS void bli_l1v_xby_check +void bli_l1v_xby_check ( obj_t* x, obj_t* beta, obj_t* y ); -BLIS_EXPORT_BLIS void bli_l1v_axby_check +void bli_l1v_axby_check ( obj_t* alpha, obj_t* x, @@ -188,7 +188,7 @@ BLIS_EXPORT_BLIS void bli_l1v_axby_check obj_t* y ); -BLIS_EXPORT_BLIS void bli_l1v_dot_check +void bli_l1v_dot_check ( obj_t* alpha, obj_t* x, @@ -197,18 +197,18 @@ BLIS_EXPORT_BLIS void bli_l1v_dot_check obj_t* rho ); -BLIS_EXPORT_BLIS void bli_l1v_x_check +void bli_l1v_x_check ( obj_t* x ); -BLIS_EXPORT_BLIS void bli_l1v_ax_check +void bli_l1v_ax_check ( obj_t* alpha, obj_t* x ); -BLIS_EXPORT_BLIS void bli_l1v_xi_check +void bli_l1v_xi_check ( obj_t* x, obj_t* index diff --git a/frame/1/bli_l1v_fpa.h b/frame/1/bli_l1v_fpa.h index 05361bdde..c05a4ff7b 100644 --- a/frame/1/bli_l1v_fpa.h +++ b/frame/1/bli_l1v_fpa.h @@ -40,7 +40,7 @@ #define GENPROT( opname ) \ \ PASTECH2(opname,BLIS_TAPI_EX_SUF,_vft) \ -BLIS_EXPORT_BLIS BLIS_EXPORT_BLIS PASTEMAC2(opname,BLIS_TAPI_EX_SUF,_qfp)( num_t dt ); +PASTEMAC2(opname,BLIS_TAPI_EX_SUF,_qfp)( num_t dt ); GENPROT( addv ) GENPROT( copyv ) diff --git a/frame/1/bli_l1v_ker_prot.h b/frame/1/bli_l1v_ker_prot.h index a06c8539e..1a1eec3f3 100644 --- a/frame/1/bli_l1v_ker_prot.h +++ b/frame/1/bli_l1v_ker_prot.h @@ -39,7 +39,7 @@ #define ADDV_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjx, \ dim_t n, \ @@ -51,7 +51,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define AMAXV_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ dim_t n, \ ctype* restrict x, inc_t incx, \ @@ -62,7 +62,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define AXPBYV_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjx, \ dim_t n, \ @@ -76,7 +76,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define AXPYV_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjx, \ dim_t n, \ @@ -89,7 +89,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define COPYV_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjx, \ dim_t n, \ @@ -101,7 +101,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define DOTV_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjx, \ conj_t conjy, \ @@ -115,7 +115,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define DOTXV_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjx, \ conj_t conjy, \ @@ -131,7 +131,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define INVERTV_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ dim_t n, \ ctype* restrict x, inc_t incx, \ @@ -141,7 +141,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define SCALV_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjalpha, \ dim_t n, \ @@ -153,7 +153,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define SCAL2V_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjx, \ dim_t n, \ @@ -166,7 +166,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define SETV_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjalpha, \ dim_t n, \ @@ -178,7 +178,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define SUBV_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjx, \ dim_t n, \ @@ -190,7 +190,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define SWAPV_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ dim_t n, \ ctype* restrict x, inc_t incx, \ @@ -201,7 +201,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define XPBYV_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjx, \ dim_t n, \ diff --git a/frame/1/bli_l1v_oapi.c b/frame/1/bli_l1v_oapi.c index 9c50d93ab..19e61bb7a 100644 --- a/frame/1/bli_l1v_oapi.c +++ b/frame/1/bli_l1v_oapi.c @@ -43,7 +43,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* y \ @@ -90,7 +90,7 @@ GENFRONT( subv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* index \ @@ -133,7 +133,7 @@ GENFRONT( amaxv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -197,7 +197,7 @@ GENFRONT( axpbyv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -255,7 +255,7 @@ GENFRONT( scal2v ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* y, \ @@ -305,7 +305,7 @@ GENFRONT( dotv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -374,7 +374,7 @@ GENFRONT( dotxv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x \ BLIS_OAPI_EX_PARAMS \ @@ -413,7 +413,7 @@ GENFRONT( invertv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -467,7 +467,7 @@ GENFRONT( setv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* y \ @@ -510,7 +510,7 @@ GENFRONT( swapv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* beta, \ diff --git a/frame/1/bli_l1v_tapi.c b/frame/1/bli_l1v_tapi.c index 1127cefe4..5fdfdb91e 100644 --- a/frame/1/bli_l1v_tapi.c +++ b/frame/1/bli_l1v_tapi.c @@ -43,7 +43,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjx, \ dim_t n, \ @@ -81,7 +81,7 @@ INSERT_GENTFUNC_BASIC( subv, BLIS_SUBV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -115,7 +115,7 @@ INSERT_GENTFUNC_BASIC( amaxv, BLIS_AMAXV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjx, \ dim_t n, \ @@ -155,7 +155,7 @@ INSERT_GENTFUNC_BASIC( axpbyv, BLIS_AXPBYV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjx, \ dim_t n, \ @@ -195,7 +195,7 @@ INSERT_GENTFUNC_BASIC( scal2v, BLIS_SCAL2V_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjx, \ conj_t conjy, \ @@ -235,7 +235,7 @@ INSERT_GENTFUNC_BASIC( dotv, BLIS_DOTV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjx, \ conj_t conjy, \ @@ -279,7 +279,7 @@ INSERT_GENTFUNC_BASIC( dotxv, BLIS_DOTXV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ dim_t n, \ ctype* x, inc_t incx \ @@ -311,7 +311,7 @@ INSERT_GENTFUNC_BASIC( invertv, BLIS_INVERTV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjalpha, \ dim_t n, \ @@ -348,7 +348,7 @@ INSERT_GENTFUNC_BASIC( setv, BLIS_SETV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -381,7 +381,7 @@ INSERT_GENTFUNC_BASIC( swapv, BLIS_SWAPV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjx, \ dim_t n, \ diff --git a/frame/1/other/packv/bli_packv_check.h b/frame/1/other/packv/bli_packv_check.h index 7e4c62808..08dcd476f 100644 --- a/frame/1/other/packv/bli_packv_check.h +++ b/frame/1/other/packv/bli_packv_check.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_packv_check +void bli_packv_check ( obj_t* c, obj_t* p, diff --git a/frame/1/other/packv/bli_packv_cntl.h b/frame/1/other/packv/bli_packv_cntl.h index 6ddd1dcc1..87f33524b 100644 --- a/frame/1/other/packv/bli_packv_cntl.h +++ b/frame/1/other/packv/bli_packv_cntl.h @@ -56,7 +56,7 @@ typedef struct packv_params_s packv_params_t; // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS cntl_t* bli_packv_cntl_obj_create +cntl_t* bli_packv_cntl_obj_create ( void* var_func, void* packv_var_func, diff --git a/frame/1/other/packv/bli_packv_init.h b/frame/1/other/packv/bli_packv_init.h index 38bbcd92b..8848b395f 100644 --- a/frame/1/other/packv/bli_packv_init.h +++ b/frame/1/other/packv/bli_packv_init.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_packv_init +void bli_packv_init ( obj_t* a, obj_t* p, @@ -40,7 +40,7 @@ BLIS_EXPORT_BLIS void bli_packv_init packv_t* cntl ); -BLIS_EXPORT_BLIS siz_t bli_packv_init_pack +siz_t bli_packv_init_pack ( pack_t pack_schema, bszid_t bmult_id, diff --git a/frame/1/other/packv/bli_packv_int.h b/frame/1/other/packv/bli_packv_int.h index 07fb60cf5..b922c67a3 100644 --- a/frame/1/other/packv/bli_packv_int.h +++ b/frame/1/other/packv/bli_packv_int.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_packv_int +void bli_packv_int ( obj_t* c, obj_t* p, diff --git a/frame/1/other/packv/bli_packv_unb_var1.c b/frame/1/other/packv/bli_packv_unb_var1.c index 5da136ae4..23b370949 100644 --- a/frame/1/other/packv/bli_packv_unb_var1.c +++ b/frame/1/other/packv/bli_packv_unb_var1.c @@ -81,7 +81,7 @@ void bli_packv_unb_var1( obj_t* c, #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t m, \ void* c, inc_t incc, \ diff --git a/frame/1/other/packv/bli_packv_unb_var1.h b/frame/1/other/packv/bli_packv_unb_var1.h index 0f8fbc804..f33632015 100644 --- a/frame/1/other/packv/bli_packv_unb_var1.h +++ b/frame/1/other/packv/bli_packv_unb_var1.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_packv_unb_var1( obj_t* c, +void bli_packv_unb_var1( obj_t* c, obj_t* p, cntx_t* cntx, packv_t* cntl ); @@ -40,7 +40,7 @@ BLIS_EXPORT_BLIS void bli_packv_unb_var1( obj_t* c, #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t m, \ void* c, inc_t incc, \ diff --git a/frame/1/other/scalv/bli_scalv_cntl.h b/frame/1/other/scalv/bli_scalv_cntl.h index 1c9a4dac0..057ed60e8 100644 --- a/frame/1/other/scalv/bli_scalv_cntl.h +++ b/frame/1/other/scalv/bli_scalv_cntl.h @@ -41,11 +41,11 @@ typedef struct scalv_s scalv_t; #define bli_cntl_sub_scalv( cntl ) cntl->sub_scalv -BLIS_EXPORT_BLIS void bli_scalv_cntl_init( void ); -BLIS_EXPORT_BLIS void bli_scalv_cntl_finalize( void ); -BLIS_EXPORT_BLIS scalv_t* bli_scalv_cntl_obj_create( impl_t impl_type, +void bli_scalv_cntl_init( void ); +void bli_scalv_cntl_finalize( void ); +scalv_t* bli_scalv_cntl_obj_create( impl_t impl_type, varnum_t var_num ); -BLIS_EXPORT_BLIS void bli_scalv_cntl_obj_init( scalv_t* cntl, +void bli_scalv_cntl_obj_init( scalv_t* cntl, impl_t impl_type, varnum_t var_num ); diff --git a/frame/1/other/scalv/bli_scalv_int.h b/frame/1/other/scalv/bli_scalv_int.h index 7a2a1eec1..fd7cff116 100644 --- a/frame/1/other/scalv/bli_scalv_int.h +++ b/frame/1/other/scalv/bli_scalv_int.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_scalv_int( obj_t* alpha, +void bli_scalv_int( obj_t* alpha, obj_t* x, cntx_t* cntx, scalv_t* cntl ); diff --git a/frame/1/other/unpackv/bli_unpackv_check.h b/frame/1/other/unpackv/bli_unpackv_check.h index b8f10aa3d..38d79fb3b 100644 --- a/frame/1/other/unpackv/bli_unpackv_check.h +++ b/frame/1/other/unpackv/bli_unpackv_check.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_unpackv_check +void bli_unpackv_check ( obj_t* p, obj_t* a, diff --git a/frame/1/other/unpackv/bli_unpackv_cntl.h b/frame/1/other/unpackv/bli_unpackv_cntl.h index 6a8adec82..3d62be8c5 100644 --- a/frame/1/other/unpackv/bli_unpackv_cntl.h +++ b/frame/1/other/unpackv/bli_unpackv_cntl.h @@ -45,11 +45,11 @@ typedef struct unpackv_s unpackv_t; #define bli_cntl_sub_unpackv_y( cntl ) cntl->sub_unpackv_y #define bli_cntl_sub_unpackv_y1( cntl ) cntl->sub_unpackv_y1 -BLIS_EXPORT_BLIS void bli_unpackv_cntl_init( void ); -BLIS_EXPORT_BLIS void bli_unpackv_cntl_finalize( void ); -BLIS_EXPORT_BLIS unpackv_t* bli_unpackv_cntl_obj_create( impl_t impl_type, +void bli_unpackv_cntl_init( void ); +void bli_unpackv_cntl_finalize( void ); +unpackv_t* bli_unpackv_cntl_obj_create( impl_t impl_type, varnum_t var_num ); -BLIS_EXPORT_BLIS void bli_unpackv_cntl_obj_init( unpackv_t* cntl, +void bli_unpackv_cntl_obj_init( unpackv_t* cntl, impl_t impl_type, varnum_t var_num ); diff --git a/frame/1/other/unpackv/bli_unpackv_int.h b/frame/1/other/unpackv/bli_unpackv_int.h index 043c58924..940b738eb 100644 --- a/frame/1/other/unpackv/bli_unpackv_int.h +++ b/frame/1/other/unpackv/bli_unpackv_int.h @@ -32,13 +32,13 @@ */ -BLIS_EXPORT_BLIS void bli_unpackv_int( obj_t* p, +void bli_unpackv_int( obj_t* p, obj_t* a, cntx_t* cntx, unpackv_t* cntl ); /* -BLIS_EXPORT_BLIS void bli_unpackv_init_cast( obj_t* p, +void bli_unpackv_init_cast( obj_t* p, obj_t* a, obj_t* c ); */ diff --git a/frame/1/other/unpackv/bli_unpackv_unb_var1.c b/frame/1/other/unpackv/bli_unpackv_unb_var1.c index c23f6dc79..5dc1101b6 100644 --- a/frame/1/other/unpackv/bli_unpackv_unb_var1.c +++ b/frame/1/other/unpackv/bli_unpackv_unb_var1.c @@ -81,7 +81,7 @@ void bli_unpackv_unb_var1( obj_t* p, #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t m, \ void* p, inc_t incp, \ diff --git a/frame/1/other/unpackv/bli_unpackv_unb_var1.h b/frame/1/other/unpackv/bli_unpackv_unb_var1.h index f13fb8265..4449175b9 100644 --- a/frame/1/other/unpackv/bli_unpackv_unb_var1.h +++ b/frame/1/other/unpackv/bli_unpackv_unb_var1.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_unpackv_unb_var1( obj_t* p, +void bli_unpackv_unb_var1( obj_t* p, obj_t* c, cntx_t* cntx, unpackv_t* cntl ); @@ -40,7 +40,7 @@ BLIS_EXPORT_BLIS void bli_unpackv_unb_var1( obj_t* p, #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t m, \ void* p, inc_t incp, \ diff --git a/frame/1d/bli_l1d_check.c b/frame/1d/bli_l1d_check.c index 4745c8d17..908a410ad 100644 --- a/frame/1d/bli_l1d_check.c +++ b/frame/1d/bli_l1d_check.c @@ -41,7 +41,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* y \ @@ -58,7 +58,7 @@ GENFRONT( subd ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -75,7 +75,7 @@ GENFRONT( scal2d ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x \ ) \ @@ -89,7 +89,7 @@ GENFRONT( invertd ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -107,7 +107,7 @@ GENFRONT( shiftd ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* beta, \ diff --git a/frame/1d/bli_l1d_check.h b/frame/1d/bli_l1d_check.h index efb6f7af5..6d000d314 100644 --- a/frame/1d/bli_l1d_check.h +++ b/frame/1d/bli_l1d_check.h @@ -40,7 +40,7 @@ #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* y \ @@ -54,7 +54,7 @@ GENTPROT( subd ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -68,7 +68,7 @@ GENTPROT( scal2d ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x \ ); @@ -79,7 +79,7 @@ GENTPROT( invertd ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -94,7 +94,7 @@ GENTPROT( shiftd ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* beta, \ @@ -106,25 +106,25 @@ GENTPROT( xpbyd ) // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_l1d_xy_check +void bli_l1d_xy_check ( obj_t* x, obj_t* y ); -BLIS_EXPORT_BLIS void bli_l1d_axy_check +void bli_l1d_axy_check ( obj_t* alpha, obj_t* x, obj_t* y ); -BLIS_EXPORT_BLIS void bli_l1d_x_check +void bli_l1d_x_check ( obj_t* x ); -BLIS_EXPORT_BLIS void bli_l1d_ax_check +void bli_l1d_ax_check ( obj_t* alpha, obj_t* x diff --git a/frame/1d/bli_l1d_fpa.h b/frame/1d/bli_l1d_fpa.h index 743055636..4516912de 100644 --- a/frame/1d/bli_l1d_fpa.h +++ b/frame/1d/bli_l1d_fpa.h @@ -40,7 +40,7 @@ #define GENPROT( opname ) \ \ PASTECH2(opname,BLIS_TAPI_EX_SUF,_vft) \ -BLIS_EXPORT_BLIS BLIS_EXPORT_BLIS PASTEMAC2(opname,BLIS_TAPI_EX_SUF,_qfp)( num_t dt ); +PASTEMAC2(opname,BLIS_TAPI_EX_SUF,_qfp)( num_t dt ); GENPROT( addd ) GENPROT( copyd ) diff --git a/frame/1d/bli_l1d_oapi.c b/frame/1d/bli_l1d_oapi.c index f548410b6..1a8b8f124 100644 --- a/frame/1d/bli_l1d_oapi.c +++ b/frame/1d/bli_l1d_oapi.c @@ -43,7 +43,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* y \ @@ -98,7 +98,7 @@ GENFRONT( subd ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -164,7 +164,7 @@ GENFRONT( scal2d ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x \ BLIS_OAPI_EX_PARAMS \ @@ -208,7 +208,7 @@ GENFRONT( invertd ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -267,7 +267,7 @@ GENFRONT( setd ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -315,7 +315,7 @@ GENFRONT( setid ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -371,7 +371,7 @@ GENFRONT( shiftd ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* beta, \ diff --git a/frame/1d/bli_l1d_tapi.c b/frame/1d/bli_l1d_tapi.c index 65a24f4cc..a8f9e844a 100644 --- a/frame/1d/bli_l1d_tapi.c +++ b/frame/1d/bli_l1d_tapi.c @@ -43,7 +43,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -121,7 +121,7 @@ INSERT_GENTFUNC_BASIC2( subd, subv, BLIS_SUBV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -200,7 +200,7 @@ INSERT_GENTFUNC_BASIC2( scal2d, scal2v, BLIS_SCAL2V_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ dim_t m, \ @@ -255,7 +255,7 @@ INSERT_GENTFUNC_BASIC2( invertd, invertv, BLIS_INVERTV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjalpha, \ doff_t diagoffx, \ @@ -315,7 +315,7 @@ INSERT_GENTFUNC_BASIC2( setd, setv, BLIS_SETV_KER ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ dim_t m, \ @@ -390,7 +390,7 @@ INSERT_GENTFUNCR_BASIC2( setid, setv, BLIS_SETV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ dim_t m, \ @@ -448,7 +448,7 @@ INSERT_GENTFUNC_BASIC2( shiftd, addv, BLIS_ADDV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ diff --git a/frame/1f/bli_l1f_check.h b/frame/1f/bli_l1f_check.h index 66ef9ad8c..d630f3205 100644 --- a/frame/1f/bli_l1f_check.h +++ b/frame/1f/bli_l1f_check.h @@ -40,7 +40,7 @@ #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alphax, \ obj_t* alphay, \ @@ -55,7 +55,7 @@ GENTPROT( axpy2v ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -69,7 +69,7 @@ GENTPROT( axpyf ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* xt, \ @@ -85,7 +85,7 @@ GENTPROT( dotaxpyv ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* at, \ @@ -103,7 +103,7 @@ GENTPROT( dotxaxpyf ) #undef GENTPROT #define GENTPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* a, \ diff --git a/frame/1f/bli_l1f_fpa.h b/frame/1f/bli_l1f_fpa.h index e7059bf0d..df11439a4 100644 --- a/frame/1f/bli_l1f_fpa.h +++ b/frame/1f/bli_l1f_fpa.h @@ -40,7 +40,7 @@ #define GENPROT( opname ) \ \ PASTECH2(opname,BLIS_TAPI_EX_SUF,_vft) \ -BLIS_EXPORT_BLIS PASTEMAC2(opname,BLIS_TAPI_EX_SUF,_qfp)( num_t dt ); +PASTEMAC2(opname,BLIS_TAPI_EX_SUF,_qfp)( num_t dt ); GENPROT( axpy2v ) GENPROT( axpyf ) diff --git a/frame/1f/bli_l1f_ker_prot.h b/frame/1f/bli_l1f_ker_prot.h index 824470663..18eea4568 100644 --- a/frame/1f/bli_l1f_ker_prot.h +++ b/frame/1f/bli_l1f_ker_prot.h @@ -39,7 +39,7 @@ #define AXPY2V_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjx, \ conj_t conjy, \ @@ -55,7 +55,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define AXPYF_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conja, \ conj_t conjx, \ @@ -71,7 +71,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define DOTAXPYV_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjxt, \ conj_t conjx, \ @@ -88,7 +88,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define DOTXAXPYF_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjat, \ conj_t conja, \ @@ -109,7 +109,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define DOTXF_KER_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjat, \ conj_t conjx, \ diff --git a/frame/1f/bli_l1f_oapi.c b/frame/1f/bli_l1f_oapi.c index 285be9370..d1e7f0dbe 100644 --- a/frame/1f/bli_l1f_oapi.c +++ b/frame/1f/bli_l1f_oapi.c @@ -43,7 +43,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alphax, \ obj_t* alphay, \ @@ -113,7 +113,7 @@ GENFRONT( axpy2v ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -182,7 +182,7 @@ GENFRONT( axpyf ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* xt, \ @@ -251,7 +251,7 @@ GENFRONT( dotaxpyv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* at, \ @@ -340,7 +340,7 @@ GENFRONT( dotxaxpyf ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* a, \ diff --git a/frame/1f/bli_l1f_tapi.c b/frame/1f/bli_l1f_tapi.c index 787273982..332ff5af2 100644 --- a/frame/1f/bli_l1f_tapi.c +++ b/frame/1f/bli_l1f_tapi.c @@ -43,7 +43,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjx, \ conj_t conjy, \ @@ -87,7 +87,7 @@ INSERT_GENTFUNC_BASIC( axpy2v, BLIS_AXPY2V_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conja, \ conj_t conjx, \ @@ -131,7 +131,7 @@ INSERT_GENTFUNC_BASIC( axpyf, BLIS_AXPYF_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjxt, \ conj_t conjx, \ @@ -177,7 +177,7 @@ INSERT_GENTFUNC_BASIC( dotaxpyv, BLIS_DOTAXPYV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjat, \ conj_t conja, \ @@ -231,7 +231,7 @@ INSERT_GENTFUNC_BASIC( dotxaxpyf, BLIS_DOTXAXPYF_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjat, \ conj_t conjx, \ diff --git a/frame/1m/bli_l1m_check.c b/frame/1m/bli_l1m_check.c index e65ac1bbe..8914e43b1 100644 --- a/frame/1m/bli_l1m_check.c +++ b/frame/1m/bli_l1m_check.c @@ -41,7 +41,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* y \ @@ -58,7 +58,7 @@ GENFRONT( subm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -75,7 +75,7 @@ GENFRONT( scal2m ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -91,7 +91,7 @@ GENFRONT( setm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* beta, \ diff --git a/frame/1m/bli_l1m_check.h b/frame/1m/bli_l1m_check.h index a01a7bdd7..030c0e219 100644 --- a/frame/1m/bli_l1m_check.h +++ b/frame/1m/bli_l1m_check.h @@ -40,7 +40,7 @@ #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* y \ @@ -54,7 +54,7 @@ GENPROT( subm ) #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -68,7 +68,7 @@ GENPROT( scal2m ) #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -81,7 +81,7 @@ GENPROT( setm ) #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* beta, \ @@ -93,20 +93,20 @@ GENPROT( xpbym ) // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_l1m_xy_check +void bli_l1m_xy_check ( obj_t* x, obj_t* y ); -BLIS_EXPORT_BLIS void bli_l1m_axy_check +void bli_l1m_axy_check ( obj_t* alpha, obj_t* x, obj_t* y ); -BLIS_EXPORT_BLIS void bli_l1m_ax_check +void bli_l1m_ax_check ( obj_t* alpha, obj_t* x diff --git a/frame/1m/bli_l1m_fpa.h b/frame/1m/bli_l1m_fpa.h index 2f4bb6468..84ef8b77f 100644 --- a/frame/1m/bli_l1m_fpa.h +++ b/frame/1m/bli_l1m_fpa.h @@ -40,7 +40,7 @@ #define GENPROT( opname ) \ \ PASTECH2(opname,BLIS_TAPI_EX_SUF,_vft) \ -BLIS_EXPORT_BLIS PASTEMAC2(opname,BLIS_TAPI_EX_SUF,_qfp)( num_t dt ); +PASTEMAC2(opname,BLIS_TAPI_EX_SUF,_qfp)( num_t dt ); GENPROT( addm ) GENPROT( copym ) @@ -55,7 +55,7 @@ GENPROT( xpbym ) #define GENPROT( opname ) \ \ PASTECH2(opname,BLIS_TAPI_EX_SUF,_vft) \ -BLIS_EXPORT_BLIS PASTEMAC2(opname,BLIS_TAPI_EX_SUF,_qfp2)( num_t dtx, num_t dty ); +PASTEMAC2(opname,BLIS_TAPI_EX_SUF,_qfp2)( num_t dtx, num_t dty ); GENPROT( xpbym_md ) diff --git a/frame/1m/bli_l1m_ker_prot.h b/frame/1m/bli_l1m_ker_prot.h index 725eb750b..ada520b56 100644 --- a/frame/1m/bli_l1m_ker_prot.h +++ b/frame/1m/bli_l1m_ker_prot.h @@ -41,7 +41,7 @@ #define PACKM_KER_PROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ conj_t conja, \ dim_t cdim, \ @@ -58,7 +58,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ #define UNPACKM_KER_PROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ conj_t conja, \ dim_t n, \ @@ -73,7 +73,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ #define PACKM_3MIS_KER_PROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ conj_t conja, \ dim_t cdim, \ @@ -90,7 +90,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ #define PACKM_4MI_KER_PROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ conj_t conja, \ dim_t cdim, \ @@ -107,7 +107,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ #define PACKM_RIH_KER_PROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ conj_t conja, \ pack_t schema, \ @@ -125,7 +125,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ #define PACKM_1ER_KER_PROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ conj_t conja, \ pack_t schema, \ diff --git a/frame/1m/bli_l1m_oapi.c b/frame/1m/bli_l1m_oapi.c index eb94e5aea..4bb0de784 100644 --- a/frame/1m/bli_l1m_oapi.c +++ b/frame/1m/bli_l1m_oapi.c @@ -43,7 +43,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* y \ @@ -100,7 +100,7 @@ GENFRONT( subm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -168,7 +168,7 @@ GENFRONT( scal2m ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -243,7 +243,7 @@ GENFRONT( scalm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -305,7 +305,7 @@ GENFRONT( setm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* beta, \ @@ -375,7 +375,7 @@ GENFRONT( xpbym ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* beta, \ diff --git a/frame/1m/bli_l1m_tapi.c b/frame/1m/bli_l1m_tapi.c index 45a17182f..2b3c4bb4a 100644 --- a/frame/1m/bli_l1m_tapi.c +++ b/frame/1m/bli_l1m_tapi.c @@ -43,7 +43,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, auxker ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -108,7 +108,7 @@ INSERT_GENTFUNC_BASIC( subm, subd ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -177,7 +177,7 @@ INSERT_GENTFUNC_BASIC0( copym ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -247,7 +247,7 @@ INSERT_GENTFUNC_BASIC0( axpym ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -339,7 +339,7 @@ INSERT_GENTFUNC_BASIC0( scal2m ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjalpha, \ doff_t diagoffx, \ @@ -385,7 +385,7 @@ INSERT_GENTFUNC_BASIC0( setm ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -472,7 +472,7 @@ INSERT_GENTFUNC_BASIC0( xpbym ) #undef GENTFUNC2 #define GENTFUNC2( ctype_x, ctype_y, chx, chy, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC3(chx,chy,opname,EX_SUF) \ +void PASTEMAC3(chx,chy,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ diff --git a/frame/1m/bli_l1m_unb_var1.c b/frame/1m/bli_l1m_unb_var1.c index c9104c8d8..cb6098e3f 100644 --- a/frame/1m/bli_l1m_unb_var1.c +++ b/frame/1m/bli_l1m_unb_var1.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -157,7 +157,7 @@ INSERT_GENTFUNC_BASIC2( subm_unb_var1, subv, BLIS_SUBV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -276,7 +276,7 @@ INSERT_GENTFUNC_BASIC2( scal2m_unb_var1, scal2v, BLIS_SCAL2V_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjalpha, \ doff_t diagoffx, \ @@ -382,7 +382,7 @@ INSERT_GENTFUNC_BASIC2( setm_unb_var1, setv, BLIS_SETV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -500,7 +500,7 @@ INSERT_GENTFUNC_BASIC2( xpbym_unb_var1, xpbyv, BLIS_XPBYV_KER ) #undef GENTFUNC2 #define GENTFUNC2( ctype_x, ctype_y, chx, chy, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(chx,chy,opname) \ +void PASTEMAC2(chx,chy,opname) \ ( \ doff_t diagoffx, \ diag_t diagx, \ diff --git a/frame/1m/other/bli_scalm_cntl.h b/frame/1m/other/bli_scalm_cntl.h index f87fe110b..0d589f207 100644 --- a/frame/1m/other/bli_scalm_cntl.h +++ b/frame/1m/other/bli_scalm_cntl.h @@ -33,7 +33,7 @@ */ -BLIS_EXPORT_BLIS cntl_t* bli_scalm_cntl_create_node +cntl_t* bli_scalm_cntl_create_node ( void* var_func, cntl_t* sub_node diff --git a/frame/1m/other/bli_scalm_int.h b/frame/1m/other/bli_scalm_int.h index 5b7f054b0..fb043e45f 100644 --- a/frame/1m/other/bli_scalm_int.h +++ b/frame/1m/other/bli_scalm_int.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_scalm_int( obj_t* alpha, +void bli_scalm_int( obj_t* alpha, obj_t* x, cntx_t* cntx, scalm_t* cntl ); diff --git a/frame/1m/packm/bli_packm_blk_var1.c b/frame/1m/packm/bli_packm_blk_var1.c index 54baec41f..3f753a914 100644 --- a/frame/1m/packm/bli_packm_blk_var1.c +++ b/frame/1m/packm/bli_packm_blk_var1.c @@ -276,7 +276,7 @@ void bli_packm_blk_var1 #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ diff --git a/frame/1m/packm/bli_packm_blk_var1_md.c b/frame/1m/packm/bli_packm_blk_var1_md.c index c0b5b4709..8d4906c50 100644 --- a/frame/1m/packm/bli_packm_blk_var1_md.c +++ b/frame/1m/packm/bli_packm_blk_var1_md.c @@ -57,7 +57,7 @@ typedef void (*FUNCPTR_T)( static FUNCPTR_T GENARRAY2_ALL(ftypes,packm_blk_var1_md); -BLIS_EXPORT_BLIS void bli_packm_blk_var1_md +void bli_packm_blk_var1_md ( obj_t* c, obj_t* p, @@ -164,7 +164,7 @@ BLIS_EXPORT_BLIS void bli_packm_blk_var1_md #undef GENTFUNC2 #define GENTFUNC2( ctype_c, ctype_p, chc, chp, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(chc,chp,varname) \ +void PASTEMAC2(chc,chp,varname) \ ( \ trans_t transc, \ pack_t schema, \ diff --git a/frame/1m/packm/bli_packm_blk_var1_md.h b/frame/1m/packm/bli_packm_blk_var1_md.h index 99c697da6..e6bf151d0 100644 --- a/frame/1m/packm/bli_packm_blk_var1_md.h +++ b/frame/1m/packm/bli_packm_blk_var1_md.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_packm_blk_var1_md +void bli_packm_blk_var1_md ( obj_t* c, obj_t* p, @@ -45,7 +45,7 @@ BLIS_EXPORT_BLIS void bli_packm_blk_var1_md #undef GENTPROT2 #define GENTPROT2( ctype_c, ctype_p, chc, chp, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(chc,chp,varname) \ +void PASTEMAC2(chc,chp,varname) \ ( \ trans_t transc, \ pack_t schema, \ diff --git a/frame/1m/packm/bli_packm_check.c b/frame/1m/packm/bli_packm_check.c index 2e0c059c7..e662a85df 100644 --- a/frame/1m/packm/bli_packm_check.c +++ b/frame/1m/packm/bli_packm_check.c @@ -35,7 +35,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_packm_init_check +void bli_packm_init_check ( obj_t* a, obj_t* p, @@ -57,7 +57,7 @@ BLIS_EXPORT_BLIS void bli_packm_init_check //bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_packm_int_check +void bli_packm_int_check ( obj_t* a, obj_t* p, diff --git a/frame/1m/packm/bli_packm_check.h b/frame/1m/packm/bli_packm_check.h index 8b78feb99..be375fcf7 100644 --- a/frame/1m/packm/bli_packm_check.h +++ b/frame/1m/packm/bli_packm_check.h @@ -32,14 +32,14 @@ */ -BLIS_EXPORT_BLIS void bli_packm_init_check +void bli_packm_init_check ( obj_t* a, obj_t* p, cntx_t* cntx ); -BLIS_EXPORT_BLIS void bli_packm_int_check +void bli_packm_int_check ( obj_t* a, obj_t* p, diff --git a/frame/1m/packm/bli_packm_cntl.h b/frame/1m/packm/bli_packm_cntl.h index b366a4188..fef603ab0 100644 --- a/frame/1m/packm/bli_packm_cntl.h +++ b/frame/1m/packm/bli_packm_cntl.h @@ -89,7 +89,7 @@ static packbuf_t bli_cntl_packm_params_pack_buf_type( cntl_t* cntl ) // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS cntl_t* bli_packm_cntl_create_node +cntl_t* bli_packm_cntl_create_node ( rntm_t* rntm, void* var_func, diff --git a/frame/1m/packm/bli_packm_cxk.c b/frame/1m/packm/bli_packm_cxk.c index 9e82bfc8d..59f99dd18 100644 --- a/frame/1m/packm/bli_packm_cxk.c +++ b/frame/1m/packm/bli_packm_cxk.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conja, \ dim_t panel_dim, \ diff --git a/frame/1m/packm/bli_packm_cxk.h b/frame/1m/packm/bli_packm_cxk.h index 26071af4d..be089f05c 100644 --- a/frame/1m/packm/bli_packm_cxk.h +++ b/frame/1m/packm/bli_packm_cxk.h @@ -36,7 +36,7 @@ #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ conj_t conja, \ dim_t panel_dim, \ diff --git a/frame/1m/packm/bli_packm_cxk_1er.c b/frame/1m/packm/bli_packm_cxk_1er.c index 8331acf1c..e583c8a82 100644 --- a/frame/1m/packm/bli_packm_cxk_1er.c +++ b/frame/1m/packm/bli_packm_cxk_1er.c @@ -37,7 +37,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conja, \ pack_t schema, \ diff --git a/frame/1m/packm/bli_packm_cxk_1er.h b/frame/1m/packm/bli_packm_cxk_1er.h index 77151a2e5..2b0c977b9 100644 --- a/frame/1m/packm/bli_packm_cxk_1er.h +++ b/frame/1m/packm/bli_packm_cxk_1er.h @@ -36,7 +36,7 @@ #undef GENTPROTCO #define GENTPROTCO( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ conj_t conja, \ pack_t schema, \ diff --git a/frame/1m/packm/bli_packm_cxk_3mis.c b/frame/1m/packm/bli_packm_cxk_3mis.c index 900eefb50..9435f6a73 100644 --- a/frame/1m/packm/bli_packm_cxk_3mis.c +++ b/frame/1m/packm/bli_packm_cxk_3mis.c @@ -37,7 +37,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conja, \ dim_t panel_dim, \ diff --git a/frame/1m/packm/bli_packm_cxk_3mis.h b/frame/1m/packm/bli_packm_cxk_3mis.h index 472723986..358cdcee4 100644 --- a/frame/1m/packm/bli_packm_cxk_3mis.h +++ b/frame/1m/packm/bli_packm_cxk_3mis.h @@ -36,7 +36,7 @@ #undef GENTPROTCO #define GENTPROTCO( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ conj_t conja, \ dim_t panel_dim, \ diff --git a/frame/1m/packm/bli_packm_cxk_4mi.c b/frame/1m/packm/bli_packm_cxk_4mi.c index 03f151681..c22f551cc 100644 --- a/frame/1m/packm/bli_packm_cxk_4mi.c +++ b/frame/1m/packm/bli_packm_cxk_4mi.c @@ -37,7 +37,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conja, \ dim_t panel_dim, \ diff --git a/frame/1m/packm/bli_packm_cxk_4mi.h b/frame/1m/packm/bli_packm_cxk_4mi.h index 1ad57079c..244f2d045 100644 --- a/frame/1m/packm/bli_packm_cxk_4mi.h +++ b/frame/1m/packm/bli_packm_cxk_4mi.h @@ -36,7 +36,7 @@ #undef GENTPROTCO #define GENTPROTCO( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ conj_t conja, \ dim_t panel_dim, \ diff --git a/frame/1m/packm/bli_packm_cxk_rih.c b/frame/1m/packm/bli_packm_cxk_rih.c index 62e4b5246..1f2c9f240 100644 --- a/frame/1m/packm/bli_packm_cxk_rih.c +++ b/frame/1m/packm/bli_packm_cxk_rih.c @@ -37,7 +37,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conja, \ pack_t schema, \ diff --git a/frame/1m/packm/bli_packm_cxk_rih.h b/frame/1m/packm/bli_packm_cxk_rih.h index 7bf49aca7..c1d2ba9fe 100644 --- a/frame/1m/packm/bli_packm_cxk_rih.h +++ b/frame/1m/packm/bli_packm_cxk_rih.h @@ -36,7 +36,7 @@ #undef GENTPROTCO #define GENTPROTCO( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ conj_t conja, \ pack_t schema, \ diff --git a/frame/1m/packm/bli_packm_init.h b/frame/1m/packm/bli_packm_init.h index c1b1a8f62..6896ab913 100644 --- a/frame/1m/packm/bli_packm_init.h +++ b/frame/1m/packm/bli_packm_init.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS siz_t bli_packm_init +siz_t bli_packm_init ( obj_t* a, obj_t* p, @@ -40,7 +40,7 @@ BLIS_EXPORT_BLIS siz_t bli_packm_init cntl_t* cntl ); -BLIS_EXPORT_BLIS siz_t bli_packm_init_pack +siz_t bli_packm_init_pack ( invdiag_t invert_diag, pack_t schema, diff --git a/frame/1m/packm/bli_packm_int.c b/frame/1m/packm/bli_packm_int.c index c59781532..6dc9ec85a 100644 --- a/frame/1m/packm/bli_packm_int.c +++ b/frame/1m/packm/bli_packm_int.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_packm_int +void bli_packm_int ( obj_t* a, obj_t* p, diff --git a/frame/1m/packm/bli_packm_int.h b/frame/1m/packm/bli_packm_int.h index 883c72ae9..573a299d6 100644 --- a/frame/1m/packm/bli_packm_int.h +++ b/frame/1m/packm/bli_packm_int.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_packm_int +void bli_packm_int ( obj_t* a, obj_t* p, diff --git a/frame/1m/packm/bli_packm_part.c b/frame/1m/packm/bli_packm_part.c index 09cedbed1..2fff4b7c8 100644 --- a/frame/1m/packm/bli_packm_part.c +++ b/frame/1m/packm/bli_packm_part.c @@ -38,7 +38,7 @@ // -- Matrix partitioning ------------------------------------------------------ -BLIS_EXPORT_BLIS void bli_packm_acquire_mpart_t2b( subpart_t requested_part, +void bli_packm_acquire_mpart_t2b( subpart_t requested_part, dim_t i, dim_t b, obj_t* obj, @@ -110,7 +110,7 @@ BLIS_EXPORT_BLIS void bli_packm_acquire_mpart_t2b( subpart_t requested_part, -BLIS_EXPORT_BLIS void bli_packm_acquire_mpart_l2r( subpart_t requested_part, +void bli_packm_acquire_mpart_l2r( subpart_t requested_part, dim_t j, dim_t b, obj_t* obj, @@ -186,7 +186,7 @@ BLIS_EXPORT_BLIS void bli_packm_acquire_mpart_l2r( subpart_t requested_part, -BLIS_EXPORT_BLIS void bli_packm_acquire_mpart_tl2br( subpart_t requested_part, +void bli_packm_acquire_mpart_tl2br( subpart_t requested_part, dim_t ij, dim_t b, obj_t* obj, diff --git a/frame/1m/packm/bli_packm_part.h b/frame/1m/packm/bli_packm_part.h index e2ccbf18e..5930d312e 100644 --- a/frame/1m/packm/bli_packm_part.h +++ b/frame/1m/packm/bli_packm_part.h @@ -34,23 +34,23 @@ // -- Matrix partitioning ------------------------------------------------------ -BLIS_EXPORT_BLIS void bli_packm_acquire_mpart_t2b( subpart_t requested_part, +void bli_packm_acquire_mpart_t2b( subpart_t requested_part, dim_t i, dim_t b, obj_t* obj, obj_t* sub_obj ); -BLIS_EXPORT_BLIS void bli_packm_acquire_mpart_l2r( subpart_t requested_part, +void bli_packm_acquire_mpart_l2r( subpart_t requested_part, dim_t j, dim_t b, obj_t* obj, obj_t* sub_obj ); -BLIS_EXPORT_BLIS void bli_packm_acquire_mpart_tl2br( subpart_t requested_part, +void bli_packm_acquire_mpart_tl2br( subpart_t requested_part, dim_t ij, dim_t b, obj_t* obj, obj_t* sub_obj ); -BLIS_EXPORT_BLIS dim_t bli_packm_offset_to_panel_for( dim_t offmn, obj_t* p ); +dim_t bli_packm_offset_to_panel_for( dim_t offmn, obj_t* p ); diff --git a/frame/1m/packm/bli_packm_struc_cxk.c b/frame/1m/packm/bli_packm_struc_cxk.c index 5e7decea6..b86a9ebbd 100644 --- a/frame/1m/packm/bli_packm_struc_cxk.c +++ b/frame/1m/packm/bli_packm_struc_cxk.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -278,7 +278,7 @@ INSERT_GENTFUNC_BASIC( packm_struc_cxk, packm_cxk ) #undef GENTFUNC #define GENTFUNC( ctype, ch, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -532,7 +532,7 @@ INSERT_GENTFUNC_BASIC( packm_herm_cxk, packm_cxk ) #undef GENTFUNC #define GENTFUNC( ctype, ch, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffp, \ diff --git a/frame/1m/packm/bli_packm_struc_cxk.h b/frame/1m/packm/bli_packm_struc_cxk.h index f192bd3cd..5b486d776 100644 --- a/frame/1m/packm/bli_packm_struc_cxk.h +++ b/frame/1m/packm/bli_packm_struc_cxk.h @@ -35,7 +35,7 @@ #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffp, \ @@ -62,7 +62,7 @@ INSERT_GENTPROT_BASIC0( packm_struc_cxk ) #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -92,7 +92,7 @@ INSERT_GENTPROT_BASIC0( packm_herm_cxk ) #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ diff --git a/frame/1m/packm/bli_packm_struc_cxk_1er.c b/frame/1m/packm/bli_packm_struc_cxk_1er.c index 9a2c079c3..038ee1b8f 100644 --- a/frame/1m/packm/bli_packm_struc_cxk_1er.c +++ b/frame/1m/packm/bli_packm_struc_cxk_1er.c @@ -37,7 +37,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -274,7 +274,7 @@ INSERT_GENTFUNCCO_BASIC( packm_struc_cxk_1er, packm_cxk_1er ) #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -520,7 +520,7 @@ INSERT_GENTFUNCCO_BASIC( packm_herm_cxk_1er, packm_cxk_1er ) #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffp, \ diff --git a/frame/1m/packm/bli_packm_struc_cxk_1er.h b/frame/1m/packm/bli_packm_struc_cxk_1er.h index 348f5bd30..e63edf8f2 100644 --- a/frame/1m/packm/bli_packm_struc_cxk_1er.h +++ b/frame/1m/packm/bli_packm_struc_cxk_1er.h @@ -35,7 +35,7 @@ #undef GENTPROTCO #define GENTPROTCO( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffp, \ @@ -62,7 +62,7 @@ INSERT_GENTPROTCO_BASIC0( packm_struc_cxk_1er ) #undef GENTPROTCO #define GENTPROTCO( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -92,7 +92,7 @@ INSERT_GENTPROTCO_BASIC0( packm_herm_cxk_1er ) #undef GENTPROTCO #define GENTPROTCO( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ diff --git a/frame/1m/packm/bli_packm_struc_cxk_3mis.c b/frame/1m/packm/bli_packm_struc_cxk_3mis.c index 7530ad42b..9d01b3b40 100644 --- a/frame/1m/packm/bli_packm_struc_cxk_3mis.c +++ b/frame/1m/packm/bli_packm_struc_cxk_3mis.c @@ -37,7 +37,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -338,7 +338,7 @@ INSERT_GENTFUNCCO_BASIC( packm_struc_cxk_3mis, packm_cxk_3mis ) #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -657,7 +657,7 @@ INSERT_GENTFUNCCO_BASIC( packm_herm_cxk_3mis, packm_cxk_3mis ) #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffp, \ diff --git a/frame/1m/packm/bli_packm_struc_cxk_3mis.h b/frame/1m/packm/bli_packm_struc_cxk_3mis.h index f4568f722..24f2c0fcb 100644 --- a/frame/1m/packm/bli_packm_struc_cxk_3mis.h +++ b/frame/1m/packm/bli_packm_struc_cxk_3mis.h @@ -35,7 +35,7 @@ #undef GENTPROTCO #define GENTPROTCO( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffp, \ @@ -62,7 +62,7 @@ INSERT_GENTPROTCO_BASIC0( packm_struc_cxk_3mis ) #undef GENTPROTCO #define GENTPROTCO( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -92,7 +92,7 @@ INSERT_GENTPROTCO_BASIC0( packm_herm_cxk_3mis ) #undef GENTPROTCO #define GENTPROTCO( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ diff --git a/frame/1m/packm/bli_packm_struc_cxk_4mi.c b/frame/1m/packm/bli_packm_struc_cxk_4mi.c index 80ce1ffb8..3df849921 100644 --- a/frame/1m/packm/bli_packm_struc_cxk_4mi.c +++ b/frame/1m/packm/bli_packm_struc_cxk_4mi.c @@ -37,7 +37,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -308,7 +308,7 @@ INSERT_GENTFUNCCO_BASIC( packm_struc_cxk_4mi, packm_cxk_4mi ) #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -612,7 +612,7 @@ INSERT_GENTFUNCCO_BASIC( packm_herm_cxk_4mi, packm_cxk_4mi ) #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffp, \ diff --git a/frame/1m/packm/bli_packm_struc_cxk_4mi.h b/frame/1m/packm/bli_packm_struc_cxk_4mi.h index 65cee615b..f2e6636bf 100644 --- a/frame/1m/packm/bli_packm_struc_cxk_4mi.h +++ b/frame/1m/packm/bli_packm_struc_cxk_4mi.h @@ -35,7 +35,7 @@ #undef GENTPROTCO #define GENTPROTCO( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffp, \ @@ -62,7 +62,7 @@ INSERT_GENTPROTCO_BASIC0( packm_struc_cxk_4mi ) #undef GENTPROTCO #define GENTPROTCO( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -92,7 +92,7 @@ INSERT_GENTPROTCO_BASIC0( packm_herm_cxk_4mi ) #undef GENTPROTCO #define GENTPROTCO( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ diff --git a/frame/1m/packm/bli_packm_struc_cxk_md.c b/frame/1m/packm/bli_packm_struc_cxk_md.c index 8bae422a6..52a1f9817 100644 --- a/frame/1m/packm/bli_packm_struc_cxk_md.c +++ b/frame/1m/packm/bli_packm_struc_cxk_md.c @@ -39,7 +39,7 @@ #undef GENTFUNC2 #define GENTFUNC2( ctype_c, ctype_p, chc, chp, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(chc,chp,varname) \ +void PASTEMAC2(chc,chp,varname) \ ( \ conj_t conjc, \ pack_t schema, \ @@ -313,7 +313,7 @@ INSERT_GENTFUNC2_MIXDP0( packm_struc_cxk_md ) #undef GENTFUNC2 #define GENTFUNC2( ctype_a, ctype_p, cha, chp, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(cha,chp,opname) \ +void PASTEMAC2(cha,chp,opname) \ ( \ conj_t conja, \ dim_t m, \ @@ -440,7 +440,7 @@ INSERT_GENTFUNC2_MIXDP0( packm_cxk_1r_md ) #undef GENTFUNC2 #define GENTFUNC2( ctype_a, ctype_p, cha, chp, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(cha,chp,opname) \ +void PASTEMAC2(cha,chp,opname) \ ( \ conj_t conja, \ dim_t m, \ diff --git a/frame/1m/packm/bli_packm_struc_cxk_md.h b/frame/1m/packm/bli_packm_struc_cxk_md.h index f6b62160c..72ca67937 100644 --- a/frame/1m/packm/bli_packm_struc_cxk_md.h +++ b/frame/1m/packm/bli_packm_struc_cxk_md.h @@ -35,7 +35,7 @@ #undef GENTPROT2 #define GENTPROT2( ctype_c, ctype_p, chc, chp, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(chc,chp,varname) \ +void PASTEMAC2(chc,chp,varname) \ ( \ conj_t conjc, \ pack_t schema, \ @@ -57,7 +57,7 @@ INSERT_GENTPROT2_MIXDP0( packm_struc_cxk_md ) #undef GENTPROT2 #define GENTPROT2( ctype_a, ctype_p, cha, chp, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(cha,chp,opname) \ +void PASTEMAC2(cha,chp,opname) \ ( \ conj_t conja, \ dim_t m, \ diff --git a/frame/1m/packm/bli_packm_struc_cxk_rih.c b/frame/1m/packm/bli_packm_struc_cxk_rih.c index e73970ab5..32a7ec1a7 100644 --- a/frame/1m/packm/bli_packm_struc_cxk_rih.c +++ b/frame/1m/packm/bli_packm_struc_cxk_rih.c @@ -37,7 +37,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -269,7 +269,7 @@ INSERT_GENTFUNCCO_BASIC( packm_struc_cxk_rih, packm_cxk_rih ) #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -522,7 +522,7 @@ INSERT_GENTFUNCCO_BASIC( packm_herm_cxk_rih, packm_cxk_rih ) #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffp, \ diff --git a/frame/1m/packm/bli_packm_struc_cxk_rih.h b/frame/1m/packm/bli_packm_struc_cxk_rih.h index 392124021..e87767e26 100644 --- a/frame/1m/packm/bli_packm_struc_cxk_rih.h +++ b/frame/1m/packm/bli_packm_struc_cxk_rih.h @@ -35,7 +35,7 @@ #undef GENTPROTCO #define GENTPROTCO( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffp, \ @@ -62,7 +62,7 @@ INSERT_GENTPROTCO_BASIC0( packm_struc_cxk_rih ) #undef GENTPROTCO #define GENTPROTCO( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -92,7 +92,7 @@ INSERT_GENTPROTCO_BASIC0( packm_herm_cxk_rih ) #undef GENTPROTCO #define GENTPROTCO( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ diff --git a/frame/1m/packm/bli_packm_thrinfo.c b/frame/1m/packm/bli_packm_thrinfo.c index 26637c0f3..92162c422 100644 --- a/frame/1m/packm/bli_packm_thrinfo.c +++ b/frame/1m/packm/bli_packm_thrinfo.c @@ -35,7 +35,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_packm_thrinfo_init +void bli_packm_thrinfo_init ( thrinfo_t* thread, thrcomm_t* ocomm, @@ -57,7 +57,7 @@ BLIS_EXPORT_BLIS void bli_packm_thrinfo_init ); } -BLIS_EXPORT_BLIS void bli_packm_thrinfo_init_single +void bli_packm_thrinfo_init_single ( thrinfo_t* thread ) diff --git a/frame/1m/packm/bli_packm_thrinfo.h b/frame/1m/packm/bli_packm_thrinfo.h index 6a9e3774e..7d35cbc93 100644 --- a/frame/1m/packm/bli_packm_thrinfo.h +++ b/frame/1m/packm/bli_packm_thrinfo.h @@ -70,7 +70,7 @@ // #if 0 -BLIS_EXPORT_BLIS thrinfo_t* bli_packm_thrinfo_create +thrinfo_t* bli_packm_thrinfo_create ( thrcomm_t* ocomm, dim_t ocomm_id, @@ -80,7 +80,7 @@ BLIS_EXPORT_BLIS thrinfo_t* bli_packm_thrinfo_create ); #endif -BLIS_EXPORT_BLIS void bli_packm_thrinfo_init +void bli_packm_thrinfo_init ( thrinfo_t* thread, thrcomm_t* ocomm, @@ -91,13 +91,13 @@ BLIS_EXPORT_BLIS void bli_packm_thrinfo_init thrinfo_t* sub_node ); -BLIS_EXPORT_BLIS void bli_packm_thrinfo_init_single +void bli_packm_thrinfo_init_single ( thrinfo_t* thread ); #if 0 -BLIS_EXPORT_BLIS void bli_packm_thrinfo_free +void bli_packm_thrinfo_free ( thrinfo_t* thread ); diff --git a/frame/1m/packm/bli_packm_unb_var1.c b/frame/1m/packm/bli_packm_unb_var1.c index c6705b956..6e72b3e9d 100644 --- a/frame/1m/packm/bli_packm_unb_var1.c +++ b/frame/1m/packm/bli_packm_unb_var1.c @@ -125,7 +125,7 @@ void bli_packm_unb_var1 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ diff --git a/frame/1m/packm/bli_packm_unb_var1.h b/frame/1m/packm/bli_packm_unb_var1.h index 9d7b20c52..8960c8661 100644 --- a/frame/1m/packm/bli_packm_unb_var1.h +++ b/frame/1m/packm/bli_packm_unb_var1.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_packm_unb_var1 +void bli_packm_unb_var1 ( obj_t* c, obj_t* p, @@ -45,7 +45,7 @@ BLIS_EXPORT_BLIS void bli_packm_unb_var1 #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ diff --git a/frame/1m/packm/bli_packm_var.h b/frame/1m/packm/bli_packm_var.h index 3e1e2dd32..6c11b19ab 100644 --- a/frame/1m/packm/bli_packm_var.h +++ b/frame/1m/packm/bli_packm_var.h @@ -40,7 +40,7 @@ #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* c, \ obj_t* p, \ @@ -59,7 +59,7 @@ GENPROT( packm_blk_var1 ) #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -81,7 +81,7 @@ INSERT_GENTPROT_BASIC0( packm_unb_var1 ) #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ diff --git a/frame/1m/unpackm/bli_unpackm_blk_var1.c b/frame/1m/unpackm/bli_unpackm_blk_var1.c index 430efd45b..b2c862045 100644 --- a/frame/1m/unpackm/bli_unpackm_blk_var1.c +++ b/frame/1m/unpackm/bli_unpackm_blk_var1.c @@ -55,7 +55,7 @@ typedef void (*FUNCPTR_T)( static FUNCPTR_T GENARRAY(ftypes,unpackm_blk_var1); -BLIS_EXPORT_BLIS void bli_unpackm_blk_var1 +void bli_unpackm_blk_var1 ( obj_t* p, obj_t* c, @@ -126,7 +126,7 @@ BLIS_EXPORT_BLIS void bli_unpackm_blk_var1 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ diff --git a/frame/1m/unpackm/bli_unpackm_blk_var1.h b/frame/1m/unpackm/bli_unpackm_blk_var1.h index 160cef90f..abd044549 100644 --- a/frame/1m/unpackm/bli_unpackm_blk_var1.h +++ b/frame/1m/unpackm/bli_unpackm_blk_var1.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_unpackm_blk_var1 +void bli_unpackm_blk_var1 ( obj_t* p, obj_t* c, @@ -45,7 +45,7 @@ BLIS_EXPORT_BLIS void bli_unpackm_blk_var1 #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ diff --git a/frame/1m/unpackm/bli_unpackm_check.c b/frame/1m/unpackm/bli_unpackm_check.c index 19189bdbf..5bce60ed3 100644 --- a/frame/1m/unpackm/bli_unpackm_check.c +++ b/frame/1m/unpackm/bli_unpackm_check.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_unpackm_int_check +void bli_unpackm_int_check ( obj_t* p, obj_t* a, diff --git a/frame/1m/unpackm/bli_unpackm_check.h b/frame/1m/unpackm/bli_unpackm_check.h index 0edb6bc57..d2a976dd8 100644 --- a/frame/1m/unpackm/bli_unpackm_check.h +++ b/frame/1m/unpackm/bli_unpackm_check.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_unpackm_int_check +void bli_unpackm_int_check ( obj_t* p, obj_t* a, diff --git a/frame/1m/unpackm/bli_unpackm_cntl.h b/frame/1m/unpackm/bli_unpackm_cntl.h index 1d7ba609c..b282c3561 100644 --- a/frame/1m/unpackm/bli_unpackm_cntl.h +++ b/frame/1m/unpackm/bli_unpackm_cntl.h @@ -46,7 +46,7 @@ typedef struct unpackm_params_s unpackm_params_t; // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS cntl_t* bli_unpackm_cntl_create_node +cntl_t* bli_unpackm_cntl_create_node ( rntm_t* rntm, void* var_func, diff --git a/frame/1m/unpackm/bli_unpackm_cxk.c b/frame/1m/unpackm/bli_unpackm_cxk.c index 88dffd692..4423c41a2 100644 --- a/frame/1m/unpackm/bli_unpackm_cxk.c +++ b/frame/1m/unpackm/bli_unpackm_cxk.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjp, \ dim_t panel_dim, \ diff --git a/frame/1m/unpackm/bli_unpackm_cxk.h b/frame/1m/unpackm/bli_unpackm_cxk.h index 730f15fa9..53c3c0c44 100644 --- a/frame/1m/unpackm/bli_unpackm_cxk.h +++ b/frame/1m/unpackm/bli_unpackm_cxk.h @@ -36,7 +36,7 @@ #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ conj_t conjp, \ dim_t panel_dim, \ diff --git a/frame/1m/unpackm/bli_unpackm_int.c b/frame/1m/unpackm/bli_unpackm_int.c index 83b0acfbe..f4c8ab82d 100644 --- a/frame/1m/unpackm/bli_unpackm_int.c +++ b/frame/1m/unpackm/bli_unpackm_int.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_unpackm_int +void bli_unpackm_int ( obj_t* p, obj_t* a, diff --git a/frame/1m/unpackm/bli_unpackm_int.h b/frame/1m/unpackm/bli_unpackm_int.h index 690a5479c..cb66d0975 100644 --- a/frame/1m/unpackm/bli_unpackm_int.h +++ b/frame/1m/unpackm/bli_unpackm_int.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_unpackm_int +void bli_unpackm_int ( obj_t* p, obj_t* a, diff --git a/frame/1m/unpackm/bli_unpackm_unb_var1.c b/frame/1m/unpackm/bli_unpackm_unb_var1.c index d7bb57e60..c1033c2cb 100644 --- a/frame/1m/unpackm/bli_unpackm_unb_var1.c +++ b/frame/1m/unpackm/bli_unpackm_unb_var1.c @@ -50,7 +50,7 @@ typedef void (*FUNCPTR_T)( static FUNCPTR_T GENARRAY(ftypes,unpackm_unb_var1); -BLIS_EXPORT_BLIS void bli_unpackm_unb_var1 +void bli_unpackm_unb_var1 ( obj_t* p, obj_t* c, @@ -98,7 +98,7 @@ BLIS_EXPORT_BLIS void bli_unpackm_unb_var1 #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname)( \ +void PASTEMAC(ch,varname)( \ doff_t diagoffp, \ uplo_t uplop, \ trans_t transp, \ diff --git a/frame/1m/unpackm/bli_unpackm_unb_var1.h b/frame/1m/unpackm/bli_unpackm_unb_var1.h index 290b1a927..5119aaa7f 100644 --- a/frame/1m/unpackm/bli_unpackm_unb_var1.h +++ b/frame/1m/unpackm/bli_unpackm_unb_var1.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_unpackm_unb_var1 +void bli_unpackm_unb_var1 ( obj_t* p, obj_t* c, @@ -44,7 +44,7 @@ BLIS_EXPORT_BLIS void bli_unpackm_unb_var1 #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffp, \ uplo_t uplop, \ diff --git a/frame/2/bli_l2_check.h b/frame/2/bli_l2_check.h index 6d1e2b2da..af9388753 100644 --- a/frame/2/bli_l2_check.h +++ b/frame/2/bli_l2_check.h @@ -40,7 +40,7 @@ #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -57,7 +57,7 @@ GENPROT( symv ) #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -73,7 +73,7 @@ GENPROT( syr2 ) #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -87,7 +87,7 @@ GENPROT( syr ) #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -100,7 +100,7 @@ GENPROT( trsv ) // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_xxmv_check +void bli_xxmv_check ( obj_t* alpha, obj_t* a, @@ -109,7 +109,7 @@ BLIS_EXPORT_BLIS void bli_xxmv_check obj_t* y ); -BLIS_EXPORT_BLIS void bli_xxr_check +void bli_xxr_check ( obj_t* alpha, obj_t* x, diff --git a/frame/2/bli_l2_fpa.h b/frame/2/bli_l2_fpa.h index c22e040e9..414bd82c2 100644 --- a/frame/2/bli_l2_fpa.h +++ b/frame/2/bli_l2_fpa.h @@ -40,7 +40,7 @@ #define GENPROT( opname ) \ \ PASTECH2(opname,BLIS_TAPI_EX_SUF,_vft) \ -BLIS_EXPORT_BLIS PASTEMAC2(opname,BLIS_TAPI_EX_SUF,_qfp)( num_t dt ); +PASTEMAC2(opname,BLIS_TAPI_EX_SUF,_qfp)( num_t dt ); GENPROT( gemv ) GENPROT( ger ) @@ -61,7 +61,7 @@ GENPROT( trsv ) #define GENPROT( opname, varname ) \ \ PASTECH2(opname,_unb,_vft) \ -BLIS_EXPORT_BLIS PASTEMAC(varname,_qfp)( num_t dt ); +PASTEMAC(varname,_qfp)( num_t dt ); GENPROT( gemv, gemv_unb_var1 ) GENPROT( gemv, gemv_unb_var2 ) diff --git a/frame/2/bli_l2_oapi.c b/frame/2/bli_l2_oapi.c index 6d4d14170..25acb4207 100644 --- a/frame/2/bli_l2_oapi.c +++ b/frame/2/bli_l2_oapi.c @@ -43,7 +43,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -116,7 +116,7 @@ GENFRONT( gemv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -182,7 +182,7 @@ GENFRONT( ger ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -256,7 +256,7 @@ GENFRONT( symv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -317,7 +317,7 @@ GENFRONT( syr ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -384,7 +384,7 @@ GENFRONT( syr2 ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* a, \ diff --git a/frame/2/bli_l2_tapi.c b/frame/2/bli_l2_tapi.c index 6b7f5cd12..f6eb6c7d9 100644 --- a/frame/2/bli_l2_tapi.c +++ b/frame/2/bli_l2_tapi.c @@ -43,7 +43,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, ftname, rvarname, cvarname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ trans_t transa, \ conj_t conjx, \ @@ -126,7 +126,7 @@ INSERT_GENTFUNC_BASIC3( gemv, gemv, gemv_unf_var1, gemv_unf_var2 ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, ftname, rvarname, cvarname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjx, \ conj_t conjy, \ @@ -178,7 +178,7 @@ INSERT_GENTFUNC_BASIC3( ger, ger, ger_unb_var1, ger_unb_var2 ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, ftname, conjh, rvarname, cvarname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploa, \ conj_t conja, \ @@ -255,7 +255,7 @@ 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 ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploa, \ conj_t conjx, \ @@ -319,7 +319,7 @@ INSERT_GENTFUNCR_BASIC4( her, her, BLIS_CONJUGATE, her_unb_var1, her_unb_var2 ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, ftname, conjh, rvarname, cvarname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploa, \ conj_t conjx, \ @@ -376,7 +376,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 ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploa, \ conj_t conjx, \ @@ -438,7 +438,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 ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/gemv/bli_gemv_unb_var1.c b/frame/2/gemv/bli_gemv_unb_var1.c index e3d5de14c..3f5681d2b 100644 --- a/frame/2/gemv/bli_gemv_unb_var1.c +++ b/frame/2/gemv/bli_gemv_unb_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ trans_t transa, \ conj_t conjx, \ diff --git a/frame/2/gemv/bli_gemv_unb_var2.c b/frame/2/gemv/bli_gemv_unb_var2.c index 4bdad7ab2..8166aa417 100644 --- a/frame/2/gemv/bli_gemv_unb_var2.c +++ b/frame/2/gemv/bli_gemv_unb_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ trans_t transa, \ conj_t conjx, \ diff --git a/frame/2/gemv/bli_gemv_unf_var1.c b/frame/2/gemv/bli_gemv_unf_var1.c index 65e00f32f..e392e830e 100644 --- a/frame/2/gemv/bli_gemv_unf_var1.c +++ b/frame/2/gemv/bli_gemv_unf_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ trans_t transa, \ conj_t conjx, \ diff --git a/frame/2/gemv/bli_gemv_unf_var2.c b/frame/2/gemv/bli_gemv_unf_var2.c index 729826220..fe7702e4c 100644 --- a/frame/2/gemv/bli_gemv_unf_var2.c +++ b/frame/2/gemv/bli_gemv_unf_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ trans_t transa, \ conj_t conjx, \ diff --git a/frame/2/gemv/bli_gemv_var.h b/frame/2/gemv/bli_gemv_var.h index b19e3ddf2..2102c1d0b 100644 --- a/frame/2/gemv/bli_gemv_var.h +++ b/frame/2/gemv/bli_gemv_var.h @@ -40,7 +40,7 @@ #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -68,7 +68,7 @@ GENPROT( gemv_unf_var2 ) #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ trans_t transa, \ conj_t conjx, \ diff --git a/frame/2/gemv/bli_gemv_var_oapi.c b/frame/2/gemv/bli_gemv_var_oapi.c index d137d21b0..2e746b417 100644 --- a/frame/2/gemv/bli_gemv_var_oapi.c +++ b/frame/2/gemv/bli_gemv_var_oapi.c @@ -37,7 +37,7 @@ #undef GENFRONT #define GENFRONT( opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(varname) \ +void PASTEMAC0(varname) \ ( \ obj_t* alpha, \ obj_t* a, \ diff --git a/frame/2/gemv/bli_gemv_var_oapi.c.prev b/frame/2/gemv/bli_gemv_var_oapi.c.prev index c62979732..595508d0f 100644 --- a/frame/2/gemv/bli_gemv_var_oapi.c.prev +++ b/frame/2/gemv/bli_gemv_var_oapi.c.prev @@ -40,7 +40,7 @@ /*static gemv_vft GENARRAY(ftypes,gemv_unb_var1);*/ \ static GENARRAY_VFP(ftname,opname); \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* alpha, \ obj_t* a, \ diff --git a/frame/2/gemv/other/bli_gemv_cntl.h b/frame/2/gemv/other/bli_gemv_cntl.h index 848c99442..e60fd8b5a 100644 --- a/frame/2/gemv/other/bli_gemv_cntl.h +++ b/frame/2/gemv/other/bli_gemv_cntl.h @@ -54,9 +54,9 @@ typedef struct gemv_s gemv_t; #define bli_cntl_sub_gemv_t_rp( cntl ) cntl->sub_gemv_t_rp #define bli_cntl_sub_gemv_t_cp( cntl ) cntl->sub_gemv_t_cp -BLIS_EXPORT_BLIS void bli_gemv_cntl_init( void ); -BLIS_EXPORT_BLIS void bli_gemv_cntl_finalize( void ); -BLIS_EXPORT_BLIS gemv_t* bli_gemv_cntl_obj_create( impl_t impl_type, +void bli_gemv_cntl_init( void ); +void bli_gemv_cntl_finalize( void ); +gemv_t* bli_gemv_cntl_obj_create( impl_t impl_type, varnum_t var_num, bszid_t bszid, scalv_t* sub_scalv, @@ -65,7 +65,7 @@ BLIS_EXPORT_BLIS gemv_t* bli_gemv_cntl_obj_create( impl_t impl_type, packv_t* sub_packv_y, gemv_t* sub_gemv, unpackv_t* sub_unpackv_y ); -BLIS_EXPORT_BLIS void bli_gemv_cntl_obj_init( gemv_t* cntl, +void bli_gemv_cntl_obj_init( gemv_t* cntl, impl_t impl_type, varnum_t var_num, bszid_t bszid, diff --git a/frame/2/gemv/other/bli_gemv_front.c b/frame/2/gemv/other/bli_gemv_front.c index a7f24610c..3fd1c8cf7 100644 --- a/frame/2/gemv/other/bli_gemv_front.c +++ b/frame/2/gemv/other/bli_gemv_front.c @@ -165,7 +165,7 @@ void bli_gemv_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ trans_t transa, \ conj_t conjx, \ diff --git a/frame/2/gemv/other/bli_gemv_front.h b/frame/2/gemv/other/bli_gemv_front.h index 4c8677bdc..5ffb1aedf 100644 --- a/frame/2/gemv/other/bli_gemv_front.h +++ b/frame/2/gemv/other/bli_gemv_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_gemv_front +void bli_gemv_front ( obj_t* alpha, obj_t* a, @@ -45,7 +45,7 @@ BLIS_EXPORT_BLIS void bli_gemv_front #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ trans_t transa, \ conj_t conjx, \ diff --git a/frame/2/gemv/other/bli_gemv_int.h b/frame/2/gemv/other/bli_gemv_int.h index 33ab520a7..478fe5fb7 100644 --- a/frame/2/gemv/other/bli_gemv_int.h +++ b/frame/2/gemv/other/bli_gemv_int.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_gemv_int +void bli_gemv_int ( trans_t transa, conj_t conjx, diff --git a/frame/2/ger/bli_ger_unb_var1.c b/frame/2/ger/bli_ger_unb_var1.c index d2af2a1b9..d6cda277e 100644 --- a/frame/2/ger/bli_ger_unb_var1.c +++ b/frame/2/ger/bli_ger_unb_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ conj_t conjx, \ conj_t conjy, \ diff --git a/frame/2/ger/bli_ger_unb_var2.c b/frame/2/ger/bli_ger_unb_var2.c index ed0ab0305..1590bfe5e 100644 --- a/frame/2/ger/bli_ger_unb_var2.c +++ b/frame/2/ger/bli_ger_unb_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ conj_t conjx, \ conj_t conjy, \ diff --git a/frame/2/ger/bli_ger_var.h b/frame/2/ger/bli_ger_var.h index 0e0abff94..a19bac08c 100644 --- a/frame/2/ger/bli_ger_var.h +++ b/frame/2/ger/bli_ger_var.h @@ -40,7 +40,7 @@ #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -64,7 +64,7 @@ GENPROT( ger_unb_var2 ) #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ conj_t conjx, \ conj_t conjy, \ diff --git a/frame/2/ger/bli_ger_var_oapi.c b/frame/2/ger/bli_ger_var_oapi.c index 41e83fdaf..3fd95e89f 100644 --- a/frame/2/ger/bli_ger_var_oapi.c +++ b/frame/2/ger/bli_ger_var_oapi.c @@ -37,7 +37,7 @@ #undef GENFRONT #define GENFRONT( opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(varname) \ +void PASTEMAC0(varname) \ ( \ obj_t* alpha, \ obj_t* x, \ diff --git a/frame/2/ger/other/bli_ger_cntl.h b/frame/2/ger/other/bli_ger_cntl.h index f1425c680..c5e0ebd3a 100644 --- a/frame/2/ger/other/bli_ger_cntl.h +++ b/frame/2/ger/other/bli_ger_cntl.h @@ -49,9 +49,9 @@ typedef struct ger_s ger_t; #define bli_cntl_sub_ger_rp( cntl ) cntl->sub_ger_rp #define bli_cntl_sub_ger_cp( cntl ) cntl->sub_ger_cp -BLIS_EXPORT_BLIS void bli_ger_cntl_init( void ); -BLIS_EXPORT_BLIS void bli_ger_cntl_finalize( void ); -BLIS_EXPORT_BLIS ger_t* bli_ger_cntl_obj_create( impl_t impl_type, +void bli_ger_cntl_init( void ); +void bli_ger_cntl_finalize( void ); +ger_t* bli_ger_cntl_obj_create( impl_t impl_type, varnum_t var_num, bszid_t bszid, packv_t* sub_packv_x, @@ -59,7 +59,7 @@ BLIS_EXPORT_BLIS ger_t* bli_ger_cntl_obj_create( impl_t impl_type, packm_t* sub_packm_a, ger_t* sub_ger, unpackm_t* sub_unpackm_a ); -BLIS_EXPORT_BLIS void bli_ger_cntl_obj_init( ger_t* cntl, +void bli_ger_cntl_obj_init( ger_t* cntl, impl_t impl_type, varnum_t var_num, bszid_t bszid, diff --git a/frame/2/ger/other/bli_ger_front.c b/frame/2/ger/other/bli_ger_front.c index 8ec5549b8..8f641fe2e 100644 --- a/frame/2/ger/other/bli_ger_front.c +++ b/frame/2/ger/other/bli_ger_front.c @@ -129,7 +129,7 @@ void bli_ger_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjx, \ conj_t conjy, \ diff --git a/frame/2/ger/other/bli_ger_front.h b/frame/2/ger/other/bli_ger_front.h index 0f45417c2..5547b13d1 100644 --- a/frame/2/ger/other/bli_ger_front.h +++ b/frame/2/ger/other/bli_ger_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_ger_front +void bli_ger_front ( obj_t* alpha, obj_t* x, @@ -44,7 +44,7 @@ BLIS_EXPORT_BLIS void bli_ger_front #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjx, \ conj_t conjy, \ diff --git a/frame/2/ger/other/bli_ger_int.h b/frame/2/ger/other/bli_ger_int.h index 42cd91f96..7cec64b6d 100644 --- a/frame/2/ger/other/bli_ger_int.h +++ b/frame/2/ger/other/bli_ger_int.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_ger_int( conj_t conjx, +void bli_ger_int( conj_t conjx, conj_t conjy, obj_t* alpha, obj_t* x, diff --git a/frame/2/hemv/bli_hemv_unb_var1.c b/frame/2/hemv/bli_hemv_unb_var1.c index dd6eebb76..ea5d478be 100644 --- a/frame/2/hemv/bli_hemv_unb_var1.c +++ b/frame/2/hemv/bli_hemv_unb_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conja, \ diff --git a/frame/2/hemv/bli_hemv_unb_var2.c b/frame/2/hemv/bli_hemv_unb_var2.c index d75b05394..1f7346517 100644 --- a/frame/2/hemv/bli_hemv_unb_var2.c +++ b/frame/2/hemv/bli_hemv_unb_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conja, \ diff --git a/frame/2/hemv/bli_hemv_unb_var3.c b/frame/2/hemv/bli_hemv_unb_var3.c index c2797faf4..6573e59fc 100644 --- a/frame/2/hemv/bli_hemv_unb_var3.c +++ b/frame/2/hemv/bli_hemv_unb_var3.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conja, \ diff --git a/frame/2/hemv/bli_hemv_unb_var4.c b/frame/2/hemv/bli_hemv_unb_var4.c index 2b46b83e0..deabc3ab4 100644 --- a/frame/2/hemv/bli_hemv_unb_var4.c +++ b/frame/2/hemv/bli_hemv_unb_var4.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conja, \ diff --git a/frame/2/hemv/bli_hemv_unf_var1.c b/frame/2/hemv/bli_hemv_unf_var1.c index f95699068..d36dc0098 100644 --- a/frame/2/hemv/bli_hemv_unf_var1.c +++ b/frame/2/hemv/bli_hemv_unf_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conja, \ diff --git a/frame/2/hemv/bli_hemv_unf_var1a.c b/frame/2/hemv/bli_hemv_unf_var1a.c index b99f17bd1..31ab1515f 100644 --- a/frame/2/hemv/bli_hemv_unf_var1a.c +++ b/frame/2/hemv/bli_hemv_unf_var1a.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conja, \ diff --git a/frame/2/hemv/bli_hemv_unf_var3.c b/frame/2/hemv/bli_hemv_unf_var3.c index a1b2e984b..d8db9bc78 100644 --- a/frame/2/hemv/bli_hemv_unf_var3.c +++ b/frame/2/hemv/bli_hemv_unf_var3.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conja, \ diff --git a/frame/2/hemv/bli_hemv_unf_var3a.c b/frame/2/hemv/bli_hemv_unf_var3a.c index b2bd018d5..54ab0f6ce 100644 --- a/frame/2/hemv/bli_hemv_unf_var3a.c +++ b/frame/2/hemv/bli_hemv_unf_var3a.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conja, \ diff --git a/frame/2/hemv/bli_hemv_var.h b/frame/2/hemv/bli_hemv_var.h index 629af9620..a591f1afe 100644 --- a/frame/2/hemv/bli_hemv_var.h +++ b/frame/2/hemv/bli_hemv_var.h @@ -40,7 +40,7 @@ #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ conj_t conjh, \ obj_t* alpha, \ @@ -75,7 +75,7 @@ GENPROT( hemv_unf_var3a ) #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conja, \ diff --git a/frame/2/hemv/bli_hemv_var_oapi.c b/frame/2/hemv/bli_hemv_var_oapi.c index 8d70f8ab1..845f288c3 100644 --- a/frame/2/hemv/bli_hemv_var_oapi.c +++ b/frame/2/hemv/bli_hemv_var_oapi.c @@ -37,7 +37,7 @@ #undef GENFRONT #define GENFRONT( opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(varname) \ +void PASTEMAC0(varname) \ ( \ conj_t conjh, \ obj_t* alpha, \ diff --git a/frame/2/hemv/other/bli_hemv_cntl.h b/frame/2/hemv/other/bli_hemv_cntl.h index 3a8d17d26..12f927056 100644 --- a/frame/2/hemv/other/bli_hemv_cntl.h +++ b/frame/2/hemv/other/bli_hemv_cntl.h @@ -52,9 +52,9 @@ typedef struct hemv_s hemv_t; #define bli_cntl_sub_hemv( cntl ) cntl->sub_hemv -BLIS_EXPORT_BLIS void bli_hemv_cntl_init( void ); -BLIS_EXPORT_BLIS void bli_hemv_cntl_finalize( void ); -BLIS_EXPORT_BLIS hemv_t* bli_hemv_cntl_obj_create( impl_t impl_type, +void bli_hemv_cntl_init( void ); +void bli_hemv_cntl_finalize( void ); +hemv_t* bli_hemv_cntl_obj_create( impl_t impl_type, varnum_t var_num, bszid_t bszid, scalv_t* sub_scalv, @@ -67,7 +67,7 @@ BLIS_EXPORT_BLIS hemv_t* bli_hemv_cntl_obj_create( impl_t impl_type, gemv_t* sub_gemv_t_cp, hemv_t* sub_hemv, unpackv_t* sub_unpackv_y1 ); -BLIS_EXPORT_BLIS void bli_hemv_cntl_obj_init( hemv_t* cntl, +void bli_hemv_cntl_obj_init( hemv_t* cntl, impl_t impl_type, varnum_t var_num, bszid_t bszid, diff --git a/frame/2/hemv/other/bli_hemv_front.c b/frame/2/hemv/other/bli_hemv_front.c index 149d8d6db..1293f6b8e 100644 --- a/frame/2/hemv/other/bli_hemv_front.c +++ b/frame/2/hemv/other/bli_hemv_front.c @@ -162,7 +162,7 @@ void bli_hemv_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploa, \ conj_t conja, \ diff --git a/frame/2/hemv/other/bli_hemv_front.h b/frame/2/hemv/other/bli_hemv_front.h index 1f111e06e..5e467be2e 100644 --- a/frame/2/hemv/other/bli_hemv_front.h +++ b/frame/2/hemv/other/bli_hemv_front.h @@ -33,7 +33,7 @@ */ -BLIS_EXPORT_BLIS void bli_hemv_front +void bli_hemv_front ( obj_t* alpha, obj_t* a, @@ -50,7 +50,7 @@ BLIS_EXPORT_BLIS void bli_hemv_front #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploa, \ conj_t conja, \ diff --git a/frame/2/hemv/other/bli_hemv_int.h b/frame/2/hemv/other/bli_hemv_int.h index 8576fa406..33c1c2a3f 100644 --- a/frame/2/hemv/other/bli_hemv_int.h +++ b/frame/2/hemv/other/bli_hemv_int.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_hemv_int( conj_t conjh, +void bli_hemv_int( conj_t conjh, obj_t* alpha, obj_t* a, obj_t* x, diff --git a/frame/2/her/bli_her_unb_var1.c b/frame/2/her/bli_her_unb_var1.c index cdfd116ac..e7f718680 100644 --- a/frame/2/her/bli_her_unb_var1.c +++ b/frame/2/her/bli_her_unb_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her/bli_her_unb_var2.c b/frame/2/her/bli_her_unb_var2.c index 90d6051dd..4b39e1df0 100644 --- a/frame/2/her/bli_her_unb_var2.c +++ b/frame/2/her/bli_her_unb_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her/bli_her_var.h b/frame/2/her/bli_her_var.h index b6634578f..f7f02baac 100644 --- a/frame/2/her/bli_her_var.h +++ b/frame/2/her/bli_her_var.h @@ -40,7 +40,7 @@ #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ conj_t conjh, \ obj_t* alpha, \ @@ -64,7 +64,7 @@ GENPROT( her_unb_var2 ) #undef GENTPROTR #define GENTPROTR( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her/bli_her_var_oapi.c b/frame/2/her/bli_her_var_oapi.c index d063f368b..ffca2e71e 100644 --- a/frame/2/her/bli_her_var_oapi.c +++ b/frame/2/her/bli_her_var_oapi.c @@ -37,7 +37,7 @@ #undef GENFRONT #define GENFRONT( opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(varname) \ +void PASTEMAC0(varname) \ ( \ conj_t conjh, \ obj_t* alpha, \ diff --git a/frame/2/her/other/bli_her_cntl.h b/frame/2/her/other/bli_her_cntl.h index 311f2fa49..45d24ba28 100644 --- a/frame/2/her/other/bli_her_cntl.h +++ b/frame/2/her/other/bli_her_cntl.h @@ -47,9 +47,9 @@ typedef struct her_s her_t; #define bli_cntl_sub_her( cntl ) cntl->sub_her -BLIS_EXPORT_BLIS void bli_her_cntl_init( void ); -BLIS_EXPORT_BLIS void bli_her_cntl_finalize( void ); -BLIS_EXPORT_BLIS her_t* bli_her_cntl_obj_create( impl_t impl_type, +void bli_her_cntl_init( void ); +void bli_her_cntl_finalize( void ); +her_t* bli_her_cntl_obj_create( impl_t impl_type, varnum_t var_num, bszid_t bszid, packv_t* sub_packv_x1, @@ -57,7 +57,7 @@ BLIS_EXPORT_BLIS her_t* bli_her_cntl_obj_create( impl_t impl_type, ger_t* sub_ger, her_t* sub_her, unpackm_t* sub_unpackm_c11 ); -BLIS_EXPORT_BLIS void bli_her_cntl_obj_init( her_t* cntl, +void bli_her_cntl_obj_init( her_t* cntl, impl_t impl_type, varnum_t var_num, bszid_t bszid, diff --git a/frame/2/her/other/bli_her_front.c b/frame/2/her/other/bli_her_front.c index 7f1a5dce6..7753b28cf 100644 --- a/frame/2/her/other/bli_her_front.c +++ b/frame/2/her/other/bli_her_front.c @@ -137,7 +137,7 @@ void bli_her_front #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ conj_t conjx, \ diff --git a/frame/2/her/other/bli_her_front.h b/frame/2/her/other/bli_her_front.h index 3ae9a9d50..99a0b43b8 100644 --- a/frame/2/her/other/bli_her_front.h +++ b/frame/2/her/other/bli_her_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_her_front +void bli_her_front ( obj_t* alpha, obj_t* x, @@ -43,7 +43,7 @@ BLIS_EXPORT_BLIS void bli_her_front #undef GENTPROTR #define GENTPROTR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ conj_t conjx, \ diff --git a/frame/2/her/other/bli_her_int.h b/frame/2/her/other/bli_her_int.h index bd2d6bd78..fc1b2c677 100644 --- a/frame/2/her/other/bli_her_int.h +++ b/frame/2/her/other/bli_her_int.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_her_int( conj_t conjh, +void bli_her_int( conj_t conjh, obj_t* alpha, obj_t* x, obj_t* c, diff --git a/frame/2/her2/bli_her2_unb_var1.c b/frame/2/her2/bli_her2_unb_var1.c index fdd06f26d..37423bfcb 100644 --- a/frame/2/her2/bli_her2_unb_var1.c +++ b/frame/2/her2/bli_her2_unb_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her2/bli_her2_unb_var2.c b/frame/2/her2/bli_her2_unb_var2.c index fa274f1ca..22d6de07a 100644 --- a/frame/2/her2/bli_her2_unb_var2.c +++ b/frame/2/her2/bli_her2_unb_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her2/bli_her2_unb_var3.c b/frame/2/her2/bli_her2_unb_var3.c index d176fb2af..297b9b702 100644 --- a/frame/2/her2/bli_her2_unb_var3.c +++ b/frame/2/her2/bli_her2_unb_var3.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her2/bli_her2_unb_var4.c b/frame/2/her2/bli_her2_unb_var4.c index 0ebeef77c..58adb0e70 100644 --- a/frame/2/her2/bli_her2_unb_var4.c +++ b/frame/2/her2/bli_her2_unb_var4.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her2/bli_her2_unf_var1.c b/frame/2/her2/bli_her2_unf_var1.c index 3abc1b316..a0aec48f7 100644 --- a/frame/2/her2/bli_her2_unf_var1.c +++ b/frame/2/her2/bli_her2_unf_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her2/bli_her2_unf_var4.c b/frame/2/her2/bli_her2_unf_var4.c index 799f3485f..3dea31d53 100644 --- a/frame/2/her2/bli_her2_unf_var4.c +++ b/frame/2/her2/bli_her2_unf_var4.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her2/bli_her2_var.h b/frame/2/her2/bli_her2_var.h index 3055a23c8..99672f68c 100644 --- a/frame/2/her2/bli_her2_var.h +++ b/frame/2/her2/bli_her2_var.h @@ -40,7 +40,7 @@ #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ conj_t conjh, \ obj_t* alpha, \ @@ -73,7 +73,7 @@ GENPROT( her2_unf_var4 ) #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her2/bli_her2_var_oapi.c b/frame/2/her2/bli_her2_var_oapi.c index 22e05744e..2b26e5476 100644 --- a/frame/2/her2/bli_her2_var_oapi.c +++ b/frame/2/her2/bli_her2_var_oapi.c @@ -37,7 +37,7 @@ #undef GENFRONT #define GENFRONT( opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(varname) \ +void PASTEMAC0(varname) \ ( \ conj_t conjh, \ obj_t* alpha, \ diff --git a/frame/2/her2/other/bli_her2_cntl.h b/frame/2/her2/other/bli_her2_cntl.h index ab8cfc8de..4034b7260 100644 --- a/frame/2/her2/other/bli_her2_cntl.h +++ b/frame/2/her2/other/bli_her2_cntl.h @@ -49,8 +49,8 @@ typedef struct her2_s her2_t; #define bli_cntl_sub_her2( cntl ) cntl->sub_her2 -BLIS_EXPORT_BLIS void bli_her2_cntl_init( void ); -BLIS_EXPORT_BLIS void bli_her2_cntl_finalize( void ); +void bli_her2_cntl_init( void ); +void bli_her2_cntl_finalize( void ); her2_t* bli_her2_cntl_obj_create( impl_t impl_type, varnum_t var_num, bszid_t bszid, @@ -61,7 +61,7 @@ her2_t* bli_her2_cntl_obj_create( impl_t impl_type, ger_t* sub_ger_cp, her2_t* sub_her2, unpackm_t* sub_unpackm_c11 ); -BLIS_EXPORT_BLIS void bli_her2_cntl_obj_init( her2_t* cntl, +void bli_her2_cntl_obj_init( her2_t* cntl, impl_t impl_type, varnum_t var_num, bszid_t bszid, diff --git a/frame/2/her2/other/bli_her2_front.c b/frame/2/her2/other/bli_her2_front.c index 65bb2ab55..21c9027b5 100644 --- a/frame/2/her2/other/bli_her2_front.c +++ b/frame/2/her2/other/bli_her2_front.c @@ -154,7 +154,7 @@ void bli_her2_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ conj_t conjx, \ diff --git a/frame/2/her2/other/bli_her2_front.h b/frame/2/her2/other/bli_her2_front.h index 15df4151d..d5a0e3950 100644 --- a/frame/2/her2/other/bli_her2_front.h +++ b/frame/2/her2/other/bli_her2_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_her2_front +void bli_her2_front ( obj_t* alpha, obj_t* x, @@ -44,7 +44,7 @@ BLIS_EXPORT_BLIS void bli_her2_front #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ conj_t conjx, \ diff --git a/frame/2/her2/other/bli_her2_int.h b/frame/2/her2/other/bli_her2_int.h index b3eb1566d..d15c6221c 100644 --- a/frame/2/her2/other/bli_her2_int.h +++ b/frame/2/her2/other/bli_her2_int.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_her2_int( conj_t conjh, +void bli_her2_int( conj_t conjh, obj_t* alpha, obj_t* alpha_conj, obj_t* x, diff --git a/frame/2/symv/other/bli_symv_front.c b/frame/2/symv/other/bli_symv_front.c index ffce1bac5..bac3f2243 100644 --- a/frame/2/symv/other/bli_symv_front.c +++ b/frame/2/symv/other/bli_symv_front.c @@ -163,7 +163,7 @@ void bli_symv_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploa, \ conj_t conja, \ diff --git a/frame/2/symv/other/bli_symv_front.h b/frame/2/symv/other/bli_symv_front.h index d8c5ff4be..40b5c0b2a 100644 --- a/frame/2/symv/other/bli_symv_front.h +++ b/frame/2/symv/other/bli_symv_front.h @@ -33,7 +33,7 @@ */ -BLIS_EXPORT_BLIS void bli_symv_front +void bli_symv_front ( obj_t* alpha, obj_t* a, @@ -46,7 +46,7 @@ BLIS_EXPORT_BLIS void bli_symv_front #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploa, \ conj_t conja, \ diff --git a/frame/2/syr/other/bli_syr_front.c b/frame/2/syr/other/bli_syr_front.c index 93ac6e6e9..efbd24cf8 100644 --- a/frame/2/syr/other/bli_syr_front.c +++ b/frame/2/syr/other/bli_syr_front.c @@ -139,7 +139,7 @@ void bli_syr_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ conj_t conjx, \ diff --git a/frame/2/syr/other/bli_syr_front.h b/frame/2/syr/other/bli_syr_front.h index 344e39181..a0ac22415 100644 --- a/frame/2/syr/other/bli_syr_front.h +++ b/frame/2/syr/other/bli_syr_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_syr_front +void bli_syr_front ( obj_t* alpha, obj_t* x, @@ -43,7 +43,7 @@ BLIS_EXPORT_BLIS void bli_syr_front #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ conj_t conjx, \ diff --git a/frame/2/syr2/other/bli_syr2_front.c b/frame/2/syr2/other/bli_syr2_front.c index 547ff3f06..59a36f478 100644 --- a/frame/2/syr2/other/bli_syr2_front.c +++ b/frame/2/syr2/other/bli_syr2_front.c @@ -147,7 +147,7 @@ void bli_syr2_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ conj_t conjx, \ diff --git a/frame/2/syr2/other/bli_syr2_front.h b/frame/2/syr2/other/bli_syr2_front.h index 44846643f..bb164731e 100644 --- a/frame/2/syr2/other/bli_syr2_front.h +++ b/frame/2/syr2/other/bli_syr2_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_syr2_front +void bli_syr2_front ( obj_t* alpha, obj_t* x, @@ -44,7 +44,7 @@ BLIS_EXPORT_BLIS void bli_syr2_front #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ conj_t conjx, \ diff --git a/frame/2/trmv/bli_trmv_unb_var1.c b/frame/2/trmv/bli_trmv_unb_var1.c index e1b8711b5..31bfa6a83 100644 --- a/frame/2/trmv/bli_trmv_unb_var1.c +++ b/frame/2/trmv/bli_trmv_unb_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trmv/bli_trmv_unb_var2.c b/frame/2/trmv/bli_trmv_unb_var2.c index f6ab264a0..00d4d95f3 100644 --- a/frame/2/trmv/bli_trmv_unb_var2.c +++ b/frame/2/trmv/bli_trmv_unb_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trmv/bli_trmv_unf_var1.c b/frame/2/trmv/bli_trmv_unf_var1.c index 032856dfe..6dc3cea36 100644 --- a/frame/2/trmv/bli_trmv_unf_var1.c +++ b/frame/2/trmv/bli_trmv_unf_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trmv/bli_trmv_unf_var2.c b/frame/2/trmv/bli_trmv_unf_var2.c index 81ad30769..8bbd51820 100644 --- a/frame/2/trmv/bli_trmv_unf_var2.c +++ b/frame/2/trmv/bli_trmv_unf_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trmv/bli_trmv_var.h b/frame/2/trmv/bli_trmv_var.h index fbe51af0b..5a36a656d 100644 --- a/frame/2/trmv/bli_trmv_var.h +++ b/frame/2/trmv/bli_trmv_var.h @@ -40,7 +40,7 @@ #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -68,7 +68,7 @@ GENPROT( trmv_unf_var2 ) #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trmv/bli_trmv_var_oapi.c b/frame/2/trmv/bli_trmv_var_oapi.c index 38c5becb1..931eb2abb 100644 --- a/frame/2/trmv/bli_trmv_var_oapi.c +++ b/frame/2/trmv/bli_trmv_var_oapi.c @@ -37,7 +37,7 @@ #undef GENFRONT #define GENFRONT( opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(varname) \ +void PASTEMAC0(varname) \ ( \ obj_t* alpha, \ obj_t* a, \ diff --git a/frame/2/trmv/other/bli_trmv_cntl.h b/frame/2/trmv/other/bli_trmv_cntl.h index e268523b7..9693a5ad9 100644 --- a/frame/2/trmv/other/bli_trmv_cntl.h +++ b/frame/2/trmv/other/bli_trmv_cntl.h @@ -48,9 +48,9 @@ typedef struct trmv_s trmv_t; #define bli_cntl_sub_trmv( cntl ) cntl->sub_trmv -BLIS_EXPORT_BLIS void bli_trmv_cntl_init( void ); -BLIS_EXPORT_BLIS void bli_trmv_cntl_finalize( void ); -BLIS_EXPORT_BLIS trmv_t* bli_trmv_cntl_obj_create( impl_t impl_type, +void bli_trmv_cntl_init( void ); +void bli_trmv_cntl_finalize( void ); +trmv_t* bli_trmv_cntl_obj_create( impl_t impl_type, varnum_t var_num, bszid_t bszid, packm_t* sub_packm_a11, @@ -59,7 +59,7 @@ BLIS_EXPORT_BLIS trmv_t* bli_trmv_cntl_obj_create( impl_t impl_type, gemv_t* sub_gemv_cp, trmv_t* sub_trmv, unpackv_t* sub_unpackv_x1 ); -BLIS_EXPORT_BLIS void bli_trmv_cntl_obj_init( trmv_t* cntl, +void bli_trmv_cntl_obj_init( trmv_t* cntl, impl_t impl_type, varnum_t var_num, bszid_t bszid, diff --git a/frame/2/trmv/other/bli_trmv_front.c b/frame/2/trmv/other/bli_trmv_front.c index 0b361b8a2..698f48710 100644 --- a/frame/2/trmv/other/bli_trmv_front.c +++ b/frame/2/trmv/other/bli_trmv_front.c @@ -137,7 +137,7 @@ void bli_trmv_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trmv/other/bli_trmv_front.h b/frame/2/trmv/other/bli_trmv_front.h index 170c6a2d9..daf54ca9b 100644 --- a/frame/2/trmv/other/bli_trmv_front.h +++ b/frame/2/trmv/other/bli_trmv_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_trmv_front +void bli_trmv_front ( obj_t* alpha, obj_t* a, @@ -43,7 +43,7 @@ BLIS_EXPORT_BLIS void bli_trmv_front #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trmv/other/bli_trmv_int.h b/frame/2/trmv/other/bli_trmv_int.h index a04310ed1..c956c72d1 100644 --- a/frame/2/trmv/other/bli_trmv_int.h +++ b/frame/2/trmv/other/bli_trmv_int.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_trmv_int( obj_t* alpha, +void bli_trmv_int( obj_t* alpha, obj_t* a, obj_t* x, cntx_t* cntx, diff --git a/frame/2/trsv/bli_trsv_unb_var1.c b/frame/2/trsv/bli_trsv_unb_var1.c index 9b24333d3..c7493e33d 100644 --- a/frame/2/trsv/bli_trsv_unb_var1.c +++ b/frame/2/trsv/bli_trsv_unb_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trsv/bli_trsv_unb_var2.c b/frame/2/trsv/bli_trsv_unb_var2.c index def6d92e0..a78e7eef0 100644 --- a/frame/2/trsv/bli_trsv_unb_var2.c +++ b/frame/2/trsv/bli_trsv_unb_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trsv/bli_trsv_unf_var1.c b/frame/2/trsv/bli_trsv_unf_var1.c index df6913bbc..3b03b43e5 100644 --- a/frame/2/trsv/bli_trsv_unf_var1.c +++ b/frame/2/trsv/bli_trsv_unf_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trsv/bli_trsv_unf_var2.c b/frame/2/trsv/bli_trsv_unf_var2.c index 2e9deea47..10741d291 100644 --- a/frame/2/trsv/bli_trsv_unf_var2.c +++ b/frame/2/trsv/bli_trsv_unf_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trsv/bli_trsv_var.h b/frame/2/trsv/bli_trsv_var.h index cc292b724..064394355 100644 --- a/frame/2/trsv/bli_trsv_var.h +++ b/frame/2/trsv/bli_trsv_var.h @@ -40,7 +40,7 @@ #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -68,7 +68,7 @@ GENPROT( trsv_unf_var2 ) #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trsv/bli_trsv_var_oapi.c b/frame/2/trsv/bli_trsv_var_oapi.c index 3d1670335..4cf346acf 100644 --- a/frame/2/trsv/bli_trsv_var_oapi.c +++ b/frame/2/trsv/bli_trsv_var_oapi.c @@ -37,7 +37,7 @@ #undef GENFRONT #define GENFRONT( opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(varname) \ +void PASTEMAC0(varname) \ ( \ obj_t* alpha, \ obj_t* a, \ diff --git a/frame/2/trsv/other/bli_trsv_cntl.h b/frame/2/trsv/other/bli_trsv_cntl.h index 8224cabcd..4cb90a17d 100644 --- a/frame/2/trsv/other/bli_trsv_cntl.h +++ b/frame/2/trsv/other/bli_trsv_cntl.h @@ -49,9 +49,9 @@ typedef struct trsv_s trsv_t; #define bli_cntl_sub_trsv( cntl ) cntl->sub_trsv -BLIS_EXPORT_BLIS void bli_trsv_cntl_init( void ); -BLIS_EXPORT_BLIS void bli_trsv_cntl_finalize( void ); -BLIS_EXPORT_BLIS trsv_t* bli_trsv_cntl_obj_create( impl_t impl_type, +void bli_trsv_cntl_init( void ); +void bli_trsv_cntl_finalize( void ); +trsv_t* bli_trsv_cntl_obj_create( impl_t impl_type, varnum_t var_num, bszid_t bszid, scalv_t* sub_scalv, @@ -61,7 +61,7 @@ BLIS_EXPORT_BLIS trsv_t* bli_trsv_cntl_obj_create( impl_t impl_type, gemv_t* sub_gemv_cp, trsv_t* sub_trsv, unpackv_t* sub_unpackv_x1 ); -BLIS_EXPORT_BLIS void bli_trsv_cntl_obj_init( trsv_t* cntl, +void bli_trsv_cntl_obj_init( trsv_t* cntl, impl_t impl_type, varnum_t var_num, bszid_t bszid, diff --git a/frame/2/trsv/other/bli_trsv_front.c b/frame/2/trsv/other/bli_trsv_front.c index 478dc94db..90a152e89 100644 --- a/frame/2/trsv/other/bli_trsv_front.c +++ b/frame/2/trsv/other/bli_trsv_front.c @@ -133,7 +133,7 @@ void bli_trsv_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trsv/other/bli_trsv_front.h b/frame/2/trsv/other/bli_trsv_front.h index 0506a60f7..21d2f6e3c 100644 --- a/frame/2/trsv/other/bli_trsv_front.h +++ b/frame/2/trsv/other/bli_trsv_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_trsv_front +void bli_trsv_front ( obj_t* alpha, obj_t* a, @@ -43,7 +43,7 @@ BLIS_EXPORT_BLIS void bli_trsv_front #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trsv/other/bli_trsv_int.h b/frame/2/trsv/other/bli_trsv_int.h index b4fc83583..a7e6003e3 100644 --- a/frame/2/trsv/other/bli_trsv_int.h +++ b/frame/2/trsv/other/bli_trsv_int.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_trsv_int( obj_t* alpha, +void bli_trsv_int( obj_t* alpha, obj_t* a, obj_t* x, cntx_t* cntx, diff --git a/frame/3/bli_l3_blocksize.h b/frame/3/bli_l3_blocksize.h index 47a0e5891..c3301ee13 100644 --- a/frame/3/bli_l3_blocksize.h +++ b/frame/3/bli_l3_blocksize.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS dim_t bli_l3_determine_kc +dim_t bli_l3_determine_kc ( dir_t direct, dim_t i, @@ -48,7 +48,7 @@ BLIS_EXPORT_BLIS dim_t bli_l3_determine_kc #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS dim_t PASTEMAC0(opname) \ +dim_t PASTEMAC0(opname) \ ( \ dir_t direct, \ dim_t i, \ @@ -68,7 +68,7 @@ GENPROT( trsm_determine_kc ) #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS dim_t PASTEMAC0(opname) \ +dim_t PASTEMAC0(opname) \ ( \ dim_t i, \ dim_t dim, \ diff --git a/frame/3/bli_l3_check.h b/frame/3/bli_l3_check.h index c572d14a3..7d30bb184 100644 --- a/frame/3/bli_l3_check.h +++ b/frame/3/bli_l3_check.h @@ -40,7 +40,7 @@ #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -58,7 +58,7 @@ GENPROT( syr2k ) #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ side_t side, \ obj_t* alpha, \ @@ -78,7 +78,7 @@ GENPROT( trsm ) #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -93,7 +93,7 @@ GENPROT( syrk ) // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_gemm_basic_check +void bli_gemm_basic_check ( obj_t* alpha, obj_t* a, @@ -103,7 +103,7 @@ BLIS_EXPORT_BLIS void bli_gemm_basic_check cntx_t* cntx ); -BLIS_EXPORT_BLIS void bli_hemm_basic_check +void bli_hemm_basic_check ( side_t side, obj_t* alpha, @@ -114,7 +114,7 @@ BLIS_EXPORT_BLIS void bli_hemm_basic_check cntx_t* cntx ); -BLIS_EXPORT_BLIS void bli_herk_basic_check +void bli_herk_basic_check ( obj_t* alpha, obj_t* a, @@ -124,7 +124,7 @@ BLIS_EXPORT_BLIS void bli_herk_basic_check cntx_t* cntx ); -BLIS_EXPORT_BLIS void bli_her2k_basic_check +void bli_her2k_basic_check ( obj_t* alpha, obj_t* a, @@ -136,7 +136,7 @@ BLIS_EXPORT_BLIS void bli_her2k_basic_check cntx_t* cntx ); -BLIS_EXPORT_BLIS void bli_l3_basic_check +void bli_l3_basic_check ( obj_t* alpha, obj_t* a, diff --git a/frame/3/bli_l3_cntl.h b/frame/3/bli_l3_cntl.h index 3984763be..0c04f348c 100644 --- a/frame/3/bli_l3_cntl.h +++ b/frame/3/bli_l3_cntl.h @@ -38,7 +38,7 @@ // Prototype conditional control tree creation functions. // -BLIS_EXPORT_BLIS void bli_l3_cntl_create_if +void bli_l3_cntl_create_if ( opid_t family, pack_t schema_a, @@ -51,7 +51,7 @@ BLIS_EXPORT_BLIS void bli_l3_cntl_create_if cntl_t** cntl_use ); -BLIS_EXPORT_BLIS void bli_l3_cntl_free +void bli_l3_cntl_free ( rntm_t* rntm, cntl_t* cntl_use, diff --git a/frame/3/bli_l3_direct.h b/frame/3/bli_l3_direct.h index 5da1fe1b5..7383c4a9f 100644 --- a/frame/3/bli_l3_direct.h +++ b/frame/3/bli_l3_direct.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS dir_t bli_l3_direct +dir_t bli_l3_direct ( obj_t* a, obj_t* b, @@ -45,7 +45,7 @@ BLIS_EXPORT_BLIS dir_t bli_l3_direct #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS dir_t PASTEMAC0(opname) \ +dir_t PASTEMAC0(opname) \ ( \ obj_t* a, \ obj_t* b, \ diff --git a/frame/3/bli_l3_oapi.c b/frame/3/bli_l3_oapi.c index 5792638ef..d9ba27369 100644 --- a/frame/3/bli_l3_oapi.c +++ b/frame/3/bli_l3_oapi.c @@ -43,7 +43,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -88,7 +88,7 @@ GENFRONT( syr2k ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ side_t side, \ obj_t* alpha, \ @@ -132,7 +132,7 @@ GENFRONT( trmm3 ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -172,7 +172,7 @@ GENFRONT( syrk ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ side_t side, \ obj_t* alpha, \ diff --git a/frame/3/bli_l3_packm.h b/frame/3/bli_l3_packm.h index ab8a9b341..37b1db105 100644 --- a/frame/3/bli_l3_packm.h +++ b/frame/3/bli_l3_packm.h @@ -33,7 +33,7 @@ */ -BLIS_EXPORT_BLIS void bli_l3_packm +void bli_l3_packm ( obj_t* x, obj_t* x_pack, diff --git a/frame/3/bli_l3_prune.c b/frame/3/bli_l3_prune.c index 02f6d4f55..fa008fd15 100644 --- a/frame/3/bli_l3_prune.c +++ b/frame/3/bli_l3_prune.c @@ -56,7 +56,7 @@ void bli_l3_prune_unref_mparts_m #undef GENFRONT #define GENFRONT( dim ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(l3_prune_unref_mparts_,dim) \ +void PASTEMAC(l3_prune_unref_mparts_,dim) \ ( \ obj_t* a, \ obj_t* b, \ @@ -82,7 +82,7 @@ GENFRONT( k ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_m) \ +void PASTEMAC(opname,_prune_unref_mparts_m) \ ( \ obj_t* a, \ obj_t* b, \ @@ -91,7 +91,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_m) \ { \ /* No pruning is necessary for gemm. */ \ } \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_n) \ +void PASTEMAC(opname,_prune_unref_mparts_n) \ ( \ obj_t* a, \ obj_t* b, \ @@ -100,7 +100,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_n) \ { \ /* No pruning is necessary for gemm. */ \ } \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_k) \ +void PASTEMAC(opname,_prune_unref_mparts_k) \ ( \ obj_t* a, \ obj_t* b, \ @@ -117,7 +117,7 @@ GENFRONT( gemm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_m) \ +void PASTEMAC(opname,_prune_unref_mparts_m) \ ( \ obj_t* a, \ obj_t* ah, \ @@ -129,7 +129,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_m) \ subpartition of A accordingly. */ \ bli_prune_unref_mparts( c, BLIS_M, a, BLIS_M ); \ } \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_n) \ +void PASTEMAC(opname,_prune_unref_mparts_n) \ ( \ obj_t* a, \ obj_t* ah, \ @@ -141,7 +141,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_n) \ subpartition of Ah accordingly. */ \ bli_prune_unref_mparts( c, BLIS_N, ah, BLIS_N ); \ } \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_k) \ +void PASTEMAC(opname,_prune_unref_mparts_k) \ ( \ obj_t* a, \ obj_t* ah, \ @@ -159,7 +159,7 @@ GENFRONT( herk ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_m) \ +void PASTEMAC(opname,_prune_unref_mparts_m) \ ( \ obj_t* a, \ obj_t* b, \ @@ -171,7 +171,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_m) \ subpartition of C accordingly. */ \ bli_prune_unref_mparts( a, BLIS_M, c, BLIS_M ); \ } \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_n) \ +void PASTEMAC(opname,_prune_unref_mparts_n) \ ( \ obj_t* a, \ obj_t* b, \ @@ -183,7 +183,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_n) \ subpartition of C accordingly. */ \ bli_prune_unref_mparts( b, BLIS_N, c, BLIS_N ); \ } \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_k) \ +void PASTEMAC(opname,_prune_unref_mparts_k) \ ( \ obj_t* a, \ obj_t* b, \ diff --git a/frame/3/bli_l3_prune.h b/frame/3/bli_l3_prune.h index dbdc6ee72..340ecd4db 100644 --- a/frame/3/bli_l3_prune.h +++ b/frame/3/bli_l3_prune.h @@ -36,7 +36,7 @@ #undef GENPROT #define GENPROT( dim ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(l3_prune_unref_mparts_,dim) \ +void PASTEMAC(l3_prune_unref_mparts_,dim) \ ( \ obj_t* a, \ obj_t* b, \ @@ -53,7 +53,7 @@ GENPROT( k ) #undef GENPROT #define GENPROT( opname, dim ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(opname,_prune_unref_mparts_,dim) \ +void PASTEMAC2(opname,_prune_unref_mparts_,dim) \ ( \ obj_t* a, \ obj_t* b, \ diff --git a/frame/3/bli_l3_tapi.c b/frame/3/bli_l3_tapi.c index 318776ae7..7b7f758ab 100644 --- a/frame/3/bli_l3_tapi.c +++ b/frame/3/bli_l3_tapi.c @@ -44,7 +44,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ trans_t transa, \ trans_t transb, \ @@ -105,7 +105,7 @@ INSERT_GENTFUNC_BASIC0( gemm ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, struca ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ side_t side, \ uplo_t uploa, \ @@ -172,7 +172,7 @@ INSERT_GENTFUNC_BASIC( symm, BLIS_SYMMETRIC ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -229,7 +229,7 @@ INSERT_GENTFUNCR_BASIC0( herk ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -294,7 +294,7 @@ INSERT_GENTFUNCR_BASIC0( her2k ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -350,7 +350,7 @@ INSERT_GENTFUNC_BASIC0( syrk ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -414,7 +414,7 @@ INSERT_GENTFUNC_BASIC0( syr2k ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ side_t side, \ uplo_t uploa, \ @@ -482,7 +482,7 @@ INSERT_GENTFUNC_BASIC0( trmm3 ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ side_t side, \ uplo_t uploa, \ diff --git a/frame/3/bli_l3_thrinfo.h b/frame/3/bli_l3_thrinfo.h index ce50bfebb..15d8faed6 100644 --- a/frame/3/bli_l3_thrinfo.h +++ b/frame/3/bli_l3_thrinfo.h @@ -72,7 +72,7 @@ // thrinfo_t APIs specific to level-3 operations. // -BLIS_EXPORT_BLIS void bli_l3_thrinfo_init +void bli_l3_thrinfo_init ( thrinfo_t* thread, thrcomm_t* ocomm, @@ -82,12 +82,12 @@ BLIS_EXPORT_BLIS void bli_l3_thrinfo_init thrinfo_t* sub_node ); -BLIS_EXPORT_BLIS void bli_l3_thrinfo_init_single +void bli_l3_thrinfo_init_single ( thrinfo_t* thread ); -BLIS_EXPORT_BLIS void bli_l3_thrinfo_free +void bli_l3_thrinfo_free ( rntm_t* rntm, thrinfo_t* thread @@ -95,7 +95,7 @@ BLIS_EXPORT_BLIS void bli_l3_thrinfo_free // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_l3_thrinfo_create_root +void bli_l3_thrinfo_create_root ( dim_t id, thrcomm_t* gl_comm, @@ -104,19 +104,19 @@ BLIS_EXPORT_BLIS void bli_l3_thrinfo_create_root thrinfo_t** thread ); -BLIS_EXPORT_BLIS void bli_l3_thrinfo_print_gemm_paths +void bli_l3_thrinfo_print_gemm_paths ( thrinfo_t** threads ); -BLIS_EXPORT_BLIS void bli_l3_thrinfo_print_trsm_paths +void bli_l3_thrinfo_print_trsm_paths ( thrinfo_t** threads ); // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_l3_thrinfo_free_paths +void bli_l3_thrinfo_free_paths ( rntm_t* rntm, thrinfo_t** threads diff --git a/frame/3/bli_l3_ukr_fpa.h b/frame/3/bli_l3_ukr_fpa.h index 24947c6ff..65bdc6964 100644 --- a/frame/3/bli_l3_ukr_fpa.h +++ b/frame/3/bli_l3_ukr_fpa.h @@ -40,7 +40,7 @@ #define GENPROT( tname, opname ) \ \ PASTECH2(tname,_ukr,_vft) \ -BLIS_EXPORT_BLIS PASTEMAC(opname,_qfp)( num_t dt ); +PASTEMAC(opname,_qfp)( num_t dt ); GENPROT( gemm, gemm_ukernel ) GENPROT( gemmtrsm, gemmtrsm_l_ukernel ) diff --git a/frame/3/bli_l3_ukr_oapi.c b/frame/3/bli_l3_ukr_oapi.c index 5b10cf6ab..a8191b1aa 100644 --- a/frame/3/bli_l3_ukr_oapi.c +++ b/frame/3/bli_l3_ukr_oapi.c @@ -37,7 +37,7 @@ #undef GENFRONT #define GENFRONT( tname, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -92,7 +92,7 @@ GENFRONT( gemm, gemm_ukernel ) #undef GENFRONT #define GENFRONT( tname, opname, opnamel, opnameu ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* alpha, \ obj_t* a1x, \ @@ -175,7 +175,7 @@ GENFRONT( gemmtrsm, gemmtrsm_ukernel, gemmtrsm_l_ukernel, gemmtrsm_u_ukernel ) #undef GENFRONT #define GENFRONT( tname, opname, opnamel, opnameu ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* a, \ obj_t* b, \ diff --git a/frame/3/bli_l3_ukr_prot.h b/frame/3/bli_l3_ukr_prot.h index bc9aa3e40..80733897b 100644 --- a/frame/3/bli_l3_ukr_prot.h +++ b/frame/3/bli_l3_ukr_prot.h @@ -38,7 +38,7 @@ #define GEMM_UKR_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ dim_t k, \ ctype* restrict alpha, \ @@ -53,7 +53,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define GEMMTRSM_UKR_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ dim_t k, \ ctype* restrict alpha, \ @@ -69,7 +69,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ #define TRSM_UKR_PROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ ctype* restrict a, \ ctype* restrict b, \ diff --git a/frame/3/bli_l3_ukr_tapi.c b/frame/3/bli_l3_ukr_tapi.c index 3f17ff6a7..67e33175b 100644 --- a/frame/3/bli_l3_ukr_tapi.c +++ b/frame/3/bli_l3_ukr_tapi.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, tname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ dim_t k, \ ctype* restrict alpha, \ @@ -76,7 +76,7 @@ INSERT_GENTFUNC_BASIC2( gemm_ukernel, gemm, BLIS_GEMM_UKR ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, tname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ dim_t k, \ ctype* restrict alpha, \ @@ -118,7 +118,7 @@ INSERT_GENTFUNC_BASIC2( gemmtrsm_u_ukernel, gemmtrsm, BLIS_GEMMTRSM_U_UKR ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, tname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ ctype* restrict a, \ ctype* restrict b, \ diff --git a/frame/3/gemm/bli_gemm_cntl.c b/frame/3/gemm/bli_gemm_cntl.c index 8e327f002..67c71e798 100644 --- a/frame/3/gemm/bli_gemm_cntl.c +++ b/frame/3/gemm/bli_gemm_cntl.c @@ -253,7 +253,7 @@ cntl_t* bli_gemmpb_cntl_create // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_gemm_cntl_free +void bli_gemm_cntl_free ( rntm_t* rntm, cntl_t* cntl, diff --git a/frame/3/gemm/bli_gemm_cntl.h b/frame/3/gemm/bli_gemm_cntl.h index adb759667..e19384a51 100644 --- a/frame/3/gemm/bli_gemm_cntl.h +++ b/frame/3/gemm/bli_gemm_cntl.h @@ -33,7 +33,7 @@ */ -BLIS_EXPORT_BLIS cntl_t* bli_gemm_cntl_create +cntl_t* bli_gemm_cntl_create ( rntm_t* rntm, opid_t family, @@ -43,7 +43,7 @@ BLIS_EXPORT_BLIS cntl_t* bli_gemm_cntl_create // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS cntl_t* bli_gemmbp_cntl_create +cntl_t* bli_gemmbp_cntl_create ( rntm_t* rntm, opid_t family, @@ -52,7 +52,7 @@ BLIS_EXPORT_BLIS cntl_t* bli_gemmbp_cntl_create ); #if 0 -BLIS_EXPORT_BLIS cntl_t* bli_gemmpb_cntl_create +cntl_t* bli_gemmpb_cntl_create ( opid_t family, ); @@ -60,7 +60,7 @@ BLIS_EXPORT_BLIS cntl_t* bli_gemmpb_cntl_create // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_gemm_cntl_free +void bli_gemm_cntl_free ( rntm_t* rntm, cntl_t* cntl, @@ -69,7 +69,7 @@ BLIS_EXPORT_BLIS void bli_gemm_cntl_free // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS cntl_t* bli_gemm_cntl_create_node +cntl_t* bli_gemm_cntl_create_node ( rntm_t* rntm, opid_t family, diff --git a/frame/3/gemm/bli_gemm_front.c b/frame/3/gemm/bli_gemm_front.c index 491cfba8a..97bc5c5d0 100644 --- a/frame/3/gemm/bli_gemm_front.c +++ b/frame/3/gemm/bli_gemm_front.c @@ -35,7 +35,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_gemm_front +void bli_gemm_front ( obj_t* alpha, obj_t* a, diff --git a/frame/3/gemm/bli_gemm_front.h b/frame/3/gemm/bli_gemm_front.h index 0da4e0b9e..ba65bab8d 100644 --- a/frame/3/gemm/bli_gemm_front.h +++ b/frame/3/gemm/bli_gemm_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_gemm_front +void bli_gemm_front ( obj_t* alpha, obj_t* a, @@ -44,7 +44,7 @@ BLIS_EXPORT_BLIS void bli_gemm_front cntl_t* cntl ); -BLIS_EXPORT_BLIS err_t bli_gemm_small +err_t bli_gemm_small ( obj_t* alpha, obj_t* a, diff --git a/frame/3/gemm/bli_gemm_int.c b/frame/3/gemm/bli_gemm_int.c index 4f35de640..25a6215df 100644 --- a/frame/3/gemm/bli_gemm_int.c +++ b/frame/3/gemm/bli_gemm_int.c @@ -35,7 +35,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_gemm_int +void bli_gemm_int ( obj_t* alpha, obj_t* a, diff --git a/frame/3/gemm/bli_gemm_int.h b/frame/3/gemm/bli_gemm_int.h index 725cc64ba..2bbe5480a 100644 --- a/frame/3/gemm/bli_gemm_int.h +++ b/frame/3/gemm/bli_gemm_int.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_gemm_int +void bli_gemm_int ( obj_t* alpha, obj_t* a, diff --git a/frame/3/gemm/bli_gemm_ker_var2.c b/frame/3/gemm/bli_gemm_ker_var2.c index 5b1dd30b6..41bb3f455 100644 --- a/frame/3/gemm/bli_gemm_ker_var2.c +++ b/frame/3/gemm/bli_gemm_ker_var2.c @@ -191,7 +191,7 @@ void bli_gemm_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ pack_t schema_a, \ pack_t schema_b, \ diff --git a/frame/3/gemm/bli_gemm_ker_var2_md.c b/frame/3/gemm/bli_gemm_ker_var2_md.c index 6badf4a08..3428be9b4 100644 --- a/frame/3/gemm/bli_gemm_ker_var2_md.c +++ b/frame/3/gemm/bli_gemm_ker_var2_md.c @@ -192,7 +192,7 @@ void bli_gemm_ker_var2_md #undef GENTFUNC2 #define GENTFUNC2( ctype_c, ctype_e, chc, che, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(chc,che,varname) \ +void PASTEMAC2(chc,che,varname) \ ( \ pack_t schema_a, \ pack_t schema_b, \ diff --git a/frame/3/gemm/bli_gemm_md.h b/frame/3/gemm/bli_gemm_md.h index 4d8825f58..057eb0a1d 100644 --- a/frame/3/gemm/bli_gemm_md.h +++ b/frame/3/gemm/bli_gemm_md.h @@ -41,7 +41,7 @@ typedef struct mddm_s dom_t exec; } mddm_t; -BLIS_EXPORT_BLIS void bli_gemm_md +void bli_gemm_md ( obj_t* a, obj_t* b, @@ -50,18 +50,18 @@ BLIS_EXPORT_BLIS void bli_gemm_md cntx_t* cntx_local, cntx_t** cntx ); -BLIS_EXPORT_BLIS mddm_t bli_gemm_md_ccc( obj_t* a, obj_t* b, obj_t* beta, obj_t* c, cntx_t* cntx_l, cntx_t** cntx ); -BLIS_EXPORT_BLIS mddm_t bli_gemm_md_ccr( obj_t* a, obj_t* b, obj_t* beta, obj_t* c, cntx_t* cntx_l, cntx_t** cntx ); -BLIS_EXPORT_BLIS mddm_t bli_gemm_md_crc( obj_t* a, obj_t* b, obj_t* beta, obj_t* c, cntx_t* cntx_l, cntx_t** cntx ); -BLIS_EXPORT_BLIS mddm_t bli_gemm_md_rcc( obj_t* a, obj_t* b, obj_t* beta, obj_t* c, cntx_t* cntx_l, cntx_t** cntx ); -BLIS_EXPORT_BLIS mddm_t bli_gemm_md_rrc( obj_t* a, obj_t* b, obj_t* beta, obj_t* c, cntx_t* cntx_l, cntx_t** cntx ); -BLIS_EXPORT_BLIS mddm_t bli_gemm_md_rcr( obj_t* a, obj_t* b, obj_t* beta, obj_t* c, cntx_t* cntx_l, cntx_t** cntx ); -BLIS_EXPORT_BLIS mddm_t bli_gemm_md_crr( obj_t* a, obj_t* b, obj_t* beta, obj_t* c, cntx_t* cntx_l, cntx_t** cntx ); -BLIS_EXPORT_BLIS mddm_t bli_gemm_md_rrr( obj_t* a, obj_t* b, obj_t* beta, obj_t* c, cntx_t* cntx_l, cntx_t** cntx ); +mddm_t bli_gemm_md_ccc( obj_t* a, obj_t* b, obj_t* beta, obj_t* c, cntx_t* cntx_l, cntx_t** cntx ); +mddm_t bli_gemm_md_ccr( obj_t* a, obj_t* b, obj_t* beta, obj_t* c, cntx_t* cntx_l, cntx_t** cntx ); +mddm_t bli_gemm_md_crc( obj_t* a, obj_t* b, obj_t* beta, obj_t* c, cntx_t* cntx_l, cntx_t** cntx ); +mddm_t bli_gemm_md_rcc( obj_t* a, obj_t* b, obj_t* beta, obj_t* c, cntx_t* cntx_l, cntx_t** cntx ); +mddm_t bli_gemm_md_rrc( obj_t* a, obj_t* b, obj_t* beta, obj_t* c, cntx_t* cntx_l, cntx_t** cntx ); +mddm_t bli_gemm_md_rcr( obj_t* a, obj_t* b, obj_t* beta, obj_t* c, cntx_t* cntx_l, cntx_t** cntx ); +mddm_t bli_gemm_md_crr( obj_t* a, obj_t* b, obj_t* beta, obj_t* c, cntx_t* cntx_l, cntx_t** cntx ); +mddm_t bli_gemm_md_rrr( obj_t* a, obj_t* b, obj_t* beta, obj_t* c, cntx_t* cntx_l, cntx_t** cntx ); // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_gemm_md_front +void bli_gemm_md_front ( obj_t* alpha, obj_t* a, @@ -73,7 +73,7 @@ BLIS_EXPORT_BLIS void bli_gemm_md_front cntl_t* cntl ); -BLIS_EXPORT_BLIS void bli_gemm_md_zgemm +void bli_gemm_md_zgemm ( obj_t* alpha, obj_t* a, @@ -283,7 +283,7 @@ static void bli_gemm_md_ker_var2_recast #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* a, \ obj_t* b, \ @@ -303,7 +303,7 @@ GENPROT( gemm_ker_var2_md ) #undef GENTPROT2 #define GENTPROT2( ctype_c, ctype_e, chc, che, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(chc,che,varname) \ +void PASTEMAC2(chc,che,varname) \ ( \ pack_t schema_a, \ pack_t schema_b, \ diff --git a/frame/3/gemm/bli_gemm_md_c2r_ref.c b/frame/3/gemm/bli_gemm_md_c2r_ref.c index ff4d0dee7..6198d85b2 100644 --- a/frame/3/gemm/bli_gemm_md_c2r_ref.c +++ b/frame/3/gemm/bli_gemm_md_c2r_ref.c @@ -39,7 +39,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, opname, suf ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,suf) \ +void PASTEMAC2(ch,opname,suf) \ ( \ dim_t k, \ ctype* restrict alpha, \ diff --git a/frame/3/gemm/bli_gemm_var.h b/frame/3/gemm/bli_gemm_var.h index 09b648c2e..34cf95ae6 100644 --- a/frame/3/gemm/bli_gemm_var.h +++ b/frame/3/gemm/bli_gemm_var.h @@ -41,7 +41,7 @@ #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* a, \ obj_t* b, \ @@ -73,7 +73,7 @@ GENPROT( gemm4mb_ker_var2 ) // 4m1b #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ pack_t schema_a, \ pack_t schema_b, \ diff --git a/frame/3/gemm/ind/bli_gemm4mb_ker_var2.c b/frame/3/gemm/ind/bli_gemm4mb_ker_var2.c index 619457752..e4b377b37 100644 --- a/frame/3/gemm/ind/bli_gemm4mb_ker_var2.c +++ b/frame/3/gemm/ind/bli_gemm4mb_ker_var2.c @@ -138,7 +138,7 @@ void bli_gemm4mb_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ pack_t schema_a, \ pack_t schema_b, \ diff --git a/frame/3/gemm/ind/old/bli_gemm3m2_ker_var2.c b/frame/3/gemm/ind/old/bli_gemm3m2_ker_var2.c index 34bf0c656..09830753e 100644 --- a/frame/3/gemm/ind/old/bli_gemm3m2_ker_var2.c +++ b/frame/3/gemm/ind/old/bli_gemm3m2_ker_var2.c @@ -134,7 +134,7 @@ void bli_gemm3m2_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ pack_t schema_a, \ pack_t schema_b, \ diff --git a/frame/3/gemm/other/bli_gemm_ker_var2.c b/frame/3/gemm/other/bli_gemm_ker_var2.c index 9de95a83b..6ae8df0c1 100644 --- a/frame/3/gemm/other/bli_gemm_ker_var2.c +++ b/frame/3/gemm/other/bli_gemm_ker_var2.c @@ -159,7 +159,7 @@ void bli_gemm_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ pack_t schema_a, \ pack_t schema_b, \ diff --git a/frame/3/gemm/other/bli_gemm_ker_var2rr.c b/frame/3/gemm/other/bli_gemm_ker_var2rr.c index 111b3a9c1..a213e50fc 100644 --- a/frame/3/gemm/other/bli_gemm_ker_var2rr.c +++ b/frame/3/gemm/other/bli_gemm_ker_var2rr.c @@ -160,7 +160,7 @@ void bli_gemm_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ pack_t schema_a, \ pack_t schema_b, \ diff --git a/frame/3/gemm/other/bli_gemm_ker_var2sl.c b/frame/3/gemm/other/bli_gemm_ker_var2sl.c index 68c53b22c..0d710bd73 100644 --- a/frame/3/gemm/other/bli_gemm_ker_var2sl.c +++ b/frame/3/gemm/other/bli_gemm_ker_var2sl.c @@ -160,7 +160,7 @@ void bli_gemm_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ pack_t schema_a, \ pack_t schema_b, \ diff --git a/frame/3/gemm/other/bli_gemm_ker_var5.c b/frame/3/gemm/other/bli_gemm_ker_var5.c index 2298e631c..0d0c914d8 100644 --- a/frame/3/gemm/other/bli_gemm_ker_var5.c +++ b/frame/3/gemm/other/bli_gemm_ker_var5.c @@ -126,7 +126,7 @@ void bli_gemm_ker_var5( obj_t* a, #undef GENTFUNC #define GENTFUNC( ctype, ch, varname, ukrtype ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname)( \ +void PASTEMAC(ch,varname)( \ dim_t m, \ dim_t n, \ dim_t k, \ diff --git a/frame/3/gemm/other/bli_gemm_ker_var5.h b/frame/3/gemm/other/bli_gemm_ker_var5.h index ab39b6109..7e24bb5f9 100644 --- a/frame/3/gemm/other/bli_gemm_ker_var5.h +++ b/frame/3/gemm/other/bli_gemm_ker_var5.h @@ -36,7 +36,7 @@ // // Prototype object-based interface. // -BLIS_EXPORT_BLIS void bli_gemm_ker_var5( obj_t* a, +void bli_gemm_ker_var5( obj_t* a, obj_t* b, obj_t* c, cntx_t* cntx, @@ -50,7 +50,7 @@ BLIS_EXPORT_BLIS void bli_gemm_ker_var5( obj_t* a, #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname)( \ +void PASTEMAC(ch,varname)( \ dim_t m, \ dim_t n, \ dim_t k, \ diff --git a/frame/3/hemm/bli_hemm_front.c b/frame/3/hemm/bli_hemm_front.c index 8202d5cf0..5949a2e6c 100644 --- a/frame/3/hemm/bli_hemm_front.c +++ b/frame/3/hemm/bli_hemm_front.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_hemm_front +void bli_hemm_front ( side_t side, obj_t* alpha, diff --git a/frame/3/hemm/bli_hemm_front.h b/frame/3/hemm/bli_hemm_front.h index 01affcaa9..308b6378b 100644 --- a/frame/3/hemm/bli_hemm_front.h +++ b/frame/3/hemm/bli_hemm_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_hemm_front +void bli_hemm_front ( side_t side, obj_t* alpha, diff --git a/frame/3/her2k/bli_her2k_front.c b/frame/3/her2k/bli_her2k_front.c index 234b04e16..a99aa05c8 100644 --- a/frame/3/her2k/bli_her2k_front.c +++ b/frame/3/her2k/bli_her2k_front.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_her2k_front +void bli_her2k_front ( obj_t* alpha, obj_t* a, diff --git a/frame/3/her2k/bli_her2k_front.h b/frame/3/her2k/bli_her2k_front.h index 736d6beff..0efdb86c2 100644 --- a/frame/3/her2k/bli_her2k_front.h +++ b/frame/3/her2k/bli_her2k_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_her2k_front +void bli_her2k_front ( obj_t* alpha, obj_t* a, diff --git a/frame/3/herk/bli_herk_front.c b/frame/3/herk/bli_herk_front.c index 40020afb9..be0118f18 100644 --- a/frame/3/herk/bli_herk_front.c +++ b/frame/3/herk/bli_herk_front.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_herk_front +void bli_herk_front ( obj_t* alpha, obj_t* a, diff --git a/frame/3/herk/bli_herk_front.h b/frame/3/herk/bli_herk_front.h index ec05a2249..44778a450 100644 --- a/frame/3/herk/bli_herk_front.h +++ b/frame/3/herk/bli_herk_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_herk_front +void bli_herk_front ( obj_t* alpha, obj_t* a, diff --git a/frame/3/herk/bli_herk_l_ker_var2.c b/frame/3/herk/bli_herk_l_ker_var2.c index 480595931..d077b8f89 100644 --- a/frame/3/herk/bli_herk_l_ker_var2.c +++ b/frame/3/herk/bli_herk_l_ker_var2.c @@ -143,7 +143,7 @@ void bli_herk_l_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/bli_herk_u_ker_var2.c b/frame/3/herk/bli_herk_u_ker_var2.c index 4cdca5cc0..b20a96df7 100644 --- a/frame/3/herk/bli_herk_u_ker_var2.c +++ b/frame/3/herk/bli_herk_u_ker_var2.c @@ -143,7 +143,7 @@ void bli_herk_u_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/bli_herk_var.h b/frame/3/herk/bli_herk_var.h index f4f1c8421..3c565e1b0 100644 --- a/frame/3/herk/bli_herk_var.h +++ b/frame/3/herk/bli_herk_var.h @@ -41,7 +41,7 @@ #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* a, \ obj_t* ah, \ @@ -71,7 +71,7 @@ GENPROT( herk_u_ker_var2 ) #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/other/bli_herk_l_ker_var2.1looprr.c b/frame/3/herk/other/bli_herk_l_ker_var2.1looprr.c index e6a59e248..38675b11b 100644 --- a/frame/3/herk/other/bli_herk_l_ker_var2.1looprr.c +++ b/frame/3/herk/other/bli_herk_l_ker_var2.1looprr.c @@ -143,7 +143,7 @@ void bli_herk_l_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/other/bli_herk_l_ker_var2.c b/frame/3/herk/other/bli_herk_l_ker_var2.c index 86df7455b..904da9f5e 100644 --- a/frame/3/herk/other/bli_herk_l_ker_var2.c +++ b/frame/3/herk/other/bli_herk_l_ker_var2.c @@ -143,7 +143,7 @@ void bli_herk_l_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/other/bli_herk_l_ker_var2rr.c b/frame/3/herk/other/bli_herk_l_ker_var2rr.c index 43772a3a5..a313f04b2 100644 --- a/frame/3/herk/other/bli_herk_l_ker_var2rr.c +++ b/frame/3/herk/other/bli_herk_l_ker_var2rr.c @@ -146,7 +146,7 @@ void bli_herk_l_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/other/bli_herk_l_ker_var2sl.c b/frame/3/herk/other/bli_herk_l_ker_var2sl.c index c0dd268d8..f913cced2 100644 --- a/frame/3/herk/other/bli_herk_l_ker_var2sl.c +++ b/frame/3/herk/other/bli_herk_l_ker_var2sl.c @@ -146,7 +146,7 @@ void bli_herk_l_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/other/bli_herk_u_ker_var2.1looprr.c b/frame/3/herk/other/bli_herk_u_ker_var2.1looprr.c index 15be08932..cd4a4e7ad 100644 --- a/frame/3/herk/other/bli_herk_u_ker_var2.1looprr.c +++ b/frame/3/herk/other/bli_herk_u_ker_var2.1looprr.c @@ -143,7 +143,7 @@ void bli_herk_u_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/other/bli_herk_u_ker_var2.c b/frame/3/herk/other/bli_herk_u_ker_var2.c index 13fb5eb6e..0bdc0b0a4 100644 --- a/frame/3/herk/other/bli_herk_u_ker_var2.c +++ b/frame/3/herk/other/bli_herk_u_ker_var2.c @@ -143,7 +143,7 @@ void bli_herk_u_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/other/bli_herk_u_ker_var2rr.c b/frame/3/herk/other/bli_herk_u_ker_var2rr.c index 1ac932763..4ffa8085c 100644 --- a/frame/3/herk/other/bli_herk_u_ker_var2rr.c +++ b/frame/3/herk/other/bli_herk_u_ker_var2rr.c @@ -146,7 +146,7 @@ void bli_herk_u_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/other/bli_herk_u_ker_var2sl.c b/frame/3/herk/other/bli_herk_u_ker_var2sl.c index 9ad7b8621..7af7ee56d 100644 --- a/frame/3/herk/other/bli_herk_u_ker_var2sl.c +++ b/frame/3/herk/other/bli_herk_u_ker_var2sl.c @@ -146,7 +146,7 @@ void bli_herk_u_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/symm/bli_symm_front.c b/frame/3/symm/bli_symm_front.c index cb59e1657..820c26fd1 100644 --- a/frame/3/symm/bli_symm_front.c +++ b/frame/3/symm/bli_symm_front.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_symm_front +void bli_symm_front ( side_t side, obj_t* alpha, diff --git a/frame/3/symm/bli_symm_front.h b/frame/3/symm/bli_symm_front.h index be1e1b060..909997f6c 100644 --- a/frame/3/symm/bli_symm_front.h +++ b/frame/3/symm/bli_symm_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_symm_front +void bli_symm_front ( side_t side, obj_t* alpha, diff --git a/frame/3/syr2k/bli_syr2k_front.c b/frame/3/syr2k/bli_syr2k_front.c index 77300ba3d..3ccd28c5c 100644 --- a/frame/3/syr2k/bli_syr2k_front.c +++ b/frame/3/syr2k/bli_syr2k_front.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_syr2k_front +void bli_syr2k_front ( obj_t* alpha, obj_t* a, diff --git a/frame/3/syr2k/bli_syr2k_front.h b/frame/3/syr2k/bli_syr2k_front.h index 5251fee38..767bb6ee1 100644 --- a/frame/3/syr2k/bli_syr2k_front.h +++ b/frame/3/syr2k/bli_syr2k_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_syr2k_front +void bli_syr2k_front ( obj_t* alpha, obj_t* a, diff --git a/frame/3/syrk/bli_syrk_front.c b/frame/3/syrk/bli_syrk_front.c index f6388e523..534848e33 100644 --- a/frame/3/syrk/bli_syrk_front.c +++ b/frame/3/syrk/bli_syrk_front.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_syrk_front +void bli_syrk_front ( obj_t* alpha, obj_t* a, diff --git a/frame/3/syrk/bli_syrk_front.h b/frame/3/syrk/bli_syrk_front.h index 8eb204eda..28d1e13f6 100644 --- a/frame/3/syrk/bli_syrk_front.h +++ b/frame/3/syrk/bli_syrk_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_syrk_front +void bli_syrk_front ( obj_t* alpha, obj_t* a, diff --git a/frame/3/trmm/bli_trmm_front.c b/frame/3/trmm/bli_trmm_front.c index 773f9639d..aee9d1d6f 100644 --- a/frame/3/trmm/bli_trmm_front.c +++ b/frame/3/trmm/bli_trmm_front.c @@ -35,7 +35,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_trmm_front +void bli_trmm_front ( side_t side, obj_t* alpha, diff --git a/frame/3/trmm/bli_trmm_front.h b/frame/3/trmm/bli_trmm_front.h index f53dd8133..3e136f9dc 100644 --- a/frame/3/trmm/bli_trmm_front.h +++ b/frame/3/trmm/bli_trmm_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_trmm_front +void bli_trmm_front ( side_t side, obj_t* alpha, diff --git a/frame/3/trmm/bli_trmm_ll_ker_var2.c b/frame/3/trmm/bli_trmm_ll_ker_var2.c index c9162c349..98e62926c 100644 --- a/frame/3/trmm/bli_trmm_ll_ker_var2.c +++ b/frame/3/trmm/bli_trmm_ll_ker_var2.c @@ -137,7 +137,7 @@ void bli_trmm_ll_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trmm/bli_trmm_lu_ker_var2.c b/frame/3/trmm/bli_trmm_lu_ker_var2.c index ca9c02e72..624604141 100644 --- a/frame/3/trmm/bli_trmm_lu_ker_var2.c +++ b/frame/3/trmm/bli_trmm_lu_ker_var2.c @@ -137,7 +137,7 @@ void bli_trmm_lu_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trmm/bli_trmm_rl_ker_var2.c b/frame/3/trmm/bli_trmm_rl_ker_var2.c index c8985c135..117cf63c5 100644 --- a/frame/3/trmm/bli_trmm_rl_ker_var2.c +++ b/frame/3/trmm/bli_trmm_rl_ker_var2.c @@ -137,7 +137,7 @@ void bli_trmm_rl_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trmm/bli_trmm_ru_ker_var2.c b/frame/3/trmm/bli_trmm_ru_ker_var2.c index a252fda5d..ea59959c7 100644 --- a/frame/3/trmm/bli_trmm_ru_ker_var2.c +++ b/frame/3/trmm/bli_trmm_ru_ker_var2.c @@ -137,7 +137,7 @@ void bli_trmm_ru_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trmm/bli_trmm_var.h b/frame/3/trmm/bli_trmm_var.h index 07ab53514..09694ca5c 100644 --- a/frame/3/trmm/bli_trmm_var.h +++ b/frame/3/trmm/bli_trmm_var.h @@ -41,7 +41,7 @@ #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* a, \ obj_t* b, \ @@ -71,7 +71,7 @@ GENPROT( trmm_ru_ker_var2 ) #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoff, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_ll_ker_var2.c b/frame/3/trmm/other/bli_trmm_ll_ker_var2.c index 74492ae00..3747a0dcf 100644 --- a/frame/3/trmm/other/bli_trmm_ll_ker_var2.c +++ b/frame/3/trmm/other/bli_trmm_ll_ker_var2.c @@ -137,7 +137,7 @@ void bli_trmm_ll_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_ll_ker_var2rr.c b/frame/3/trmm/other/bli_trmm_ll_ker_var2rr.c index 58a53e93a..ea979d7c3 100644 --- a/frame/3/trmm/other/bli_trmm_ll_ker_var2rr.c +++ b/frame/3/trmm/other/bli_trmm_ll_ker_var2rr.c @@ -140,7 +140,7 @@ void bli_trmm_ll_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_ll_ker_var2sl.c b/frame/3/trmm/other/bli_trmm_ll_ker_var2sl.c index 209d231b2..e612b340c 100644 --- a/frame/3/trmm/other/bli_trmm_ll_ker_var2sl.c +++ b/frame/3/trmm/other/bli_trmm_ll_ker_var2sl.c @@ -140,7 +140,7 @@ void bli_trmm_ll_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_lu_ker_var2.c b/frame/3/trmm/other/bli_trmm_lu_ker_var2.c index 496d7c3db..9a4e36b65 100644 --- a/frame/3/trmm/other/bli_trmm_lu_ker_var2.c +++ b/frame/3/trmm/other/bli_trmm_lu_ker_var2.c @@ -137,7 +137,7 @@ void bli_trmm_lu_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_lu_ker_var2rr.c b/frame/3/trmm/other/bli_trmm_lu_ker_var2rr.c index c4e019c8f..551bc097d 100644 --- a/frame/3/trmm/other/bli_trmm_lu_ker_var2rr.c +++ b/frame/3/trmm/other/bli_trmm_lu_ker_var2rr.c @@ -140,7 +140,7 @@ void bli_trmm_lu_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_lu_ker_var2sl.c b/frame/3/trmm/other/bli_trmm_lu_ker_var2sl.c index 4bc995fcf..132c732d6 100644 --- a/frame/3/trmm/other/bli_trmm_lu_ker_var2sl.c +++ b/frame/3/trmm/other/bli_trmm_lu_ker_var2sl.c @@ -140,7 +140,7 @@ void bli_trmm_lu_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_rl_ker_var2.c b/frame/3/trmm/other/bli_trmm_rl_ker_var2.c index 6482bcbab..b29df0850 100644 --- a/frame/3/trmm/other/bli_trmm_rl_ker_var2.c +++ b/frame/3/trmm/other/bli_trmm_rl_ker_var2.c @@ -137,7 +137,7 @@ void bli_trmm_rl_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_rl_ker_var2rr.c b/frame/3/trmm/other/bli_trmm_rl_ker_var2rr.c index 23162fa6c..14b235918 100644 --- a/frame/3/trmm/other/bli_trmm_rl_ker_var2rr.c +++ b/frame/3/trmm/other/bli_trmm_rl_ker_var2rr.c @@ -140,7 +140,7 @@ void bli_trmm_rl_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_rl_ker_var2sl.c b/frame/3/trmm/other/bli_trmm_rl_ker_var2sl.c index 7952cb8c4..cf4a6e086 100644 --- a/frame/3/trmm/other/bli_trmm_rl_ker_var2sl.c +++ b/frame/3/trmm/other/bli_trmm_rl_ker_var2sl.c @@ -140,7 +140,7 @@ void bli_trmm_rl_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_ru_ker_var2.c b/frame/3/trmm/other/bli_trmm_ru_ker_var2.c index 9a39776d4..602f4cc3b 100644 --- a/frame/3/trmm/other/bli_trmm_ru_ker_var2.c +++ b/frame/3/trmm/other/bli_trmm_ru_ker_var2.c @@ -137,7 +137,7 @@ void bli_trmm_ru_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_ru_ker_var2rr.c b/frame/3/trmm/other/bli_trmm_ru_ker_var2rr.c index 3723dde6d..03eaa6ea6 100644 --- a/frame/3/trmm/other/bli_trmm_ru_ker_var2rr.c +++ b/frame/3/trmm/other/bli_trmm_ru_ker_var2rr.c @@ -140,7 +140,7 @@ void bli_trmm_ru_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_ru_ker_var2sl.c b/frame/3/trmm/other/bli_trmm_ru_ker_var2sl.c index 50b9050cd..2411a24a4 100644 --- a/frame/3/trmm/other/bli_trmm_ru_ker_var2sl.c +++ b/frame/3/trmm/other/bli_trmm_ru_ker_var2sl.c @@ -140,7 +140,7 @@ void bli_trmm_ru_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trmm3/bli_trmm3_front.c b/frame/3/trmm3/bli_trmm3_front.c index ff508d0b5..39067ac0b 100644 --- a/frame/3/trmm3/bli_trmm3_front.c +++ b/frame/3/trmm3/bli_trmm3_front.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_trmm3_front +void bli_trmm3_front ( side_t side, obj_t* alpha, diff --git a/frame/3/trmm3/bli_trmm3_front.h b/frame/3/trmm3/bli_trmm3_front.h index 22c0ff509..296b9354b 100644 --- a/frame/3/trmm3/bli_trmm3_front.h +++ b/frame/3/trmm3/bli_trmm3_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_trmm3_front +void bli_trmm3_front ( side_t side, obj_t* alpha, diff --git a/frame/3/trsm/bli_trsm_cntl.c b/frame/3/trsm/bli_trsm_cntl.c index 68ae074c0..9b59cae61 100644 --- a/frame/3/trsm/bli_trsm_cntl.c +++ b/frame/3/trsm/bli_trsm_cntl.c @@ -301,7 +301,7 @@ cntl_t* bli_trsm_r_cntl_create return trsm_cntl_vl_mm; } -BLIS_EXPORT_BLIS void bli_trsm_cntl_free +void bli_trsm_cntl_free ( rntm_t* rntm, cntl_t* cntl, diff --git a/frame/3/trsm/bli_trsm_cntl.h b/frame/3/trsm/bli_trsm_cntl.h index 65bd2884f..17b8d3c18 100644 --- a/frame/3/trsm/bli_trsm_cntl.h +++ b/frame/3/trsm/bli_trsm_cntl.h @@ -33,7 +33,7 @@ */ -BLIS_EXPORT_BLIS cntl_t* bli_trsm_cntl_create +cntl_t* bli_trsm_cntl_create ( rntm_t* rntm, side_t side, @@ -41,21 +41,21 @@ BLIS_EXPORT_BLIS cntl_t* bli_trsm_cntl_create pack_t schema_b ); -BLIS_EXPORT_BLIS cntl_t* bli_trsm_l_cntl_create +cntl_t* bli_trsm_l_cntl_create ( rntm_t* rntm, pack_t schema_a, pack_t schema_b ); -BLIS_EXPORT_BLIS cntl_t* bli_trsm_r_cntl_create +cntl_t* bli_trsm_r_cntl_create ( rntm_t* rntm, pack_t schema_a, pack_t schema_b ); -BLIS_EXPORT_BLIS void bli_trsm_cntl_free +void bli_trsm_cntl_free ( rntm_t* rntm, cntl_t* cntl, @@ -64,7 +64,7 @@ BLIS_EXPORT_BLIS void bli_trsm_cntl_free // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS cntl_t* bli_trsm_cntl_create_node +cntl_t* bli_trsm_cntl_create_node ( rntm_t* rntm, opid_t family, diff --git a/frame/3/trsm/bli_trsm_front.c b/frame/3/trsm/bli_trsm_front.c index 932a44d24..5093d1a4a 100644 --- a/frame/3/trsm/bli_trsm_front.c +++ b/frame/3/trsm/bli_trsm_front.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_trsm_front +void bli_trsm_front ( side_t side, obj_t* alpha, diff --git a/frame/3/trsm/bli_trsm_front.h b/frame/3/trsm/bli_trsm_front.h index c7b8567c9..1a08b7c75 100644 --- a/frame/3/trsm/bli_trsm_front.h +++ b/frame/3/trsm/bli_trsm_front.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_trsm_front +void bli_trsm_front ( side_t side, obj_t* alpha, diff --git a/frame/3/trsm/bli_trsm_int.c b/frame/3/trsm/bli_trsm_int.c index c94b70ec3..dc39e69e0 100644 --- a/frame/3/trsm/bli_trsm_int.c +++ b/frame/3/trsm/bli_trsm_int.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_trsm_int +void bli_trsm_int ( obj_t* alpha, obj_t* a, diff --git a/frame/3/trsm/bli_trsm_int.h b/frame/3/trsm/bli_trsm_int.h index ce205765c..aabb2a8aa 100644 --- a/frame/3/trsm/bli_trsm_int.h +++ b/frame/3/trsm/bli_trsm_int.h @@ -32,7 +32,7 @@ */ -BLIS_EXPORT_BLIS void bli_trsm_int +void bli_trsm_int ( obj_t* alpha, obj_t* a, diff --git a/frame/3/trsm/bli_trsm_ll_ker_var2.c b/frame/3/trsm/bli_trsm_ll_ker_var2.c index 19292a2f3..37823d7bf 100644 --- a/frame/3/trsm/bli_trsm_ll_ker_var2.c +++ b/frame/3/trsm/bli_trsm_ll_ker_var2.c @@ -140,7 +140,7 @@ void bli_trsm_ll_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trsm/bli_trsm_lu_ker_var2.c b/frame/3/trsm/bli_trsm_lu_ker_var2.c index 94f3180ae..853bccf91 100644 --- a/frame/3/trsm/bli_trsm_lu_ker_var2.c +++ b/frame/3/trsm/bli_trsm_lu_ker_var2.c @@ -140,7 +140,7 @@ void bli_trsm_lu_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trsm/bli_trsm_rl_ker_var2.c b/frame/3/trsm/bli_trsm_rl_ker_var2.c index 14fa2a30a..87e1a0b28 100644 --- a/frame/3/trsm/bli_trsm_rl_ker_var2.c +++ b/frame/3/trsm/bli_trsm_rl_ker_var2.c @@ -140,7 +140,7 @@ void bli_trsm_rl_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trsm/bli_trsm_ru_ker_var2.c b/frame/3/trsm/bli_trsm_ru_ker_var2.c index a7a65264a..71a72ea24 100644 --- a/frame/3/trsm/bli_trsm_ru_ker_var2.c +++ b/frame/3/trsm/bli_trsm_ru_ker_var2.c @@ -140,7 +140,7 @@ void bli_trsm_ru_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trsm/bli_trsm_var.h b/frame/3/trsm/bli_trsm_var.h index 0ee1c0fc6..0f5f42de8 100644 --- a/frame/3/trsm/bli_trsm_var.h +++ b/frame/3/trsm/bli_trsm_var.h @@ -41,7 +41,7 @@ #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* a, \ obj_t* b, \ @@ -73,7 +73,7 @@ GENPROT( trsm_ru_ker_var2 ) #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoff, \ pack_t schema_a, \ diff --git a/frame/3/trsm/other/bli_trsm_ll_ker_var2.c b/frame/3/trsm/other/bli_trsm_ll_ker_var2.c index f58602903..1c4b0b5c7 100644 --- a/frame/3/trsm/other/bli_trsm_ll_ker_var2.c +++ b/frame/3/trsm/other/bli_trsm_ll_ker_var2.c @@ -140,7 +140,7 @@ void bli_trsm_ll_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trsm/other/bli_trsm_ll_ker_var2rr.c b/frame/3/trsm/other/bli_trsm_ll_ker_var2rr.c index ffb4102fd..3891bffc0 100644 --- a/frame/3/trsm/other/bli_trsm_ll_ker_var2rr.c +++ b/frame/3/trsm/other/bli_trsm_ll_ker_var2rr.c @@ -143,7 +143,7 @@ void bli_trsm_ll_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trsm/other/bli_trsm_ll_ker_var2sl.c b/frame/3/trsm/other/bli_trsm_ll_ker_var2sl.c index 9065c1d10..1bc2f6e42 100644 --- a/frame/3/trsm/other/bli_trsm_ll_ker_var2sl.c +++ b/frame/3/trsm/other/bli_trsm_ll_ker_var2sl.c @@ -143,7 +143,7 @@ void bli_trsm_ll_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trsm/other/bli_trsm_lu_ker_var2.c b/frame/3/trsm/other/bli_trsm_lu_ker_var2.c index e7a0c956c..673e1eaa3 100644 --- a/frame/3/trsm/other/bli_trsm_lu_ker_var2.c +++ b/frame/3/trsm/other/bli_trsm_lu_ker_var2.c @@ -140,7 +140,7 @@ void bli_trsm_lu_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trsm/other/bli_trsm_lu_ker_var2rr.c b/frame/3/trsm/other/bli_trsm_lu_ker_var2rr.c index 675a2ab19..72761ee54 100644 --- a/frame/3/trsm/other/bli_trsm_lu_ker_var2rr.c +++ b/frame/3/trsm/other/bli_trsm_lu_ker_var2rr.c @@ -143,7 +143,7 @@ void bli_trsm_lu_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trsm/other/bli_trsm_lu_ker_var2sl.c b/frame/3/trsm/other/bli_trsm_lu_ker_var2sl.c index 386c87b37..491ae8198 100644 --- a/frame/3/trsm/other/bli_trsm_lu_ker_var2sl.c +++ b/frame/3/trsm/other/bli_trsm_lu_ker_var2sl.c @@ -143,7 +143,7 @@ void bli_trsm_lu_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trsm/other/bli_trsm_rl_ker_var2.c b/frame/3/trsm/other/bli_trsm_rl_ker_var2.c index 97509d01b..3293289a1 100644 --- a/frame/3/trsm/other/bli_trsm_rl_ker_var2.c +++ b/frame/3/trsm/other/bli_trsm_rl_ker_var2.c @@ -140,7 +140,7 @@ void bli_trsm_rl_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trsm/other/bli_trsm_ru_ker_var2.c b/frame/3/trsm/other/bli_trsm_ru_ker_var2.c index 8fa33210c..9726fd467 100644 --- a/frame/3/trsm/other/bli_trsm_ru_ker_var2.c +++ b/frame/3/trsm/other/bli_trsm_ru_ker_var2.c @@ -140,7 +140,7 @@ void bli_trsm_ru_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/base/bli_apool.h b/frame/base/bli_apool.h index 3e514b4e0..1f7889023 100644 --- a/frame/base/bli_apool.h +++ b/frame/base/bli_apool.h @@ -94,44 +94,44 @@ static void bli_apool_set_def_array_len( siz_t def_array_len, apool_t* pool ) \ // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_apool_init +void bli_apool_init ( apool_t* restrict apool ); -BLIS_EXPORT_BLIS void bli_apool_finalize +void bli_apool_finalize ( apool_t* restrict apool ); -BLIS_EXPORT_BLIS array_t* bli_apool_checkout_array +array_t* bli_apool_checkout_array ( siz_t n_threads, apool_t* restrict apool ); -BLIS_EXPORT_BLIS void bli_apool_checkin_array +void bli_apool_checkin_array ( array_t* restrict array, apool_t* restrict apool ); -BLIS_EXPORT_BLIS pool_t* bli_apool_array_elem +pool_t* bli_apool_array_elem ( siz_t index, array_t* restrict array ); -BLIS_EXPORT_BLIS void bli_apool_grow +void bli_apool_grow ( siz_t num_blocks_add, apool_t* restrict apool ); -BLIS_EXPORT_BLIS void bli_apool_alloc_block +void bli_apool_alloc_block ( siz_t num_elem, array_t** restrict array_p ); -BLIS_EXPORT_BLIS void bli_apool_free_block +void bli_apool_free_block ( array_t* restrict array ); diff --git a/frame/base/bli_arch.h b/frame/base/bli_arch.h index 42a021806..13c9c8aa6 100644 --- a/frame/base/bli_arch.h +++ b/frame/base/bli_arch.h @@ -35,12 +35,12 @@ #ifndef BLIS_ARCH_H #define BLIS_ARCH_H -BLIS_EXPORT_BLIS arch_t bli_arch_query_id( void ); +arch_t bli_arch_query_id( void ); -BLIS_EXPORT_BLIS void bli_arch_set_id_once( void ); -BLIS_EXPORT_BLIS void bli_arch_set_id( void ); +void bli_arch_set_id_once( void ); +void bli_arch_set_id( void ); -BLIS_EXPORT_BLIS char* bli_arch_string( arch_t id ); +char* bli_arch_string( arch_t id ); #endif diff --git a/frame/base/bli_array.h b/frame/base/bli_array.h index 5676a7a22..e3070ae67 100644 --- a/frame/base/bli_array.h +++ b/frame/base/bli_array.h @@ -85,28 +85,28 @@ static void bli_array_set_elem_size( siz_t elem_size, array_t* array ) \ // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_array_init +void bli_array_init ( const siz_t num_elem, const siz_t elem_size, array_t* restrict array ); -BLIS_EXPORT_BLIS void bli_array_resize +void bli_array_resize ( const siz_t num_elem_new, array_t* restrict array ); -BLIS_EXPORT_BLIS void bli_array_finalize +void bli_array_finalize ( array_t* restrict array ); -BLIS_EXPORT_BLIS void* bli_array_elem +void* bli_array_elem ( const siz_t index, array_t* restrict array ); -BLIS_EXPORT_BLIS void bli_array_set_elem +void bli_array_set_elem ( void* restrict elem, const siz_t index, diff --git a/frame/base/bli_blksz.h b/frame/base/bli_blksz.h index 5ca441a29..a3400b2fa 100644 --- a/frame/base/bli_blksz.h +++ b/frame/base/bli_blksz.h @@ -237,20 +237,20 @@ BLIS_EXPORT_BLIS void bli_blksz_reduce_dt_to ); #endif -BLIS_EXPORT_BLIS void bli_blksz_reduce_def_to +void bli_blksz_reduce_def_to ( num_t dt_bm, blksz_t* bmult, num_t dt_bs, blksz_t* blksz ); -BLIS_EXPORT_BLIS void bli_blksz_reduce_max_to +void bli_blksz_reduce_max_to ( num_t dt_bm, blksz_t* bmult, num_t dt_bs, blksz_t* blksz ); // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS dim_t bli_determine_blocksize +dim_t bli_determine_blocksize ( dir_t direct, dim_t i, @@ -260,7 +260,7 @@ BLIS_EXPORT_BLIS dim_t bli_determine_blocksize cntx_t* cntx ); -BLIS_EXPORT_BLIS dim_t bli_determine_blocksize_f +dim_t bli_determine_blocksize_f ( dim_t i, dim_t dim, @@ -269,7 +269,7 @@ BLIS_EXPORT_BLIS dim_t bli_determine_blocksize_f cntx_t* cntx ); -BLIS_EXPORT_BLIS dim_t bli_determine_blocksize_b +dim_t bli_determine_blocksize_b ( dim_t i, dim_t dim, @@ -278,7 +278,7 @@ BLIS_EXPORT_BLIS dim_t bli_determine_blocksize_b cntx_t* cntx ); -BLIS_EXPORT_BLIS dim_t bli_determine_blocksize_f_sub +dim_t bli_determine_blocksize_f_sub ( dim_t i, dim_t dim, @@ -286,7 +286,7 @@ BLIS_EXPORT_BLIS dim_t bli_determine_blocksize_f_sub dim_t b_max ); -BLIS_EXPORT_BLIS dim_t bli_determine_blocksize_b_sub +dim_t bli_determine_blocksize_b_sub ( dim_t i, dim_t dim, diff --git a/frame/base/bli_check.h b/frame/base/bli_check.h index b96f4f1ff..242dc9487 100644 --- a/frame/base/bli_check.h +++ b/frame/base/bli_check.h @@ -34,84 +34,84 @@ */ -BLIS_EXPORT_BLIS err_t bli_check_error_code_helper( gint_t code, char* file, guint_t line ); +err_t bli_check_error_code_helper( gint_t code, char* file, guint_t line ); -BLIS_EXPORT_BLIS err_t bli_check_valid_error_level( errlev_t level ); +err_t bli_check_valid_error_level( errlev_t level ); -BLIS_EXPORT_BLIS err_t bli_check_null_pointer( void* ptr ); +err_t bli_check_null_pointer( void* ptr ); -BLIS_EXPORT_BLIS err_t bli_check_valid_side( side_t side ); -BLIS_EXPORT_BLIS err_t bli_check_valid_uplo( uplo_t uplo ); -BLIS_EXPORT_BLIS err_t bli_check_valid_trans( trans_t trans ); -BLIS_EXPORT_BLIS err_t bli_check_valid_diag( diag_t diag ); -BLIS_EXPORT_BLIS err_t bli_check_nonunit_diag( obj_t* a ); +err_t bli_check_valid_side( side_t side ); +err_t bli_check_valid_uplo( uplo_t uplo ); +err_t bli_check_valid_trans( trans_t trans ); +err_t bli_check_valid_diag( diag_t diag ); +err_t bli_check_nonunit_diag( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_valid_datatype( num_t dt ); -BLIS_EXPORT_BLIS err_t bli_check_object_valid_datatype( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_noninteger_datatype( num_t dt ); -BLIS_EXPORT_BLIS err_t bli_check_noninteger_object( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_nonconstant_datatype( num_t dt ); -BLIS_EXPORT_BLIS err_t bli_check_nonconstant_object( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_floating_datatype( num_t dt ); -BLIS_EXPORT_BLIS err_t bli_check_floating_object( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_real_datatype( num_t dt ); -BLIS_EXPORT_BLIS err_t bli_check_real_object( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_integer_datatype( num_t dt ); -BLIS_EXPORT_BLIS err_t bli_check_integer_object( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_consistent_datatypes( num_t dt_a, num_t dt_b ); -BLIS_EXPORT_BLIS err_t bli_check_consistent_object_datatypes( obj_t* a, obj_t* b ); -BLIS_EXPORT_BLIS err_t bli_check_datatype_real_proj_of( num_t dt_c, num_t dt_r ); -BLIS_EXPORT_BLIS err_t bli_check_object_real_proj_of( obj_t* c, obj_t* r ); -BLIS_EXPORT_BLIS err_t bli_check_real_valued_object( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_consistent_precisions( num_t dt_a, num_t dt_b ); -BLIS_EXPORT_BLIS err_t bli_check_consistent_object_precisions( obj_t* a, obj_t* b ); +err_t bli_check_valid_datatype( num_t dt ); +err_t bli_check_object_valid_datatype( obj_t* a ); +err_t bli_check_noninteger_datatype( num_t dt ); +err_t bli_check_noninteger_object( obj_t* a ); +err_t bli_check_nonconstant_datatype( num_t dt ); +err_t bli_check_nonconstant_object( obj_t* a ); +err_t bli_check_floating_datatype( num_t dt ); +err_t bli_check_floating_object( obj_t* a ); +err_t bli_check_real_datatype( num_t dt ); +err_t bli_check_real_object( obj_t* a ); +err_t bli_check_integer_datatype( num_t dt ); +err_t bli_check_integer_object( obj_t* a ); +err_t bli_check_consistent_datatypes( num_t dt_a, num_t dt_b ); +err_t bli_check_consistent_object_datatypes( obj_t* a, obj_t* b ); +err_t bli_check_datatype_real_proj_of( num_t dt_c, num_t dt_r ); +err_t bli_check_object_real_proj_of( obj_t* c, obj_t* r ); +err_t bli_check_real_valued_object( obj_t* a ); +err_t bli_check_consistent_precisions( num_t dt_a, num_t dt_b ); +err_t bli_check_consistent_object_precisions( obj_t* a, obj_t* b ); -BLIS_EXPORT_BLIS err_t bli_check_conformal_dims( obj_t* a, obj_t* b ); -BLIS_EXPORT_BLIS err_t bli_check_level3_dims( obj_t* a, obj_t* b, obj_t* c ); -BLIS_EXPORT_BLIS err_t bli_check_scalar_object( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_vector_object( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_matrix_object( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_equal_vector_lengths( obj_t* x, obj_t* y ); -BLIS_EXPORT_BLIS err_t bli_check_square_object( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_object_length_equals( obj_t* a, dim_t m ); -BLIS_EXPORT_BLIS err_t bli_check_object_width_equals( obj_t* a, dim_t n ); -BLIS_EXPORT_BLIS err_t bli_check_vector_dim_equals( obj_t* a, dim_t n ); -BLIS_EXPORT_BLIS err_t bli_check_object_diag_offset_equals( obj_t* a, doff_t offset ); +err_t bli_check_conformal_dims( obj_t* a, obj_t* b ); +err_t bli_check_level3_dims( obj_t* a, obj_t* b, obj_t* c ); +err_t bli_check_scalar_object( obj_t* a ); +err_t bli_check_vector_object( obj_t* a ); +err_t bli_check_matrix_object( obj_t* a ); +err_t bli_check_equal_vector_lengths( obj_t* x, obj_t* y ); +err_t bli_check_square_object( obj_t* a ); +err_t bli_check_object_length_equals( obj_t* a, dim_t m ); +err_t bli_check_object_width_equals( obj_t* a, dim_t n ); +err_t bli_check_vector_dim_equals( obj_t* a, dim_t n ); +err_t bli_check_object_diag_offset_equals( obj_t* a, doff_t offset ); -BLIS_EXPORT_BLIS err_t bli_check_matrix_strides( dim_t m, dim_t n, inc_t rs, inc_t cs, inc_t is ); +err_t bli_check_matrix_strides( dim_t m, dim_t n, inc_t rs, inc_t cs, inc_t is ); -BLIS_EXPORT_BLIS err_t bli_check_general_object( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_hermitian_object( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_symmetric_object( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_triangular_object( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_object_struc( obj_t* a, struc_t struc ); +err_t bli_check_general_object( obj_t* a ); +err_t bli_check_hermitian_object( obj_t* a ); +err_t bli_check_symmetric_object( obj_t* a ); +err_t bli_check_triangular_object( obj_t* a ); +err_t bli_check_object_struc( obj_t* a, struc_t struc ); -BLIS_EXPORT_BLIS err_t bli_check_upper_or_lower_object( obj_t* a ); +err_t bli_check_upper_or_lower_object( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_valid_3x1_subpart( subpart_t part ); -BLIS_EXPORT_BLIS err_t bli_check_valid_1x3_subpart( subpart_t part ); -BLIS_EXPORT_BLIS err_t bli_check_valid_3x3_subpart( subpart_t part ); +err_t bli_check_valid_3x1_subpart( subpart_t part ); +err_t bli_check_valid_1x3_subpart( subpart_t part ); +err_t bli_check_valid_3x3_subpart( subpart_t part ); -BLIS_EXPORT_BLIS err_t bli_check_valid_cntl( void* cntl ); +err_t bli_check_valid_cntl( void* cntl ); -BLIS_EXPORT_BLIS err_t bli_check_packm_schema_on_unpack( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_packv_schema_on_unpack( obj_t* a ); +err_t bli_check_packm_schema_on_unpack( obj_t* a ); +err_t bli_check_packv_schema_on_unpack( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_object_buffer( obj_t* a ); +err_t bli_check_object_buffer( obj_t* a ); -BLIS_EXPORT_BLIS err_t bli_check_valid_malloc_buf( void* ptr ); +err_t bli_check_valid_malloc_buf( void* ptr ); -BLIS_EXPORT_BLIS err_t bli_check_valid_packbuf( packbuf_t buf_type ); -BLIS_EXPORT_BLIS err_t bli_check_if_exhausted_pool( pool_t* pool ); -BLIS_EXPORT_BLIS err_t bli_check_sufficient_stack_buf_size( num_t dt, cntx_t* cntx ); -BLIS_EXPORT_BLIS err_t bli_check_alignment_is_power_of_two( size_t align_size ); -BLIS_EXPORT_BLIS err_t bli_check_alignment_is_mult_of_ptr_size( size_t align_size ); +err_t bli_check_valid_packbuf( packbuf_t buf_type ); +err_t bli_check_if_exhausted_pool( pool_t* pool ); +err_t bli_check_sufficient_stack_buf_size( num_t dt, cntx_t* cntx ); +err_t bli_check_alignment_is_power_of_two( size_t align_size ); +err_t bli_check_alignment_is_mult_of_ptr_size( size_t align_size ); -BLIS_EXPORT_BLIS err_t bli_check_object_alias_of( obj_t* a, obj_t* b ); +err_t bli_check_object_alias_of( obj_t* a, obj_t* b ); -BLIS_EXPORT_BLIS err_t bli_check_valid_arch_id( arch_t id ); +err_t bli_check_valid_arch_id( arch_t id ); -BLIS_EXPORT_BLIS err_t bli_check_valid_mc_mod_mult( blksz_t* mc, blksz_t* mr ); -BLIS_EXPORT_BLIS err_t bli_check_valid_nc_mod_mult( blksz_t* nc, blksz_t* nr ); -BLIS_EXPORT_BLIS err_t bli_check_valid_kc_mod_mult( blksz_t* kc, blksz_t* kr ); +err_t bli_check_valid_mc_mod_mult( blksz_t* mc, blksz_t* mr ); +err_t bli_check_valid_nc_mod_mult( blksz_t* nc, blksz_t* nr ); +err_t bli_check_valid_kc_mod_mult( blksz_t* kc, blksz_t* kr ); diff --git a/frame/base/bli_clock.h b/frame/base/bli_clock.h index f4d952a08..d52e26ef6 100644 --- a/frame/base/bli_clock.h +++ b/frame/base/bli_clock.h @@ -34,5 +34,6 @@ BLIS_EXPORT_BLIS double bli_clock( void ); BLIS_EXPORT_BLIS double bli_clock_min_diff( double time_min, double time_start ); -BLIS_EXPORT_BLIS double bli_clock_helper( void ); + +double bli_clock_helper( void ); diff --git a/frame/base/bli_cntl.h b/frame/base/bli_cntl.h index 9a766604f..1959d3a3d 100644 --- a/frame/base/bli_cntl.h +++ b/frame/base/bli_cntl.h @@ -117,7 +117,7 @@ BLIS_EXPORT_BLIS void bli_cntl_mark_family // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS dim_t bli_cntl_calc_num_threads_in +dim_t bli_cntl_calc_num_threads_in ( rntm_t* rntm, cntl_t* cntl diff --git a/frame/base/bli_const.h b/frame/base/bli_const.h index ad088addb..1b9799482 100644 --- a/frame/base/bli_const.h +++ b/frame/base/bli_const.h @@ -32,6 +32,6 @@ */ -BLIS_EXPORT_BLIS void bli_const_init( void ); -BLIS_EXPORT_BLIS void bli_const_finalize( void ); +void bli_const_init( void ); +void bli_const_finalize( void ); diff --git a/frame/base/bli_cpuid.h b/frame/base/bli_cpuid.h index d624b5f1c..e609dcbd2 100644 --- a/frame/base/bli_cpuid.h +++ b/frame/base/bli_cpuid.h @@ -50,30 +50,30 @@ #ifndef BLIS_CPUID_H #define BLIS_CPUID_H -BLIS_EXPORT_BLIS arch_t bli_cpuid_query_id( void ); +arch_t bli_cpuid_query_id( void ); // Intel -BLIS_EXPORT_BLIS bool_t bli_cpuid_is_skx( uint32_t family, uint32_t model, uint32_t features ); -BLIS_EXPORT_BLIS bool_t bli_cpuid_is_knl( uint32_t family, uint32_t model, uint32_t features ); -BLIS_EXPORT_BLIS bool_t bli_cpuid_is_haswell( uint32_t family, uint32_t model, uint32_t features ); -BLIS_EXPORT_BLIS bool_t bli_cpuid_is_sandybridge( uint32_t family, uint32_t model, uint32_t features ); -BLIS_EXPORT_BLIS bool_t bli_cpuid_is_penryn( uint32_t family, uint32_t model, uint32_t features ); +bool_t bli_cpuid_is_skx( uint32_t family, uint32_t model, uint32_t features ); +bool_t bli_cpuid_is_knl( uint32_t family, uint32_t model, uint32_t features ); +bool_t bli_cpuid_is_haswell( uint32_t family, uint32_t model, uint32_t features ); +bool_t bli_cpuid_is_sandybridge( uint32_t family, uint32_t model, uint32_t features ); +bool_t bli_cpuid_is_penryn( uint32_t family, uint32_t model, uint32_t features ); // AMD -BLIS_EXPORT_BLIS bool_t bli_cpuid_is_zen( uint32_t family, uint32_t model, uint32_t features ); -BLIS_EXPORT_BLIS bool_t bli_cpuid_is_excavator( uint32_t family, uint32_t model, uint32_t features ); -BLIS_EXPORT_BLIS bool_t bli_cpuid_is_steamroller( uint32_t family, uint32_t model, uint32_t features ); -BLIS_EXPORT_BLIS bool_t bli_cpuid_is_piledriver( uint32_t family, uint32_t model, uint32_t features ); -BLIS_EXPORT_BLIS bool_t bli_cpuid_is_bulldozer( uint32_t family, uint32_t model, uint32_t features ); +bool_t bli_cpuid_is_zen( uint32_t family, uint32_t model, uint32_t features ); +bool_t bli_cpuid_is_excavator( uint32_t family, uint32_t model, uint32_t features ); +bool_t bli_cpuid_is_steamroller( uint32_t family, uint32_t model, uint32_t features ); +bool_t bli_cpuid_is_piledriver( uint32_t family, uint32_t model, uint32_t features ); +bool_t bli_cpuid_is_bulldozer( uint32_t family, uint32_t model, uint32_t features ); // ARM -BLIS_EXPORT_BLIS bool_t bli_cpuid_is_thunderx2( uint32_t model, uint32_t part, uint32_t features ); -BLIS_EXPORT_BLIS bool_t bli_cpuid_is_cortexa57( uint32_t model, uint32_t part, uint32_t features ); -BLIS_EXPORT_BLIS bool_t bli_cpuid_is_cortexa53( uint32_t model, uint32_t part, uint32_t features ); -BLIS_EXPORT_BLIS bool_t bli_cpuid_is_cortexa15( uint32_t model, uint32_t part, uint32_t features ); -BLIS_EXPORT_BLIS bool_t bli_cpuid_is_cortexa9( uint32_t model, uint32_t part, uint32_t features ); +bool_t bli_cpuid_is_thunderx2( uint32_t model, uint32_t part, uint32_t features ); +bool_t bli_cpuid_is_cortexa57( uint32_t model, uint32_t part, uint32_t features ); +bool_t bli_cpuid_is_cortexa53( uint32_t model, uint32_t part, uint32_t features ); +bool_t bli_cpuid_is_cortexa15( uint32_t model, uint32_t part, uint32_t features ); +bool_t bli_cpuid_is_cortexa9( uint32_t model, uint32_t part, uint32_t features ); -BLIS_EXPORT_BLIS uint32_t bli_cpuid_query( uint32_t* family, uint32_t* model, uint32_t* features ); +uint32_t bli_cpuid_query( uint32_t* family, uint32_t* model, uint32_t* features ); // ----------------------------------------------------------------------------- diff --git a/frame/base/bli_error.c b/frame/base/bli_error.c index 0a10ba2cf..8ed386af5 100644 --- a/frame/base/bli_error.c +++ b/frame/base/bli_error.c @@ -143,7 +143,7 @@ errlev_t bli_error_checking_level( void ) return bli_err_chk_level; } -BLIS_EXPORT_BLIS void bli_error_checking_level_set( errlev_t new_level ) +void bli_error_checking_level_set( errlev_t new_level ) { err_t e_val; diff --git a/frame/base/bli_error.h b/frame/base/bli_error.h index d0b8101a6..e04c6784d 100644 --- a/frame/base/bli_error.h +++ b/frame/base/bli_error.h @@ -33,13 +33,13 @@ */ -BLIS_EXPORT_BLIS void bli_print_msg( char* str, char* file, guint_t line ); -BLIS_EXPORT_BLIS void bli_abort( void ); - BLIS_EXPORT_BLIS errlev_t bli_error_checking_level( void ); BLIS_EXPORT_BLIS void bli_error_checking_level_set( errlev_t new_level ); BLIS_EXPORT_BLIS bool_t bli_error_checking_is_enabled( void ); -BLIS_EXPORT_BLIS char* bli_error_string_for_code( gint_t code ); +void bli_print_msg( char* str, char* file, guint_t line ); +void bli_abort( void ); + +char* bli_error_string_for_code( gint_t code ); diff --git a/frame/base/bli_func.h b/frame/base/bli_func.h index aa9186279..0f927ad81 100644 --- a/frame/base/bli_func.h +++ b/frame/base/bli_func.h @@ -70,7 +70,7 @@ static void bli_func_copy_dt // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS func_t* bli_func_create +func_t* bli_func_create ( void* ptr_s, void* ptr_d, @@ -78,7 +78,7 @@ BLIS_EXPORT_BLIS func_t* bli_func_create void* ptr_z ); -BLIS_EXPORT_BLIS void bli_func_init +void bli_func_init ( func_t* f, void* ptr_s, @@ -87,16 +87,16 @@ BLIS_EXPORT_BLIS void bli_func_init void* ptr_z ); -BLIS_EXPORT_BLIS void bli_func_init_null +void bli_func_init_null ( func_t* f ); -BLIS_EXPORT_BLIS void bli_func_free( func_t* f ); +void bli_func_free( func_t* f ); // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS bool_t bli_func_is_null_dt( num_t dt, +bool_t bli_func_is_null_dt( num_t dt, func_t* f ); -BLIS_EXPORT_BLIS bool_t bli_func_is_null( func_t* f ); +bool_t bli_func_is_null( func_t* f ); diff --git a/frame/base/bli_getopt.c b/frame/base/bli_getopt.c index 3ce8ea81c..222223484 100644 --- a/frame/base/bli_getopt.c +++ b/frame/base/bli_getopt.c @@ -37,7 +37,7 @@ static const char OPT_MARKER = '-'; -BLIS_EXPORT_BLIS void bli_getopt_init_state( int opterr, getopt_t* state ) +void bli_getopt_init_state( int opterr, getopt_t* state ) { state->optarg = NULL; state->optind = 1; diff --git a/frame/base/bli_gks.h b/frame/base/bli_gks.h index 350619f31..fde4e4ec0 100644 --- a/frame/base/bli_gks.h +++ b/frame/base/bli_gks.h @@ -35,33 +35,30 @@ #ifndef BLIS_GKS_H #define BLIS_GKS_H -BLIS_EXPORT_BLIS arch_t bli_arch_query_id( void ); +void bli_gks_init( void ); +void bli_gks_finalize( void ); -// ----------------------------------------------------------------------------- +void bli_gks_init_index( void ); -BLIS_EXPORT_BLIS void bli_gks_init( void ); -BLIS_EXPORT_BLIS void bli_gks_finalize( void ); - -BLIS_EXPORT_BLIS void bli_gks_init_index( void ); - -BLIS_EXPORT_BLIS cntx_t* bli_gks_lookup_nat_cntx( arch_t id ); -BLIS_EXPORT_BLIS cntx_t* bli_gks_lookup_ind_cntx( arch_t id, ind_t ind ); -BLIS_EXPORT_BLIS void bli_gks_register_cntx( arch_t id, void* nat_fp, void* ref_fp, void* ind_fp ); +cntx_t* bli_gks_lookup_nat_cntx( arch_t id ); +cntx_t* bli_gks_lookup_ind_cntx( arch_t id, ind_t ind ); +void bli_gks_register_cntx( arch_t id, void* nat_fp, void* ref_fp, void* ind_fp ); BLIS_EXPORT_BLIS cntx_t* bli_gks_query_cntx( void ); BLIS_EXPORT_BLIS cntx_t* bli_gks_query_nat_cntx( void ); -BLIS_EXPORT_BLIS cntx_t* bli_gks_query_cntx_noinit( void ); -BLIS_EXPORT_BLIS cntx_t* bli_gks_query_ind_cntx( ind_t ind, num_t dt ); + +cntx_t* bli_gks_query_cntx_noinit( void ); + +cntx_t* bli_gks_query_ind_cntx( ind_t ind, num_t dt ); BLIS_EXPORT_BLIS void bli_gks_init_ref_cntx( cntx_t* cntx ); -BLIS_EXPORT_BLIS bool_t bli_gks_cntx_l3_nat_ukr_is_ref( num_t dt, l3ukr_t ukr_id, cntx_t* cntx ); +bool_t bli_gks_cntx_l3_nat_ukr_is_ref( num_t dt, l3ukr_t ukr_id, cntx_t* cntx ); BLIS_EXPORT_BLIS char* bli_gks_l3_ukr_impl_string( l3ukr_t ukr, ind_t method, num_t dt ); BLIS_EXPORT_BLIS kimpl_t bli_gks_l3_ukr_impl_type( l3ukr_t ukr, ind_t method, num_t dt ); //char* bli_gks_l3_ukr_avail_impl_string( l3ukr_t ukr, num_t dt ); - #endif diff --git a/frame/base/bli_init.h b/frame/base/bli_init.h index 9f45e2b03..f174ac0f9 100644 --- a/frame/base/bli_init.h +++ b/frame/base/bli_init.h @@ -32,15 +32,15 @@ */ -BLIS_EXPORT_BLIS void bli_init( void ); -BLIS_EXPORT_BLIS void bli_finalize( void ); +BLIS_EXPORT_BLIS void bli_init( void ); +BLIS_EXPORT_BLIS void bli_finalize( void ); -BLIS_EXPORT_BLIS void bli_init_auto( void ); -BLIS_EXPORT_BLIS void bli_finalize_auto( void ); +void bli_init_auto( void ); +void bli_finalize_auto( void ); -BLIS_EXPORT_BLIS void bli_init_apis( void ); -BLIS_EXPORT_BLIS void bli_finalize_apis( void ); +void bli_init_apis( void ); +void bli_finalize_apis( void ); -BLIS_EXPORT_BLIS void bli_init_once( void ); -BLIS_EXPORT_BLIS void bli_finalize_once( void ); +void bli_init_once( void ); +void bli_finalize_once( void ); diff --git a/frame/base/bli_machval.c b/frame/base/bli_machval.c index 495d20b01..e26c5a4d8 100644 --- a/frame/base/bli_machval.c +++ b/frame/base/bli_machval.c @@ -72,7 +72,7 @@ void bli_machval( machval_t mval, #undef GENTFUNCR #define GENTFUNCR( ctype_v, ctype_vr, chv, chvr, opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(chv,opname) \ +void PASTEMAC(chv,opname) \ ( \ machval_t mval, \ void* v \ diff --git a/frame/base/bli_machval.h b/frame/base/bli_machval.h index 034af7505..25177a250 100644 --- a/frame/base/bli_machval.h +++ b/frame/base/bli_machval.h @@ -39,8 +39,7 @@ // // Prototype object-based interface. // -BLIS_EXPORT_BLIS void bli_machval( machval_t mval, - obj_t* v ); +BLIS_EXPORT_BLIS void bli_machval( machval_t mval, obj_t* v ); // diff --git a/frame/base/bli_malloc.c b/frame/base/bli_malloc.c index f586e26f7..25ebeb1e0 100644 --- a/frame/base/bli_malloc.c +++ b/frame/base/bli_malloc.c @@ -249,7 +249,7 @@ void bli_ffree_noalign // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_fmalloc_align_check +void bli_fmalloc_align_check ( malloc_ft f, size_t size, diff --git a/frame/base/bli_malloc.h b/frame/base/bli_malloc.h index 6b57f2522..e7d523a32 100644 --- a/frame/base/bli_malloc.h +++ b/frame/base/bli_malloc.h @@ -44,21 +44,21 @@ BLIS_EXPORT_BLIS void* bli_malloc_pool( size_t size ); BLIS_EXPORT_BLIS void bli_free_pool( void* p ); #endif -BLIS_EXPORT_BLIS void* bli_malloc_intl( size_t size ); -BLIS_EXPORT_BLIS void* bli_calloc_intl( size_t size ); -BLIS_EXPORT_BLIS void bli_free_intl( void* p ); +void* bli_malloc_intl( size_t size ); +void* bli_calloc_intl( size_t size ); +void bli_free_intl( void* p ); BLIS_EXPORT_BLIS void* bli_malloc_user( size_t size ); BLIS_EXPORT_BLIS void bli_free_user( void* p ); // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void* bli_fmalloc_align( malloc_ft f, size_t size, size_t align_size ); -BLIS_EXPORT_BLIS void bli_ffree_align( free_ft f, void* p ); +void* bli_fmalloc_align( malloc_ft f, size_t size, size_t align_size ); +void bli_ffree_align( free_ft f, void* p ); -BLIS_EXPORT_BLIS void* bli_fmalloc_noalign( malloc_ft f, size_t size ); -BLIS_EXPORT_BLIS void bli_ffree_noalign( free_ft f, void* p ); +void* bli_fmalloc_noalign( malloc_ft f, size_t size ); +void bli_ffree_noalign( free_ft f, void* p ); -BLIS_EXPORT_BLIS void bli_fmalloc_align_check( malloc_ft f, size_t size, size_t align_size ); -BLIS_EXPORT_BLIS void bli_fmalloc_post_check( void* p ); +void bli_fmalloc_align_check( malloc_ft f, size_t size, size_t align_size ); +void bli_fmalloc_post_check( void* p ); diff --git a/frame/base/bli_mbool.h b/frame/base/bli_mbool.h index 01d782549..4cd4a78fb 100644 --- a/frame/base/bli_mbool.h +++ b/frame/base/bli_mbool.h @@ -50,7 +50,7 @@ static void bli_mbool_set_dt( bool_t val, num_t dt, mbool_t* mb ) // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS mbool_t* bli_mbool_create +mbool_t* bli_mbool_create ( bool_t b_s, bool_t b_d, @@ -58,7 +58,7 @@ BLIS_EXPORT_BLIS mbool_t* bli_mbool_create bool_t b_z ); -BLIS_EXPORT_BLIS void bli_mbool_init +void bli_mbool_init ( mbool_t* b, bool_t b_s, @@ -67,5 +67,5 @@ BLIS_EXPORT_BLIS void bli_mbool_init bool_t b_z ); -BLIS_EXPORT_BLIS void bli_mbool_free( mbool_t* b ); +void bli_mbool_free( mbool_t* b ); diff --git a/frame/base/bli_membrk.h b/frame/base/bli_membrk.h index 32bbbf0c4..4d00eae63 100644 --- a/frame/base/bli_membrk.h +++ b/frame/base/bli_membrk.h @@ -102,18 +102,18 @@ static void bli_membrk_unlock( membrk_t* membrk ) // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS membrk_t* bli_membrk_query( void ); +membrk_t* bli_membrk_query( void ); -BLIS_EXPORT_BLIS void bli_membrk_init +void bli_membrk_init ( cntx_t* cntx ); -BLIS_EXPORT_BLIS void bli_membrk_finalize +void bli_membrk_finalize ( void ); -BLIS_EXPORT_BLIS void bli_membrk_acquire_m +void bli_membrk_acquire_m ( rntm_t* rntm, siz_t req_size, @@ -121,18 +121,18 @@ BLIS_EXPORT_BLIS void bli_membrk_acquire_m mem_t* mem ); -BLIS_EXPORT_BLIS void bli_membrk_release +void bli_membrk_release ( rntm_t* rntm, mem_t* mem ); -BLIS_EXPORT_BLIS void bli_membrk_rntm_set_membrk +void bli_membrk_rntm_set_membrk ( rntm_t* rntm ); -BLIS_EXPORT_BLIS siz_t bli_membrk_pool_size +siz_t bli_membrk_pool_size ( membrk_t* membrk, packbuf_t buf_type @@ -140,24 +140,24 @@ BLIS_EXPORT_BLIS siz_t bli_membrk_pool_size // ---------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_membrk_init_pools +void bli_membrk_init_pools ( cntx_t* cntx, membrk_t* membrk ); -BLIS_EXPORT_BLIS void bli_membrk_finalize_pools +void bli_membrk_finalize_pools ( membrk_t* membrk ); -BLIS_EXPORT_BLIS void bli_membrk_compute_pool_block_sizes +void bli_membrk_compute_pool_block_sizes ( siz_t* bs_a, siz_t* bs_b, siz_t* bs_c, cntx_t* cntx ); -BLIS_EXPORT_BLIS void bli_membrk_compute_pool_block_sizes_dt +void bli_membrk_compute_pool_block_sizes_dt ( num_t dt, siz_t* bs_a, diff --git a/frame/base/bli_memsys.h b/frame/base/bli_memsys.h index e522355fe..306819c03 100644 --- a/frame/base/bli_memsys.h +++ b/frame/base/bli_memsys.h @@ -39,8 +39,8 @@ // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_memsys_init( void ); -BLIS_EXPORT_BLIS void bli_memsys_finalize( void ); +void bli_memsys_init( void ); +void bli_memsys_finalize( void ); #endif diff --git a/frame/base/bli_obj.h b/frame/base/bli_obj.h index 965f33f1a..4436d2cd8 100644 --- a/frame/base/bli_obj.h +++ b/frame/base/bli_obj.h @@ -104,7 +104,7 @@ BLIS_EXPORT_BLIS void bli_obj_free obj_t* obj ); -BLIS_EXPORT_BLIS void bli_adjust_strides +void bli_adjust_strides ( dim_t m, dim_t n, diff --git a/frame/base/bli_part.h b/frame/base/bli_part.h index e2ddccc34..5e56a9fec 100644 --- a/frame/base/bli_part.h +++ b/frame/base/bli_part.h @@ -89,7 +89,7 @@ GENPROT( acquire_mpart_mndim ) #undef GENPROT #define GENPROT( opname ) \ \ -void PASTEMAC0( opname ) \ +BLIS_EXPORT_BLIS void PASTEMAC0( opname ) \ ( \ subpart_t req_part, \ dim_t i, \ diff --git a/frame/base/bli_pool.h b/frame/base/bli_pool.h index 7f460df25..0d39fd7d3 100644 --- a/frame/base/bli_pool.h +++ b/frame/base/bli_pool.h @@ -191,7 +191,7 @@ static void bli_pool_set_top_index( siz_t top_index, pool_t* pool ) \ // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_pool_init +void bli_pool_init ( siz_t num_blocks, siz_t block_ptrs_len, @@ -201,11 +201,11 @@ BLIS_EXPORT_BLIS void bli_pool_init free_ft free_fp, pool_t* restrict pool ); -BLIS_EXPORT_BLIS void bli_pool_finalize +void bli_pool_finalize ( pool_t* restrict pool ); -BLIS_EXPORT_BLIS void bli_pool_reinit +void bli_pool_reinit ( siz_t num_blocks_new, siz_t block_ptrs_len_new, @@ -214,47 +214,47 @@ BLIS_EXPORT_BLIS void bli_pool_reinit pool_t* restrict pool ); -BLIS_EXPORT_BLIS void bli_pool_checkout_block +void bli_pool_checkout_block ( siz_t req_size, pblk_t* restrict block, pool_t* restrict pool ); -BLIS_EXPORT_BLIS void bli_pool_checkin_block +void bli_pool_checkin_block ( pblk_t* restrict block, pool_t* restrict pool ); -BLIS_EXPORT_BLIS void bli_pool_grow +void bli_pool_grow ( siz_t num_blocks_add, pool_t* restrict pool ); -BLIS_EXPORT_BLIS void bli_pool_shrink +void bli_pool_shrink ( siz_t num_blocks_sub, pool_t* restrict pool ); -BLIS_EXPORT_BLIS void bli_pool_alloc_block +void bli_pool_alloc_block ( siz_t block_size, siz_t align_size, malloc_ft malloc_fp, pblk_t* restrict block ); -BLIS_EXPORT_BLIS void bli_pool_free_block +void bli_pool_free_block ( free_ft free_fp, pblk_t* restrict block ); -BLIS_EXPORT_BLIS void bli_pool_print +void bli_pool_print ( pool_t* restrict pool ); -BLIS_EXPORT_BLIS void bli_pblk_print +void bli_pblk_print ( pblk_t* restrict pblk ); diff --git a/frame/base/bli_prune.h b/frame/base/bli_prune.h index 1fdb6b5ae..318096707 100644 --- a/frame/base/bli_prune.h +++ b/frame/base/bli_prune.h @@ -32,5 +32,5 @@ */ -BLIS_EXPORT_BLIS void bli_prune_unref_mparts( obj_t* p, mdim_t mdim_p, +void bli_prune_unref_mparts( obj_t* p, mdim_t mdim_p, obj_t* s, mdim_t mdim_s ); diff --git a/frame/base/bli_query.h b/frame/base/bli_query.h index fa4045b50..2bb5b3f6b 100644 --- a/frame/base/bli_query.h +++ b/frame/base/bli_query.h @@ -32,10 +32,8 @@ */ -BLIS_EXPORT_BLIS bool_t bli_obj_equals( obj_t* a, - obj_t* b ); +BLIS_EXPORT_BLIS bool_t bli_obj_equals( obj_t* a, obj_t* b ); -BLIS_EXPORT_BLIS bool_t bli_obj_imag_equals( obj_t* a, - obj_t* b ); +BLIS_EXPORT_BLIS bool_t bli_obj_imag_equals( obj_t* a, obj_t* b ); BLIS_EXPORT_BLIS bool_t bli_obj_imag_is_zero( obj_t* a ); diff --git a/frame/base/bli_rntm.h b/frame/base/bli_rntm.h index 18aae5572..f33c25e36 100644 --- a/frame/base/bli_rntm.h +++ b/frame/base/bli_rntm.h @@ -239,7 +239,7 @@ static void bli_rntm_init( rntm_t* rntm ) // Function prototypes -BLIS_EXPORT_BLIS void bli_rntm_set_ways_for_op +void bli_rntm_set_ways_for_op ( opid_t l3_op, side_t side, @@ -249,7 +249,7 @@ BLIS_EXPORT_BLIS void bli_rntm_set_ways_for_op rntm_t* rntm ); -BLIS_EXPORT_BLIS void bli_rntm_set_ways_from_rntm +void bli_rntm_set_ways_from_rntm ( dim_t m, dim_t n, @@ -257,7 +257,7 @@ BLIS_EXPORT_BLIS void bli_rntm_set_ways_from_rntm rntm_t* rntm ); -BLIS_EXPORT_BLIS void bli_rntm_print +void bli_rntm_print ( rntm_t* rntm ); diff --git a/frame/base/bli_sba.h b/frame/base/bli_sba.h index 76e2e7f8d..cf10834e3 100644 --- a/frame/base/bli_sba.h +++ b/frame/base/bli_sba.h @@ -35,36 +35,36 @@ #ifndef BLIS_SBA_H #define BLIS_SBA_H -BLIS_EXPORT_BLIS apool_t* bli_sba_query( void ); +apool_t* bli_sba_query( void ); // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_sba_init( void ); -BLIS_EXPORT_BLIS void bli_sba_finalize( void ); +void bli_sba_init( void ); +void bli_sba_finalize( void ); -BLIS_EXPORT_BLIS array_t* bli_sba_checkout_array +array_t* bli_sba_checkout_array ( const siz_t n_threads ); -BLIS_EXPORT_BLIS void bli_sba_checkin_array +void bli_sba_checkin_array ( array_t* restrict array ); -BLIS_EXPORT_BLIS void bli_sba_rntm_set_pool +void bli_sba_rntm_set_pool ( siz_t index, array_t* restrict array, rntm_t* restrict rntm ); -BLIS_EXPORT_BLIS void* bli_sba_acquire +void* bli_sba_acquire ( rntm_t* restrict rntm, siz_t req_size ); -BLIS_EXPORT_BLIS void bli_sba_release +void bli_sba_release ( rntm_t* restrict rntm, void* restrict block diff --git a/frame/base/bli_setgetij.c b/frame/base/bli_setgetij.c index 0830b8ae8..744e24c27 100644 --- a/frame/base/bli_setgetij.c +++ b/frame/base/bli_setgetij.c @@ -88,7 +88,7 @@ err_t bli_setijm #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ double ar, \ double ai, \ @@ -182,7 +182,7 @@ err_t bli_getijm #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ dim_t i, \ dim_t j, \ diff --git a/frame/base/bli_string.h b/frame/base/bli_string.h index 54cf3c7f6..426038051 100644 --- a/frame/base/bli_string.h +++ b/frame/base/bli_string.h @@ -32,4 +32,4 @@ */ -BLIS_EXPORT_BLIS void bli_string_mkupper( char* s ); +void bli_string_mkupper( char* s ); diff --git a/frame/base/bli_winsys.h b/frame/base/bli_winsys.h index 0c71114ad..0ad7c408c 100644 --- a/frame/base/bli_winsys.h +++ b/frame/base/bli_winsys.h @@ -33,5 +33,5 @@ */ //int bli_setenv( const char *name, const char *value, int overwrite ); -BLIS_EXPORT_BLIS void bli_sleep( unsigned int secs ); +void bli_sleep( unsigned int secs ); diff --git a/frame/base/cast/bli_castm.c b/frame/base/cast/bli_castm.c index 0e04dc175..64db75d24 100644 --- a/frame/base/cast/bli_castm.c +++ b/frame/base/cast/bli_castm.c @@ -54,7 +54,7 @@ static FUNCPTR_T GENARRAY2_ALL(ftypes,castm); // Define object-based interface. // -BLIS_EXPORT_BLIS void bli_castm +void bli_castm ( obj_t* a, obj_t* b @@ -115,7 +115,7 @@ BLIS_EXPORT_BLIS void bli_castm #undef GENTFUNC2 #define GENTFUNC2( ctype_a, ctype_b, cha, chb, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(cha,chb,opname) \ +void PASTEMAC2(cha,chb,opname) \ ( \ trans_t transa, \ dim_t m, \ @@ -219,7 +219,7 @@ INSERT_GENTFUNC2_MIXDP0( castm ) // Define object-based _check() function. // -BLIS_EXPORT_BLIS void bli_castm_check +void bli_castm_check ( obj_t* a, obj_t* b diff --git a/frame/base/cast/bli_castm.h b/frame/base/cast/bli_castm.h index ecc5d4655..e9e1dee21 100644 --- a/frame/base/cast/bli_castm.h +++ b/frame/base/cast/bli_castm.h @@ -65,7 +65,7 @@ INSERT_GENTPROT2_MIXDP0( castm ) // Prototype object-based _check() function. // -BLIS_EXPORT_BLIS void bli_castm_check +void bli_castm_check ( obj_t* a, obj_t* b diff --git a/frame/base/cast/bli_castnzm.c b/frame/base/cast/bli_castnzm.c index 04b04e147..a50bdfc15 100644 --- a/frame/base/cast/bli_castnzm.c +++ b/frame/base/cast/bli_castnzm.c @@ -54,7 +54,7 @@ static FUNCPTR_T GENARRAY2_ALL(ftypes,castnzm); // Define object-based interface. // -BLIS_EXPORT_BLIS void bli_castnzm +void bli_castnzm ( obj_t* a, obj_t* b @@ -115,7 +115,7 @@ BLIS_EXPORT_BLIS void bli_castnzm #undef GENTFUNC2 #define GENTFUNC2( ctype_a, ctype_b, cha, chb, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(cha,chb,opname) \ +void PASTEMAC2(cha,chb,opname) \ ( \ trans_t transa, \ dim_t m, \ @@ -219,7 +219,7 @@ INSERT_GENTFUNC2_MIXDP0( castnzm ) // Define object-based _check() function. // -BLIS_EXPORT_BLIS void bli_castnzm_check +void bli_castnzm_check ( obj_t* a, obj_t* b diff --git a/frame/base/cast/bli_castnzm.h b/frame/base/cast/bli_castnzm.h index bfc062485..42cfef8c0 100644 --- a/frame/base/cast/bli_castnzm.h +++ b/frame/base/cast/bli_castnzm.h @@ -65,7 +65,7 @@ INSERT_GENTPROT2_MIXDP0( castnzm ) // Prototype object-based _check() function. // -BLIS_EXPORT_BLIS void bli_castnzm_check +void bli_castnzm_check ( obj_t* a, obj_t* b diff --git a/frame/base/cast/bli_castv.c b/frame/base/cast/bli_castv.c index f07617ac8..213c960d8 100644 --- a/frame/base/cast/bli_castv.c +++ b/frame/base/cast/bli_castv.c @@ -53,7 +53,7 @@ static FUNCPTR_T GENARRAY2_ALL(ftypes,castv); // Define object-based interface. // -BLIS_EXPORT_BLIS void bli_castv +void bli_castv ( obj_t* x, obj_t* y @@ -110,7 +110,7 @@ BLIS_EXPORT_BLIS void bli_castv #undef GENTFUNC2 #define GENTFUNC2( ctype_x, ctype_y, chx, chy, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(chx,chy,opname) \ +void PASTEMAC2(chx,chy,opname) \ ( \ conj_t conjx, \ dim_t n, \ @@ -173,7 +173,7 @@ INSERT_GENTFUNC2_MIXDP0( castv ) // Define object-based _check() function. // -BLIS_EXPORT_BLIS void bli_castv_check +void bli_castv_check ( obj_t* x, obj_t* y diff --git a/frame/base/cast/bli_castv.h b/frame/base/cast/bli_castv.h index 712b83ee9..9a8261514 100644 --- a/frame/base/cast/bli_castv.h +++ b/frame/base/cast/bli_castv.h @@ -64,7 +64,7 @@ INSERT_GENTPROT2_MIXDP0( castv ) // Prototype object-based _check() function. // -BLIS_EXPORT_BLIS void bli_castv_check +void bli_castv_check ( obj_t* x, obj_t* y diff --git a/frame/base/cast/old/bli_cast_check.c b/frame/base/cast/old/bli_cast_check.c index 7b2610a92..b1184c8e4 100644 --- a/frame/base/cast/old/bli_cast_check.c +++ b/frame/base/cast/old/bli_cast_check.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_castm_check +void bli_castm_check ( obj_t* a, obj_t* b @@ -80,7 +80,7 @@ BLIS_EXPORT_BLIS void bli_castm_check bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_castv_check +void bli_castv_check ( obj_t* x, obj_t* y diff --git a/frame/base/cast/old/bli_cast_check.h b/frame/base/cast/old/bli_cast_check.h index 7b805cfce..e963c4cfc 100644 --- a/frame/base/cast/old/bli_cast_check.h +++ b/frame/base/cast/old/bli_cast_check.h @@ -32,13 +32,13 @@ */ -BLIS_EXPORT_BLIS void bli_castm_check +void bli_castm_check ( obj_t* a, obj_t* b ); -BLIS_EXPORT_BLIS void bli_castv_check +void bli_castv_check ( obj_t* x, obj_t* y diff --git a/frame/base/check/bli_obj_check.c b/frame/base/check/bli_obj_check.c index 0f1e86f40..a971fa19a 100644 --- a/frame/base/check/bli_obj_check.c +++ b/frame/base/check/bli_obj_check.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_obj_create_check( num_t dt, +void bli_obj_create_check( num_t dt, dim_t m, dim_t n, inc_t rs, @@ -53,7 +53,7 @@ BLIS_EXPORT_BLIS void bli_obj_create_check( num_t dt, bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_obj_create_without_buffer_check( num_t dt, +void bli_obj_create_without_buffer_check( num_t dt, dim_t m, dim_t n, obj_t* obj ) @@ -67,7 +67,7 @@ BLIS_EXPORT_BLIS void bli_obj_create_without_buffer_check( num_t dt, bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_obj_alloc_buffer_check( inc_t rs, +void bli_obj_alloc_buffer_check( inc_t rs, inc_t cs, inc_t is, obj_t* obj ) @@ -83,7 +83,7 @@ BLIS_EXPORT_BLIS void bli_obj_alloc_buffer_check( inc_t rs, bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_obj_attach_buffer_check( void* p, +void bli_obj_attach_buffer_check( void* p, inc_t rs, inc_t cs, inc_t is, @@ -109,7 +109,7 @@ BLIS_EXPORT_BLIS void bli_obj_attach_buffer_check( void* p, bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_obj_create_scalar_check( num_t dt, +void bli_obj_create_scalar_check( num_t dt, obj_t* obj ) { err_t e_val; @@ -121,7 +121,7 @@ BLIS_EXPORT_BLIS void bli_obj_create_scalar_check( num_t dt, bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_obj_free_check( obj_t* obj ) +void bli_obj_free_check( obj_t* obj ) { //err_t e_val; @@ -131,7 +131,7 @@ BLIS_EXPORT_BLIS void bli_obj_free_check( obj_t* obj ) //bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_obj_create_const_check( double value, obj_t* obj ) +void bli_obj_create_const_check( double value, obj_t* obj ) { err_t e_val; @@ -158,7 +158,7 @@ void bli_obj_create_const_copy_of_check( obj_t* a, obj_t* b ) } #endif -BLIS_EXPORT_BLIS void bli_dt_size_check( num_t dt ) +void bli_dt_size_check( num_t dt ) { err_t e_val; @@ -166,7 +166,7 @@ BLIS_EXPORT_BLIS void bli_dt_size_check( num_t dt ) bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_dt_string_check( num_t dt ) +void bli_dt_string_check( num_t dt ) { err_t e_val; @@ -174,7 +174,7 @@ BLIS_EXPORT_BLIS void bli_dt_string_check( num_t dt ) bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_dt_union_check( num_t dt1, num_t dt2 ) +void bli_dt_union_check( num_t dt1, num_t dt2 ) { err_t e_val; @@ -185,7 +185,7 @@ BLIS_EXPORT_BLIS void bli_dt_union_check( num_t dt1, num_t dt2 ) bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_obj_print_check( char* label, obj_t* obj ) +void bli_obj_print_check( char* label, obj_t* obj ) { err_t e_val; diff --git a/frame/base/check/bli_obj_check.h b/frame/base/check/bli_obj_check.h index 48baa4a0e..201842844 100644 --- a/frame/base/check/bli_obj_check.h +++ b/frame/base/check/bli_obj_check.h @@ -32,43 +32,43 @@ */ -BLIS_EXPORT_BLIS void bli_obj_create_check( num_t dt, +void bli_obj_create_check( num_t dt, dim_t m, dim_t n, inc_t rs, inc_t cs, obj_t* obj ); -BLIS_EXPORT_BLIS void bli_obj_create_without_buffer_check( num_t dt, +void bli_obj_create_without_buffer_check( num_t dt, dim_t m, dim_t n, obj_t* obj ); -BLIS_EXPORT_BLIS void bli_obj_alloc_buffer_check( inc_t rs, +void bli_obj_alloc_buffer_check( inc_t rs, inc_t cs, inc_t is, obj_t* obj ); -BLIS_EXPORT_BLIS void bli_obj_attach_buffer_check( void* p, +void bli_obj_attach_buffer_check( void* p, inc_t rs, inc_t cs, inc_t is, obj_t* obj ); -BLIS_EXPORT_BLIS void bli_obj_create_scalar_check( num_t dt, +void bli_obj_create_scalar_check( num_t dt, obj_t* obj ); -BLIS_EXPORT_BLIS void bli_obj_free_check( obj_t* obj ); +void bli_obj_free_check( obj_t* obj ); -BLIS_EXPORT_BLIS void bli_obj_create_const_check( double value, obj_t* obj ); +void bli_obj_create_const_check( double value, obj_t* obj ); -BLIS_EXPORT_BLIS void bli_obj_create_const_copy_of_check( obj_t* a, obj_t* b ); +void bli_obj_create_const_copy_of_check( obj_t* a, obj_t* b ); -BLIS_EXPORT_BLIS void bli_dt_size_check( num_t dt ); +void bli_dt_size_check( num_t dt ); -BLIS_EXPORT_BLIS void bli_dt_string_check( num_t dt ); +void bli_dt_string_check( num_t dt ); -BLIS_EXPORT_BLIS void bli_dt_union_check( num_t dt1, num_t dt2 ); +void bli_dt_union_check( num_t dt1, num_t dt2 ); -BLIS_EXPORT_BLIS void bli_obj_print_check( char* label, obj_t* obj ); +void bli_obj_print_check( char* label, obj_t* obj ); diff --git a/frame/base/check/bli_part_check.c b/frame/base/check/bli_part_check.c index a50a1705d..6d9aa37b9 100644 --- a/frame/base/check/bli_part_check.c +++ b/frame/base/check/bli_part_check.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_acquire_mpart_t2b_check( subpart_t requested_part, +void bli_acquire_mpart_t2b_check( subpart_t requested_part, dim_t i, dim_t b, obj_t* obj, @@ -52,7 +52,7 @@ BLIS_EXPORT_BLIS void bli_acquire_mpart_t2b_check( subpart_t requested_part, bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_acquire_mpart_l2r_check( subpart_t requested_part, +void bli_acquire_mpart_l2r_check( subpart_t requested_part, dim_t j, dim_t b, obj_t* obj, @@ -70,7 +70,7 @@ BLIS_EXPORT_BLIS void bli_acquire_mpart_l2r_check( subpart_t requested_part, bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_acquire_mpart_tl2br_check( subpart_t requested_part, +void bli_acquire_mpart_tl2br_check( subpart_t requested_part, dim_t ij, dim_t b, obj_t* obj, diff --git a/frame/base/check/bli_part_check.h b/frame/base/check/bli_part_check.h index b0e724db1..2905af0e4 100644 --- a/frame/base/check/bli_part_check.h +++ b/frame/base/check/bli_part_check.h @@ -32,19 +32,19 @@ */ -BLIS_EXPORT_BLIS void bli_acquire_mpart_t2b_check( subpart_t requested_part, +void bli_acquire_mpart_t2b_check( subpart_t requested_part, dim_t i, dim_t b, obj_t* obj, obj_t* sub_obj ); -BLIS_EXPORT_BLIS void bli_acquire_mpart_l2r_check( subpart_t requested_part, +void bli_acquire_mpart_l2r_check( subpart_t requested_part, dim_t j, dim_t b, obj_t* obj, obj_t* sub_obj ); -BLIS_EXPORT_BLIS void bli_acquire_mpart_tl2br_check( subpart_t requested_part, +void bli_acquire_mpart_tl2br_check( subpart_t requested_part, dim_t ij, dim_t b, obj_t* obj, diff --git a/frame/base/noopt/bli_dlamch.h b/frame/base/noopt/bli_dlamch.h index e23883c7e..a3fcdb1b3 100644 --- a/frame/base/noopt/bli_dlamch.h +++ b/frame/base/noopt/bli_dlamch.h @@ -32,4 +32,4 @@ */ -BLIS_EXPORT_BLIS bla_double bli_dlamch( bla_character* cmach, ftnlen cmach_len ); +bla_double bli_dlamch( bla_character* cmach, ftnlen cmach_len ); diff --git a/frame/base/noopt/bli_lsame.h b/frame/base/noopt/bli_lsame.h index 9f85f3c51..8968ab8b0 100644 --- a/frame/base/noopt/bli_lsame.h +++ b/frame/base/noopt/bli_lsame.h @@ -32,4 +32,4 @@ */ -BLIS_EXPORT_BLIS bla_logical bli_lsame( bla_character* ca, bla_character* cb, ftnlen ca_len, ftnlen cb_len ); +bla_logical bli_lsame( bla_character* ca, bla_character* cb, ftnlen ca_len, ftnlen cb_len ); diff --git a/frame/base/noopt/bli_slamch.h b/frame/base/noopt/bli_slamch.h index eee97d453..0e041c8d8 100644 --- a/frame/base/noopt/bli_slamch.h +++ b/frame/base/noopt/bli_slamch.h @@ -32,4 +32,4 @@ */ -BLIS_EXPORT_BLIS bla_real bli_slamch( bla_character* cmach, ftnlen cmach_len ); +bla_real bli_slamch( bla_character* cmach, ftnlen cmach_len ); diff --git a/frame/base/proj/bli_projm.c b/frame/base/proj/bli_projm.c index 2e458cbcd..949bc2cc9 100644 --- a/frame/base/proj/bli_projm.c +++ b/frame/base/proj/bli_projm.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_projm +void bli_projm ( obj_t* a, obj_t* b @@ -86,7 +86,7 @@ BLIS_EXPORT_BLIS void bli_projm // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_projm_check +void bli_projm_check ( obj_t* a, obj_t* b diff --git a/frame/base/proj/bli_projm.h b/frame/base/proj/bli_projm.h index e93f0cab8..e95f7f2f5 100644 --- a/frame/base/proj/bli_projm.h +++ b/frame/base/proj/bli_projm.h @@ -38,7 +38,7 @@ BLIS_EXPORT_BLIS void bli_projm obj_t* b ); -BLIS_EXPORT_BLIS void bli_projm_check +void bli_projm_check ( obj_t* a, obj_t* b diff --git a/frame/base/proj/bli_projv.c b/frame/base/proj/bli_projv.c index d27746f79..9a6587e5b 100644 --- a/frame/base/proj/bli_projv.c +++ b/frame/base/proj/bli_projv.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_projv +void bli_projv ( obj_t* x, obj_t* y @@ -86,7 +86,7 @@ BLIS_EXPORT_BLIS void bli_projv // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_projv_check +void bli_projv_check ( obj_t* x, obj_t* y diff --git a/frame/base/proj/bli_projv.h b/frame/base/proj/bli_projv.h index 2c53076a5..b738b2f97 100644 --- a/frame/base/proj/bli_projv.h +++ b/frame/base/proj/bli_projv.h @@ -38,7 +38,7 @@ BLIS_EXPORT_BLIS void bli_projv obj_t* y ); -BLIS_EXPORT_BLIS void bli_projv_check +void bli_projv_check ( obj_t* x, obj_t* y diff --git a/frame/base/proj/old/bli_proj_check.c b/frame/base/proj/old/bli_proj_check.c index 9eb3dd4c7..9ffeef653 100644 --- a/frame/base/proj/old/bli_proj_check.c +++ b/frame/base/proj/old/bli_proj_check.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_projm_check +void bli_projm_check ( obj_t* a, obj_t* b @@ -73,7 +73,7 @@ BLIS_EXPORT_BLIS void bli_projm_check bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_projv_check +void bli_projv_check ( obj_t* x, obj_t* y diff --git a/frame/base/proj/old/bli_proj_check.h b/frame/base/proj/old/bli_proj_check.h index 6d6823bd0..b32fb6d62 100644 --- a/frame/base/proj/old/bli_proj_check.h +++ b/frame/base/proj/old/bli_proj_check.h @@ -32,13 +32,13 @@ */ -BLIS_EXPORT_BLIS void bli_projm_check +void bli_projm_check ( obj_t* a, obj_t* b ); -BLIS_EXPORT_BLIS void bli_projv_check +void bli_projv_check ( obj_t* x, obj_t* y diff --git a/frame/compat/attic/bla_gbmv.c b/frame/compat/attic/bla_gbmv.c index 09f01d16f..0d903fa43 100644 --- a/frame/compat/attic/bla_gbmv.c +++ b/frame/compat/attic/bla_gbmv.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* transa, \ f77_int* m, \ f77_int* n, \ diff --git a/frame/compat/attic/bla_hbmv.c b/frame/compat/attic/bla_hbmv.c index 1bc0482c2..e34313394 100644 --- a/frame/compat/attic/bla_hbmv.c +++ b/frame/compat/attic/bla_hbmv.c @@ -41,7 +41,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_int* m, \ f77_int* k, \ diff --git a/frame/compat/attic/bla_hpmv.c b/frame/compat/attic/bla_hpmv.c index 27fee32e2..d53da2e4e 100644 --- a/frame/compat/attic/bla_hpmv.c +++ b/frame/compat/attic/bla_hpmv.c @@ -41,7 +41,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_int* m, \ ftype* alpha, \ diff --git a/frame/compat/attic/bla_hpr.c b/frame/compat/attic/bla_hpr.c index 21ec33e63..c0205f41b 100644 --- a/frame/compat/attic/bla_hpr.c +++ b/frame/compat/attic/bla_hpr.c @@ -41,7 +41,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_int* m, \ ftype_r* alpha, \ diff --git a/frame/compat/attic/bla_hpr2.c b/frame/compat/attic/bla_hpr2.c index 882db3b28..2153857d1 100644 --- a/frame/compat/attic/bla_hpr2.c +++ b/frame/compat/attic/bla_hpr2.c @@ -41,7 +41,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_int* m, \ ftype* alpha, \ diff --git a/frame/compat/attic/bla_rot.c b/frame/compat/attic/bla_rot.c index 0fdb9fa4b..5c97d3961 100644 --- a/frame/compat/attic/bla_rot.c +++ b/frame/compat/attic/bla_rot.c @@ -41,7 +41,7 @@ #undef GENTFUNCR2 #define GENTFUNCR2( ftype_xy, ftype_r, chxy, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF772(chxy,chr,blasname)( \ +void PASTEF772(chxy,chr,blasname)( \ f77_int* n, \ ftype_xy* x, f77_int* incx, \ ftype_xy* y, f77_int* incy, \ diff --git a/frame/compat/attic/bla_rotg.c b/frame/compat/attic/bla_rotg.c index 317987f8e..f45ef9810 100644 --- a/frame/compat/attic/bla_rotg.c +++ b/frame/compat/attic/bla_rotg.c @@ -41,7 +41,7 @@ #undef GENTFUNCR #define GENTFUNCR( ftype_xy, ftype_r, chxy, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(chxy,blasname)( \ +void PASTEF77(chxy,blasname)( \ ftype_xy* x, \ ftype_xy* y, \ ftype_r* c, \ diff --git a/frame/compat/attic/bla_rotm.c b/frame/compat/attic/bla_rotm.c index 3626e2897..5660f7238 100644 --- a/frame/compat/attic/bla_rotm.c +++ b/frame/compat/attic/bla_rotm.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_int* n, \ ftype* x, f77_int* incx, \ ftype* y, f77_int* incy, \ diff --git a/frame/compat/attic/bla_rotmg.c b/frame/compat/attic/bla_rotmg.c index 5a662283b..5130cb6e5 100644 --- a/frame/compat/attic/bla_rotmg.c +++ b/frame/compat/attic/bla_rotmg.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ ftype* d1, \ ftype* d2, \ ftype* x, \ diff --git a/frame/compat/attic/bla_sbmv.c b/frame/compat/attic/bla_sbmv.c index 8aca3c8e4..8aa1e63a4 100644 --- a/frame/compat/attic/bla_sbmv.c +++ b/frame/compat/attic/bla_sbmv.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_int* m, \ f77_int* k, \ diff --git a/frame/compat/attic/bla_spmv.c b/frame/compat/attic/bla_spmv.c index 12896d2d0..2e562da97 100644 --- a/frame/compat/attic/bla_spmv.c +++ b/frame/compat/attic/bla_spmv.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_int* m, \ ftype* alpha, \ diff --git a/frame/compat/attic/bla_spr.c b/frame/compat/attic/bla_spr.c index 2b4431395..7c2a9e93c 100644 --- a/frame/compat/attic/bla_spr.c +++ b/frame/compat/attic/bla_spr.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_int* m, \ ftype* alpha, \ diff --git a/frame/compat/attic/bla_spr2.c b/frame/compat/attic/bla_spr2.c index 729742c0b..08770c4f7 100644 --- a/frame/compat/attic/bla_spr2.c +++ b/frame/compat/attic/bla_spr2.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_int* m, \ ftype* alpha, \ diff --git a/frame/compat/attic/bla_tbmv.c b/frame/compat/attic/bla_tbmv.c index 159f907fa..95765d59b 100644 --- a/frame/compat/attic/bla_tbmv.c +++ b/frame/compat/attic/bla_tbmv.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_char* transa, \ f77_char* diaga, \ diff --git a/frame/compat/attic/bla_tbsv.c b/frame/compat/attic/bla_tbsv.c index dffe53375..eb4be901f 100644 --- a/frame/compat/attic/bla_tbsv.c +++ b/frame/compat/attic/bla_tbsv.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_char* transa, \ f77_char* diaga, \ diff --git a/frame/compat/attic/bla_tpmv.c b/frame/compat/attic/bla_tpmv.c index a913875ba..4abe6ba46 100644 --- a/frame/compat/attic/bla_tpmv.c +++ b/frame/compat/attic/bla_tpmv.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_char* transa, \ f77_char* diaga, \ diff --git a/frame/compat/attic/bla_tpsv.c b/frame/compat/attic/bla_tpsv.c index 63900b3ab..f1a039c66 100644 --- a/frame/compat/attic/bla_tpsv.c +++ b/frame/compat/attic/bla_tpsv.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_char* transa, \ f77_char* diaga, \ diff --git a/frame/compat/bla_amax.c b/frame/compat/bla_amax.c index ef2ac46d0..9fcce920b 100644 --- a/frame/compat/bla_amax.c +++ b/frame/compat/bla_amax.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype_x, chx, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS f77_int PASTEF772(i,chx,blasname) \ +f77_int PASTEF772(i,chx,blasname) \ ( \ const f77_int* n, \ const ftype_x* x, const f77_int* incx \ diff --git a/frame/compat/bla_asum.c b/frame/compat/bla_asum.c index 920dd823d..8e71bfa8c 100644 --- a/frame/compat/bla_asum.c +++ b/frame/compat/bla_asum.c @@ -41,7 +41,7 @@ #undef GENTFUNCR2 #define GENTFUNCR2( ftype_x, ftype_r, chx, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS ftype_r PASTEF772(chr,chx,blasname) \ +ftype_r PASTEF772(chr,chx,blasname) \ ( \ const f77_int* n, \ const ftype_x* x, const f77_int* incx \ diff --git a/frame/compat/bla_axpy.c b/frame/compat/bla_axpy.c index abe4c0da7..e3c67fd55 100644 --- a/frame/compat/bla_axpy.c +++ b/frame/compat/bla_axpy.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_int* n, \ const ftype* alpha, \ diff --git a/frame/compat/bla_copy.c b/frame/compat/bla_copy.c index 2d0f50ca3..d9d3b7cce 100644 --- a/frame/compat/bla_copy.c +++ b/frame/compat/bla_copy.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_int* n, \ const ftype* x, const f77_int* incx, \ diff --git a/frame/compat/bla_dot.c b/frame/compat/bla_dot.c index 453c7aec8..dbab039d1 100644 --- a/frame/compat/bla_dot.c +++ b/frame/compat/bla_dot.c @@ -41,7 +41,7 @@ #undef GENTFUNCDOT #define GENTFUNCDOT( ftype, ch, chc, blis_conjx, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS ftype PASTEF772(ch,blasname,chc) \ +ftype PASTEF772(ch,blasname,chc) \ ( \ const f77_int* n, \ const ftype* x, const f77_int* incx, \ @@ -93,7 +93,7 @@ INSERT_GENTFUNCDOT_BLAS( dot, dotv ) // Input vectors stored in single precision, computed in double precision, // with result returned in single precision. -BLIS_EXPORT_BLAS float PASTEF77(sd,sdot) +float PASTEF77(sd,sdot) ( const f77_int* n, const float* sb, @@ -109,7 +109,7 @@ BLIS_EXPORT_BLAS float PASTEF77(sd,sdot) // Input vectors stored in single precision, computed in double precision, // with result returned in double precision. -BLIS_EXPORT_BLAS double PASTEF77(d,sdot) +double PASTEF77(d,sdot) ( const f77_int* n, const float* x, const f77_int* incx, diff --git a/frame/compat/bla_gemm.c b/frame/compat/bla_gemm.c index 24311d6b6..e04e48cf5 100644 --- a/frame/compat/bla_gemm.c +++ b/frame/compat/bla_gemm.c @@ -45,7 +45,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* transa, \ const f77_char* transb, \ diff --git a/frame/compat/bla_gemv.c b/frame/compat/bla_gemv.c index b4f27177d..85c65dde4 100644 --- a/frame/compat/bla_gemv.c +++ b/frame/compat/bla_gemv.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* transa, \ const f77_int* m, \ diff --git a/frame/compat/bla_ger.c b/frame/compat/bla_ger.c index 7113b73bd..db4f76f18 100644 --- a/frame/compat/bla_ger.c +++ b/frame/compat/bla_ger.c @@ -41,7 +41,7 @@ #undef GENTFUNCDOT #define GENTFUNCDOT( ftype, ch, chc, blis_conjy, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF772(ch,blasname,chc) \ +void PASTEF772(ch,blasname,chc) \ ( \ const f77_int* m, \ const f77_int* n, \ diff --git a/frame/compat/bla_hemm.c b/frame/compat/bla_hemm.c index 9c7003a9b..79ccd9a2c 100644 --- a/frame/compat/bla_hemm.c +++ b/frame/compat/bla_hemm.c @@ -45,7 +45,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* side, \ const f77_char* uploa, \ diff --git a/frame/compat/bla_hemv.c b/frame/compat/bla_hemv.c index fa488b052..944468278 100644 --- a/frame/compat/bla_hemv.c +++ b/frame/compat/bla_hemv.c @@ -41,7 +41,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploa, \ const f77_int* m, \ diff --git a/frame/compat/bla_her.c b/frame/compat/bla_her.c index a80d1b364..ade3cbdda 100644 --- a/frame/compat/bla_her.c +++ b/frame/compat/bla_her.c @@ -41,7 +41,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploa, \ const f77_int* m, \ diff --git a/frame/compat/bla_her2.c b/frame/compat/bla_her2.c index 1286e21bc..e3ed4ce31 100644 --- a/frame/compat/bla_her2.c +++ b/frame/compat/bla_her2.c @@ -41,7 +41,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploa, \ const f77_int* m, \ diff --git a/frame/compat/bla_her2k.c b/frame/compat/bla_her2k.c index d5272bbd6..566cd41fb 100644 --- a/frame/compat/bla_her2k.c +++ b/frame/compat/bla_her2k.c @@ -45,7 +45,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploc, \ const f77_char* transa, \ diff --git a/frame/compat/bla_herk.c b/frame/compat/bla_herk.c index d4223fdcd..c919be9d7 100644 --- a/frame/compat/bla_herk.c +++ b/frame/compat/bla_herk.c @@ -45,7 +45,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploc, \ const f77_char* transa, \ diff --git a/frame/compat/bla_nrm2.c b/frame/compat/bla_nrm2.c index 79fa9116e..0b41a0673 100644 --- a/frame/compat/bla_nrm2.c +++ b/frame/compat/bla_nrm2.c @@ -41,7 +41,7 @@ #undef GENTFUNCR2 #define GENTFUNCR2( ftype_x, ftype_r, chx, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS ftype_r PASTEF772(chr,chx,blasname) \ +ftype_r PASTEF772(chr,chx,blasname) \ ( \ const f77_int* n, \ const ftype_x* x, const f77_int* incx \ diff --git a/frame/compat/bla_scal.c b/frame/compat/bla_scal.c index 9dc3a89c6..6c2a3c3db 100644 --- a/frame/compat/bla_scal.c +++ b/frame/compat/bla_scal.c @@ -41,7 +41,7 @@ #undef GENTFUNCSCAL #define GENTFUNCSCAL( ftype_x, ftype_a, chx, cha, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF772(chx,cha,blasname) \ +void PASTEF772(chx,cha,blasname) \ ( \ const f77_int* n, \ const ftype_a* alpha, \ diff --git a/frame/compat/bla_swap.c b/frame/compat/bla_swap.c index b2619510e..72bc9d6d5 100644 --- a/frame/compat/bla_swap.c +++ b/frame/compat/bla_swap.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_int* n, \ ftype* x, const f77_int* incx, \ diff --git a/frame/compat/bla_symm.c b/frame/compat/bla_symm.c index b206d9976..3711b34c9 100644 --- a/frame/compat/bla_symm.c +++ b/frame/compat/bla_symm.c @@ -45,7 +45,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* side, \ const f77_char* uploa, \ diff --git a/frame/compat/bla_symv.c b/frame/compat/bla_symv.c index 76ebd07e5..79076194c 100644 --- a/frame/compat/bla_symv.c +++ b/frame/compat/bla_symv.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploa, \ const f77_int* m, \ diff --git a/frame/compat/bla_syr.c b/frame/compat/bla_syr.c index 3abcca28a..0ed4aebb1 100644 --- a/frame/compat/bla_syr.c +++ b/frame/compat/bla_syr.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploa, \ const f77_int* m, \ diff --git a/frame/compat/bla_syr2.c b/frame/compat/bla_syr2.c index 302864b8f..dbae67027 100644 --- a/frame/compat/bla_syr2.c +++ b/frame/compat/bla_syr2.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploa, \ const f77_int* m, \ diff --git a/frame/compat/bla_syr2k.c b/frame/compat/bla_syr2k.c index bd41457d9..a977820a6 100644 --- a/frame/compat/bla_syr2k.c +++ b/frame/compat/bla_syr2k.c @@ -45,7 +45,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploc, \ const f77_char* transa, \ diff --git a/frame/compat/bla_syrk.c b/frame/compat/bla_syrk.c index 0c24c1f8e..5bc2d356a 100644 --- a/frame/compat/bla_syrk.c +++ b/frame/compat/bla_syrk.c @@ -45,7 +45,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploc, \ const f77_char* transa, \ diff --git a/frame/compat/bla_trmm.c b/frame/compat/bla_trmm.c index 7f035b1cc..7ca20da74 100644 --- a/frame/compat/bla_trmm.c +++ b/frame/compat/bla_trmm.c @@ -45,7 +45,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* side, \ const f77_char* uploa, \ diff --git a/frame/compat/bla_trmv.c b/frame/compat/bla_trmv.c index 783d975e7..ffb31b12f 100644 --- a/frame/compat/bla_trmv.c +++ b/frame/compat/bla_trmv.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploa, \ const f77_char* transa, \ diff --git a/frame/compat/bla_trsm.c b/frame/compat/bla_trsm.c index 59705edbe..0e1c2e329 100644 --- a/frame/compat/bla_trsm.c +++ b/frame/compat/bla_trsm.c @@ -45,7 +45,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* side, \ const f77_char* uploa, \ diff --git a/frame/compat/bla_trsv.c b/frame/compat/bla_trsv.c index 2717b1940..445059720 100644 --- a/frame/compat/bla_trsv.c +++ b/frame/compat/bla_trsv.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploa, \ const f77_char* transa, \ diff --git a/frame/compat/blis/thread/b77_thread.c b/frame/compat/blis/thread/b77_thread.c index 28ba737aa..c864339a3 100644 --- a/frame/compat/blis/thread/b77_thread.c +++ b/frame/compat/blis/thread/b77_thread.c @@ -39,7 +39,7 @@ // Define Fortran-compatible BLIS interfaces. // -BLIS_EXPORT_BLAS void PASTEF770(bli_thread_set_ways) +void PASTEF770(bli_thread_set_ways) ( const f77_int* jc, const f77_int* pc, @@ -71,7 +71,7 @@ BLIS_EXPORT_BLAS void PASTEF770(bli_thread_set_ways) bli_finalize_auto(); } -BLIS_EXPORT_BLAS void PASTEF770(bli_thread_set_num_threads) +void PASTEF770(bli_thread_set_num_threads) ( const f77_int* nt ) diff --git a/frame/compat/cblas/f77_sub/f77_amax_sub.c b/frame/compat/cblas/f77_sub/f77_amax_sub.c index 3fa18894c..cc26196d7 100644 --- a/frame/compat/cblas/f77_sub/f77_amax_sub.c +++ b/frame/compat/cblas/f77_sub/f77_amax_sub.c @@ -42,7 +42,7 @@ #undef GENTFUNC #define GENTFUNC( ftype_x, chx, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF773(i,chx,blasname,sub) \ +void PASTEF773(i,chx,blasname,sub) \ ( \ const f77_int* n, \ const ftype_x* x, const f77_int* incx, \ diff --git a/frame/compat/cblas/f77_sub/f77_asum_sub.c b/frame/compat/cblas/f77_sub/f77_asum_sub.c index f0d4abe43..f1cb35b0c 100644 --- a/frame/compat/cblas/f77_sub/f77_asum_sub.c +++ b/frame/compat/cblas/f77_sub/f77_asum_sub.c @@ -42,7 +42,7 @@ #undef GENTFUNCR2 #define GENTFUNCR2( ftype_x, ftype_r, chx, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF773(chr,chx,blasname,sub) \ +void PASTEF773(chr,chx,blasname,sub) \ ( \ const f77_int* n, \ const ftype_x* x, const f77_int* incx, \ diff --git a/frame/compat/cblas/f77_sub/f77_dot_sub.c b/frame/compat/cblas/f77_sub/f77_dot_sub.c index 0dbd5a7e4..6c06133f1 100644 --- a/frame/compat/cblas/f77_sub/f77_dot_sub.c +++ b/frame/compat/cblas/f77_sub/f77_dot_sub.c @@ -42,7 +42,7 @@ #undef GENTFUNCDOT #define GENTFUNCDOT( ftype, ch, chc, blis_conjx, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF773(ch,blasname,chc,sub) \ +void PASTEF773(ch,blasname,chc,sub) \ ( \ const f77_int* n, \ const ftype* x, const f77_int* incx, \ @@ -66,7 +66,7 @@ INSERT_GENTFUNCDOT_BLAS( dot, NULL ) // Input vectors stored in single precision, computed in double precision, // with result returned in single precision. -BLIS_EXPORT_BLAS void PASTEF772(sds,dot,sub) +void PASTEF772(sds,dot,sub) ( const f77_int* n, const float* sb, @@ -86,7 +86,7 @@ BLIS_EXPORT_BLAS void PASTEF772(sds,dot,sub) // Input vectors stored in single precision, computed in double precision, // with result returned in double precision. -BLIS_EXPORT_BLAS void PASTEF772(ds,dot,sub) +void PASTEF772(ds,dot,sub) ( const f77_int* n, const float* x, const f77_int* incx, diff --git a/frame/compat/cblas/f77_sub/f77_nrm2_sub.c b/frame/compat/cblas/f77_sub/f77_nrm2_sub.c index d3b75a5fe..54ce1a5b4 100644 --- a/frame/compat/cblas/f77_sub/f77_nrm2_sub.c +++ b/frame/compat/cblas/f77_sub/f77_nrm2_sub.c @@ -42,7 +42,7 @@ #undef GENTFUNCR2 #define GENTFUNCR2( ftype_x, ftype_r, chx, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF773(chr,chx,blasname,sub) \ +void PASTEF773(chr,chx,blasname,sub) \ ( \ const f77_int* n, \ const ftype_x* x, const f77_int* incx, \ diff --git a/frame/compat/cblas/src/cblas_caxpy.c b/frame/compat/cblas/src/cblas_caxpy.c index fe63ecc5f..748d146c6 100644 --- a/frame/compat/cblas/src/cblas_caxpy.c +++ b/frame/compat/cblas/src/cblas_caxpy.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_caxpy( f77_int N, const void *alpha, const void *X, +void cblas_caxpy( f77_int N, const void *alpha, const void *X, f77_int incX, void *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_ccopy.c b/frame/compat/cblas/src/cblas_ccopy.c index 3334a0c6b..8871680b1 100644 --- a/frame/compat/cblas/src/cblas_ccopy.c +++ b/frame/compat/cblas/src/cblas_ccopy.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ccopy( f77_int N, const void *X, +void cblas_ccopy( f77_int N, const void *X, f77_int incX, void *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_cdotc_sub.c b/frame/compat/cblas/src/cblas_cdotc_sub.c index 8ba14bf96..d0800ca4f 100644 --- a/frame/compat/cblas/src/cblas_cdotc_sub.c +++ b/frame/compat/cblas/src/cblas_cdotc_sub.c @@ -11,7 +11,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cdotc_sub( f77_int N, const void *X, f77_int incX, +void cblas_cdotc_sub( f77_int N, const void *X, f77_int incX, const void *Y, f77_int incY,void *dotc) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_cdotu_sub.c b/frame/compat/cblas/src/cblas_cdotu_sub.c index af5d14a55..fd14f5bb4 100644 --- a/frame/compat/cblas/src/cblas_cdotu_sub.c +++ b/frame/compat/cblas/src/cblas_cdotu_sub.c @@ -11,7 +11,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cdotu_sub( f77_int N, const void *X, +void cblas_cdotu_sub( f77_int N, const void *X, f77_int incX, const void *Y, f77_int incY,void *dotu) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_cgbmv.c b/frame/compat/cblas/src/cblas_cgbmv.c index 1be1c3838..74872186e 100644 --- a/frame/compat/cblas/src/cblas_cgbmv.c +++ b/frame/compat/cblas/src/cblas_cgbmv.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cgbmv(enum CBLAS_ORDER order, +void cblas_cgbmv(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N, f77_int KL, f77_int KU, const void *alpha, const void *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_cgemm.c b/frame/compat/cblas/src/cblas_cgemm.c index 343140922..5680a19f6 100644 --- a/frame/compat/cblas/src/cblas_cgemm.c +++ b/frame/compat/cblas/src/cblas_cgemm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, +void cblas_cgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANSPOSE TransB, f77_int M, f77_int N, f77_int K, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, diff --git a/frame/compat/cblas/src/cblas_cgemv.c b/frame/compat/cblas/src/cblas_cgemv.c index 3203b4d6e..e5d226262 100644 --- a/frame/compat/cblas/src/cblas_cgemv.c +++ b/frame/compat/cblas/src/cblas_cgemv.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cgemv(enum CBLAS_ORDER order, +void cblas_cgemv(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, const void *X, f77_int incX, const void *beta, diff --git a/frame/compat/cblas/src/cblas_cgerc.c b/frame/compat/cblas/src/cblas_cgerc.c index 4f84d1c24..dc582dd04 100644 --- a/frame/compat/cblas/src/cblas_cgerc.c +++ b/frame/compat/cblas/src/cblas_cgerc.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cgerc(enum CBLAS_ORDER order, f77_int M, f77_int N, +void cblas_cgerc(enum CBLAS_ORDER order, f77_int M, f77_int N, const void *alpha, const void *X, f77_int incX, const void *Y, f77_int incY, void *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_cgeru.c b/frame/compat/cblas/src/cblas_cgeru.c index c494d24d7..6339ef08a 100644 --- a/frame/compat/cblas/src/cblas_cgeru.c +++ b/frame/compat/cblas/src/cblas_cgeru.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cgeru(enum CBLAS_ORDER order, f77_int M, f77_int N, +void cblas_cgeru(enum CBLAS_ORDER order, f77_int M, f77_int N, const void *alpha, const void *X, f77_int incX, const void *Y, f77_int incY, void *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_chbmv.c b/frame/compat/cblas/src/cblas_chbmv.c index d2f128dcd..463f8ef25 100644 --- a/frame/compat/cblas/src/cblas_chbmv.c +++ b/frame/compat/cblas/src/cblas_chbmv.c @@ -11,7 +11,7 @@ #include "cblas_f77.h" #include #include -void BLIS_EXPORT_BLAS cblas_chbmv(enum CBLAS_ORDER order, +void cblas_chbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,f77_int N,f77_int K, const void *alpha, const void *A, f77_int lda, const void *X, f77_int incX, const void *beta, diff --git a/frame/compat/cblas/src/cblas_chemm.c b/frame/compat/cblas/src/cblas_chemm.c index f2e772edb..e8e1e374d 100644 --- a/frame/compat/cblas/src/cblas_chemm.c +++ b/frame/compat/cblas/src/cblas_chemm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_chemm(enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, +void cblas_chemm(enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, const void *beta, diff --git a/frame/compat/cblas/src/cblas_chemv.c b/frame/compat/cblas/src/cblas_chemv.c index 949ece77c..b1df3ef12 100644 --- a/frame/compat/cblas/src/cblas_chemv.c +++ b/frame/compat/cblas/src/cblas_chemv.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_chemv(enum CBLAS_ORDER order, +void cblas_chemv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const void *alpha, const void *A, f77_int lda, const void *X, f77_int incX, const void *beta, diff --git a/frame/compat/cblas/src/cblas_cher.c b/frame/compat/cblas/src/cblas_cher.c index 01f7ccc69..05e1c684a 100644 --- a/frame/compat/cblas/src/cblas_cher.c +++ b/frame/compat/cblas/src/cblas_cher.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cher(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_cher(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, float alpha, const void *X, f77_int incX ,void *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_cher2.c b/frame/compat/cblas/src/cblas_cher2.c index 1eb711f33..9b82423d6 100644 --- a/frame/compat/cblas/src/cblas_cher2.c +++ b/frame/compat/cblas/src/cblas_cher2.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cher2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_cher2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const void *alpha, const void *X, f77_int incX, const void *Y, f77_int incY, void *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_cher2k.c b/frame/compat/cblas/src/cblas_cher2k.c index 6e3e3b01d..fcd1c4b01 100644 --- a/frame/compat/cblas/src/cblas_cher2k.c +++ b/frame/compat/cblas/src/cblas_cher2k.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cher2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_cher2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, float beta, diff --git a/frame/compat/cblas/src/cblas_cherk.c b/frame/compat/cblas/src/cblas_cherk.c index 8adf3c2b9..80bc4a7a8 100644 --- a/frame/compat/cblas/src/cblas_cherk.c +++ b/frame/compat/cblas/src/cblas_cherk.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cherk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_cherk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, float alpha, const void *A, f77_int lda, float beta, void *C, f77_int ldc) diff --git a/frame/compat/cblas/src/cblas_chpmv.c b/frame/compat/cblas/src/cblas_chpmv.c index 79c72b090..5857070a0 100644 --- a/frame/compat/cblas/src/cblas_chpmv.c +++ b/frame/compat/cblas/src/cblas_chpmv.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_chpmv(enum CBLAS_ORDER order, +void cblas_chpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,f77_int N, const void *alpha, const void *AP, const void *X, f77_int incX, const void *beta, diff --git a/frame/compat/cblas/src/cblas_chpr.c b/frame/compat/cblas/src/cblas_chpr.c index 031b275a2..cd2f5baa3 100644 --- a/frame/compat/cblas/src/cblas_chpr.c +++ b/frame/compat/cblas/src/cblas_chpr.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_chpr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_chpr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, float alpha, const void *X, f77_int incX, void *A) { diff --git a/frame/compat/cblas/src/cblas_chpr2.c b/frame/compat/cblas/src/cblas_chpr2.c index 67e1a6aaa..f696083ab 100644 --- a/frame/compat/cblas/src/cblas_chpr2.c +++ b/frame/compat/cblas/src/cblas_chpr2.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_chpr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_chpr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N,const void *alpha, const void *X, f77_int incX,const void *Y, f77_int incY, void *Ap) diff --git a/frame/compat/cblas/src/cblas_cscal.c b/frame/compat/cblas/src/cblas_cscal.c index 5e3aaff2b..966b93ae9 100644 --- a/frame/compat/cblas/src/cblas_cscal.c +++ b/frame/compat/cblas/src/cblas_cscal.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cscal( f77_int N, const void *alpha, void *X, +void cblas_cscal( f77_int N, const void *alpha, void *X, f77_int incX) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_csscal.c b/frame/compat/cblas/src/cblas_csscal.c index f40e88976..b2940d7d4 100644 --- a/frame/compat/cblas/src/cblas_csscal.c +++ b/frame/compat/cblas/src/cblas_csscal.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_csscal( f77_int N, float alpha, void *X, +void cblas_csscal( f77_int N, float alpha, void *X, f77_int incX) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_cswap.c b/frame/compat/cblas/src/cblas_cswap.c index d5b166e5e..a5713a24c 100644 --- a/frame/compat/cblas/src/cblas_cswap.c +++ b/frame/compat/cblas/src/cblas_cswap.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cswap( f77_int N, void *X, f77_int incX, void *Y, +void cblas_cswap( f77_int N, void *X, f77_int incX, void *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_csymm.c b/frame/compat/cblas/src/cblas_csymm.c index 9d2d34a3f..22cb266e4 100644 --- a/frame/compat/cblas/src/cblas_csymm.c +++ b/frame/compat/cblas/src/cblas_csymm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_csymm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_csymm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, const void *beta, diff --git a/frame/compat/cblas/src/cblas_csyr2k.c b/frame/compat/cblas/src/cblas_csyr2k.c index a6f32622e..c47072d74 100644 --- a/frame/compat/cblas/src/cblas_csyr2k.c +++ b/frame/compat/cblas/src/cblas_csyr2k.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_csyr2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_csyr2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, const void *beta, diff --git a/frame/compat/cblas/src/cblas_csyrk.c b/frame/compat/cblas/src/cblas_csyrk.c index 7a085e45c..94d9e2a8f 100644 --- a/frame/compat/cblas/src/cblas_csyrk.c +++ b/frame/compat/cblas/src/cblas_csyrk.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_csyrk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_csyrk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, const void *alpha, const void *A, f77_int lda, const void *beta, void *C, f77_int ldc) diff --git a/frame/compat/cblas/src/cblas_ctbmv.c b/frame/compat/cblas/src/cblas_ctbmv.c index 3689facfb..8dd2499c7 100644 --- a/frame/compat/cblas/src/cblas_ctbmv.c +++ b/frame/compat/cblas/src/cblas_ctbmv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ctbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ctbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, f77_int K, const void *A, f77_int lda, void *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_ctbsv.c b/frame/compat/cblas/src/cblas_ctbsv.c index 2f4832922..d9dfdcd22 100644 --- a/frame/compat/cblas/src/cblas_ctbsv.c +++ b/frame/compat/cblas/src/cblas_ctbsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ctbsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ctbsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, f77_int K, const void *A, f77_int lda, void *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_ctpmv.c b/frame/compat/cblas/src/cblas_ctpmv.c index 6a384baa1..8f9cb33a4 100644 --- a/frame/compat/cblas/src/cblas_ctpmv.c +++ b/frame/compat/cblas/src/cblas_ctpmv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ctpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ctpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const void *Ap, void *X, f77_int incX) { diff --git a/frame/compat/cblas/src/cblas_ctpsv.c b/frame/compat/cblas/src/cblas_ctpsv.c index e76a1ba4d..77d5821e3 100644 --- a/frame/compat/cblas/src/cblas_ctpsv.c +++ b/frame/compat/cblas/src/cblas_ctpsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ctpsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ctpsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const void *Ap, void *X, f77_int incX) { diff --git a/frame/compat/cblas/src/cblas_ctrmm.c b/frame/compat/cblas/src/cblas_ctrmm.c index 5335bf893..7eb621f3b 100644 --- a/frame/compat/cblas/src/cblas_ctrmm.c +++ b/frame/compat/cblas/src/cblas_ctrmm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ctrmm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_ctrmm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_ctrmv.c b/frame/compat/cblas/src/cblas_ctrmv.c index f546a6a6f..756720207 100644 --- a/frame/compat/cblas/src/cblas_ctrmv.c +++ b/frame/compat/cblas/src/cblas_ctrmv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ctrmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ctrmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const void *A, f77_int lda, void *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_ctrsm.c b/frame/compat/cblas/src/cblas_ctrsm.c index 04b1f0f71..f6e016a21 100644 --- a/frame/compat/cblas/src/cblas_ctrsm.c +++ b/frame/compat/cblas/src/cblas_ctrsm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ctrsm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_ctrsm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_ctrsv.c b/frame/compat/cblas/src/cblas_ctrsv.c index e0824dd98..539d97e55 100644 --- a/frame/compat/cblas/src/cblas_ctrsv.c +++ b/frame/compat/cblas/src/cblas_ctrsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ctrsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ctrsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const void *A, f77_int lda, void *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_daxpy.c b/frame/compat/cblas/src/cblas_daxpy.c index 16032c5f6..5a3d08d6a 100644 --- a/frame/compat/cblas/src/cblas_daxpy.c +++ b/frame/compat/cblas/src/cblas_daxpy.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_daxpy( f77_int N, double alpha, const double *X, +void cblas_daxpy( f77_int N, double alpha, const double *X, f77_int incX, double *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_dcopy.c b/frame/compat/cblas/src/cblas_dcopy.c index 27bf873c0..186c3d1d6 100644 --- a/frame/compat/cblas/src/cblas_dcopy.c +++ b/frame/compat/cblas/src/cblas_dcopy.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dcopy( f77_int N, const double *X, +void cblas_dcopy( f77_int N, const double *X, f77_int incX, double *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_dgbmv.c b/frame/compat/cblas/src/cblas_dgbmv.c index 610eaf7d5..f0a19d5e8 100644 --- a/frame/compat/cblas/src/cblas_dgbmv.c +++ b/frame/compat/cblas/src/cblas_dgbmv.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dgbmv(enum CBLAS_ORDER order, +void cblas_dgbmv(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N, f77_int KL, f77_int KU, double alpha, const double *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_dgemm.c b/frame/compat/cblas/src/cblas_dgemm.c index f27d4a835..479a15abd 100644 --- a/frame/compat/cblas/src/cblas_dgemm.c +++ b/frame/compat/cblas/src/cblas_dgemm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, +void cblas_dgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANSPOSE TransB, f77_int M, f77_int N, f77_int K, double alpha, const double *A, f77_int lda, const double *B, f77_int ldb, diff --git a/frame/compat/cblas/src/cblas_dgemv.c b/frame/compat/cblas/src/cblas_dgemv.c index f781e66a2..025523b2c 100644 --- a/frame/compat/cblas/src/cblas_dgemv.c +++ b/frame/compat/cblas/src/cblas_dgemv.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dgemv(enum CBLAS_ORDER order, +void cblas_dgemv(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N, double alpha, const double *A, f77_int lda, const double *X, f77_int incX, double beta, diff --git a/frame/compat/cblas/src/cblas_dger.c b/frame/compat/cblas/src/cblas_dger.c index b178f0ceb..366d393b6 100644 --- a/frame/compat/cblas/src/cblas_dger.c +++ b/frame/compat/cblas/src/cblas_dger.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dger(enum CBLAS_ORDER order, f77_int M, f77_int N, +void cblas_dger(enum CBLAS_ORDER order, f77_int M, f77_int N, double alpha, const double *X, f77_int incX, const double *Y, f77_int incY, double *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_drot.c b/frame/compat/cblas/src/cblas_drot.c index 314e4972e..b5dac7cad 100644 --- a/frame/compat/cblas/src/cblas_drot.c +++ b/frame/compat/cblas/src/cblas_drot.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_drot(f77_int N, double *X, f77_int incX, +void cblas_drot(f77_int N, double *X, f77_int incX, double *Y, f77_int incY, const double c, const double s) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_drotg.c b/frame/compat/cblas/src/cblas_drotg.c index fc174084c..c509bafc7 100644 --- a/frame/compat/cblas/src/cblas_drotg.c +++ b/frame/compat/cblas/src/cblas_drotg.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_drotg( double *a, double *b, double *c, double *s) +void cblas_drotg( double *a, double *b, double *c, double *s) { F77_drotg(a,b,c,s); } diff --git a/frame/compat/cblas/src/cblas_drotm.c b/frame/compat/cblas/src/cblas_drotm.c index 1b05592df..f0ae348dd 100644 --- a/frame/compat/cblas/src/cblas_drotm.c +++ b/frame/compat/cblas/src/cblas_drotm.c @@ -2,7 +2,7 @@ #ifdef BLIS_ENABLE_CBLAS #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_drotm( f77_int N, double *X, f77_int incX, double *Y, +void cblas_drotm( f77_int N, double *X, f77_int incX, double *Y, f77_int incY, const double *P) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_drotmg.c b/frame/compat/cblas/src/cblas_drotmg.c index ebbea6573..6b969bf87 100644 --- a/frame/compat/cblas/src/cblas_drotmg.c +++ b/frame/compat/cblas/src/cblas_drotmg.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_drotmg( double *d1, double *d2, double *b1, +void cblas_drotmg( double *d1, double *d2, double *b1, const double b2, double *p) { F77_drotmg(d1,d2,b1,&b2,p); diff --git a/frame/compat/cblas/src/cblas_dsbmv.c b/frame/compat/cblas/src/cblas_dsbmv.c index af04d90a0..8398dd6ce 100644 --- a/frame/compat/cblas/src/cblas_dsbmv.c +++ b/frame/compat/cblas/src/cblas_dsbmv.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dsbmv(enum CBLAS_ORDER order, +void cblas_dsbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, f77_int K, double alpha, const double *A, f77_int lda, const double *X, f77_int incX, double beta, diff --git a/frame/compat/cblas/src/cblas_dscal.c b/frame/compat/cblas/src/cblas_dscal.c index 6c5bda1b9..bb6da3f67 100644 --- a/frame/compat/cblas/src/cblas_dscal.c +++ b/frame/compat/cblas/src/cblas_dscal.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dscal( f77_int N, double alpha, double *X, +void cblas_dscal( f77_int N, double alpha, double *X, f77_int incX) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_dspmv.c b/frame/compat/cblas/src/cblas_dspmv.c index c56c4125d..b8e95cfa8 100644 --- a/frame/compat/cblas/src/cblas_dspmv.c +++ b/frame/compat/cblas/src/cblas_dspmv.c @@ -12,7 +12,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dspmv(enum CBLAS_ORDER order, +void cblas_dspmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, double alpha, const double *AP, const double *X, f77_int incX, double beta, diff --git a/frame/compat/cblas/src/cblas_dspr.c b/frame/compat/cblas/src/cblas_dspr.c index 21a2da21c..9156f7a83 100644 --- a/frame/compat/cblas/src/cblas_dspr.c +++ b/frame/compat/cblas/src/cblas_dspr.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dspr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dspr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, double alpha, const double *X, f77_int incX, double *Ap) { diff --git a/frame/compat/cblas/src/cblas_dspr2.c b/frame/compat/cblas/src/cblas_dspr2.c index 0fd33c080..8fade8319 100644 --- a/frame/compat/cblas/src/cblas_dspr2.c +++ b/frame/compat/cblas/src/cblas_dspr2.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dspr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dspr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const double alpha, const double *X, f77_int incX, const double *Y, f77_int incY, double *A) { diff --git a/frame/compat/cblas/src/cblas_dswap.c b/frame/compat/cblas/src/cblas_dswap.c index ec676d9ca..e204baea0 100644 --- a/frame/compat/cblas/src/cblas_dswap.c +++ b/frame/compat/cblas/src/cblas_dswap.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dswap( f77_int N, double *X, f77_int incX, double *Y, +void cblas_dswap( f77_int N, double *X, f77_int incX, double *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_dsymm.c b/frame/compat/cblas/src/cblas_dsymm.c index 119f7a419..81bc52268 100644 --- a/frame/compat/cblas/src/cblas_dsymm.c +++ b/frame/compat/cblas/src/cblas_dsymm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dsymm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_dsymm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, f77_int M, f77_int N, double alpha, const double *A, f77_int lda, const double *B, f77_int ldb, double beta, diff --git a/frame/compat/cblas/src/cblas_dsymv.c b/frame/compat/cblas/src/cblas_dsymv.c index 6e3ddc1f4..d0c2aa642 100644 --- a/frame/compat/cblas/src/cblas_dsymv.c +++ b/frame/compat/cblas/src/cblas_dsymv.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dsymv(enum CBLAS_ORDER order, +void cblas_dsymv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, double alpha, const double *A, f77_int lda, const double *X, f77_int incX, double beta, diff --git a/frame/compat/cblas/src/cblas_dsyr.c b/frame/compat/cblas/src/cblas_dsyr.c index 69eec6ff4..f6dd66c75 100644 --- a/frame/compat/cblas/src/cblas_dsyr.c +++ b/frame/compat/cblas/src/cblas_dsyr.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dsyr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dsyr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const double alpha, const double *X, f77_int incX, double *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_dsyr2.c b/frame/compat/cblas/src/cblas_dsyr2.c index b43ce4c6a..c0d773939 100644 --- a/frame/compat/cblas/src/cblas_dsyr2.c +++ b/frame/compat/cblas/src/cblas_dsyr2.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dsyr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dsyr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const double alpha, const double *X, f77_int incX, const double *Y, f77_int incY, double *A, f77_int lda) diff --git a/frame/compat/cblas/src/cblas_dsyr2k.c b/frame/compat/cblas/src/cblas_dsyr2k.c index 45b12a12c..2c35b9929 100644 --- a/frame/compat/cblas/src/cblas_dsyr2k.c +++ b/frame/compat/cblas/src/cblas_dsyr2k.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dsyr2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_dsyr2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, double alpha, const double *A, f77_int lda, const double *B, f77_int ldb, double beta, diff --git a/frame/compat/cblas/src/cblas_dsyrk.c b/frame/compat/cblas/src/cblas_dsyrk.c index 4a71e3b40..8a7ca1651 100644 --- a/frame/compat/cblas/src/cblas_dsyrk.c +++ b/frame/compat/cblas/src/cblas_dsyrk.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dsyrk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_dsyrk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, double alpha, const double *A, f77_int lda, double beta, double *C, f77_int ldc) diff --git a/frame/compat/cblas/src/cblas_dtbmv.c b/frame/compat/cblas/src/cblas_dtbmv.c index 702bfca63..6502c1c22 100644 --- a/frame/compat/cblas/src/cblas_dtbmv.c +++ b/frame/compat/cblas/src/cblas_dtbmv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dtbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dtbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, f77_int K, const double *A, f77_int lda, double *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_dtbsv.c b/frame/compat/cblas/src/cblas_dtbsv.c index 2817ff3d2..aae08e956 100644 --- a/frame/compat/cblas/src/cblas_dtbsv.c +++ b/frame/compat/cblas/src/cblas_dtbsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dtbsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dtbsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, f77_int K, const double *A, f77_int lda, double *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_dtpmv.c b/frame/compat/cblas/src/cblas_dtpmv.c index 4e74b95f6..b72b4ed7e 100644 --- a/frame/compat/cblas/src/cblas_dtpmv.c +++ b/frame/compat/cblas/src/cblas_dtpmv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dtpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dtpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const double *Ap, double *X, f77_int incX) { diff --git a/frame/compat/cblas/src/cblas_dtpsv.c b/frame/compat/cblas/src/cblas_dtpsv.c index 484358acf..501e4a256 100644 --- a/frame/compat/cblas/src/cblas_dtpsv.c +++ b/frame/compat/cblas/src/cblas_dtpsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dtpsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dtpsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const double *Ap, double *X, f77_int incX) { diff --git a/frame/compat/cblas/src/cblas_dtrmm.c b/frame/compat/cblas/src/cblas_dtrmm.c index 4cd180261..c93c4862a 100644 --- a/frame/compat/cblas/src/cblas_dtrmm.c +++ b/frame/compat/cblas/src/cblas_dtrmm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dtrmm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_dtrmm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int M, f77_int N, double alpha, const double *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_dtrmv.c b/frame/compat/cblas/src/cblas_dtrmv.c index 404110b91..904d4b75b 100644 --- a/frame/compat/cblas/src/cblas_dtrmv.c +++ b/frame/compat/cblas/src/cblas_dtrmv.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dtrmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dtrmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const double *A, f77_int lda, double *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_dtrsm.c b/frame/compat/cblas/src/cblas_dtrsm.c index 1480ff2c5..552620495 100644 --- a/frame/compat/cblas/src/cblas_dtrsm.c +++ b/frame/compat/cblas/src/cblas_dtrsm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dtrsm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_dtrsm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int M, f77_int N, double alpha, const double *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_dtrsv.c b/frame/compat/cblas/src/cblas_dtrsv.c index 428b36781..4d257f7ea 100644 --- a/frame/compat/cblas/src/cblas_dtrsv.c +++ b/frame/compat/cblas/src/cblas_dtrsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dtrsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dtrsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const double *A, f77_int lda, double *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_saxpy.c b/frame/compat/cblas/src/cblas_saxpy.c index c3846e9e4..b7f2b2d4e 100644 --- a/frame/compat/cblas/src/cblas_saxpy.c +++ b/frame/compat/cblas/src/cblas_saxpy.c @@ -11,7 +11,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_saxpy( f77_int N, float alpha, const float *X, +void cblas_saxpy( f77_int N, float alpha, const float *X, f77_int incX, float *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_scopy.c b/frame/compat/cblas/src/cblas_scopy.c index 5f254eb52..f54343ff1 100644 --- a/frame/compat/cblas/src/cblas_scopy.c +++ b/frame/compat/cblas/src/cblas_scopy.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_scopy( f77_int N, const float *X, +void cblas_scopy( f77_int N, const float *X, f77_int incX, float *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_sgbmv.c b/frame/compat/cblas/src/cblas_sgbmv.c index bf6b02ad9..8bf944f9d 100644 --- a/frame/compat/cblas/src/cblas_sgbmv.c +++ b/frame/compat/cblas/src/cblas_sgbmv.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sgbmv(enum CBLAS_ORDER order, +void cblas_sgbmv(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N, f77_int KL, f77_int KU, float alpha, const float *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_sgemm.c b/frame/compat/cblas/src/cblas_sgemm.c index 09ed071ff..89d0f07a8 100644 --- a/frame/compat/cblas/src/cblas_sgemm.c +++ b/frame/compat/cblas/src/cblas_sgemm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, +void cblas_sgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANSPOSE TransB, f77_int M, f77_int N, f77_int K, float alpha, const float *A, f77_int lda, const float *B, f77_int ldb, diff --git a/frame/compat/cblas/src/cblas_sgemv.c b/frame/compat/cblas/src/cblas_sgemv.c index 79d536f6b..552140fec 100644 --- a/frame/compat/cblas/src/cblas_sgemv.c +++ b/frame/compat/cblas/src/cblas_sgemv.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sgemv(enum CBLAS_ORDER order, +void cblas_sgemv(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N, float alpha, const float *A, f77_int lda, const float *X, f77_int incX, float beta, diff --git a/frame/compat/cblas/src/cblas_sger.c b/frame/compat/cblas/src/cblas_sger.c index 64fb8bf8d..0617bad1e 100644 --- a/frame/compat/cblas/src/cblas_sger.c +++ b/frame/compat/cblas/src/cblas_sger.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sger(enum CBLAS_ORDER order, f77_int M, f77_int N, +void cblas_sger(enum CBLAS_ORDER order, f77_int M, f77_int N, const float alpha, const float *X, f77_int incX, const float *Y, f77_int incY, float *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_srot.c b/frame/compat/cblas/src/cblas_srot.c index 3279a5b99..b9e7ede46 100644 --- a/frame/compat/cblas/src/cblas_srot.c +++ b/frame/compat/cblas/src/cblas_srot.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_srot( f77_int N, float *X, f77_int incX, float *Y, +void cblas_srot( f77_int N, float *X, f77_int incX, float *Y, f77_int incY, const float c, const float s) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_srotg.c b/frame/compat/cblas/src/cblas_srotg.c index 761dc34e3..165497f7e 100644 --- a/frame/compat/cblas/src/cblas_srotg.c +++ b/frame/compat/cblas/src/cblas_srotg.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_srotg( float *a, float *b, float *c, float *s) +void cblas_srotg( float *a, float *b, float *c, float *s) { F77_srotg(a,b,c,s); } diff --git a/frame/compat/cblas/src/cblas_srotm.c b/frame/compat/cblas/src/cblas_srotm.c index 335f76733..ce417d769 100644 --- a/frame/compat/cblas/src/cblas_srotm.c +++ b/frame/compat/cblas/src/cblas_srotm.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_srotm( f77_int N, float *X, f77_int incX, float *Y, +void cblas_srotm( f77_int N, float *X, f77_int incX, float *Y, f77_int incY, const float *P) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_srotmg.c b/frame/compat/cblas/src/cblas_srotmg.c index c5c845aa7..7f26ac659 100644 --- a/frame/compat/cblas/src/cblas_srotmg.c +++ b/frame/compat/cblas/src/cblas_srotmg.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_srotmg( float *d1, float *d2, float *b1, +void cblas_srotmg( float *d1, float *d2, float *b1, const float b2, float *p) { F77_srotmg(d1,d2,b1,&b2,p); diff --git a/frame/compat/cblas/src/cblas_ssbmv.c b/frame/compat/cblas/src/cblas_ssbmv.c index 4935323b0..ef8a96cfb 100644 --- a/frame/compat/cblas/src/cblas_ssbmv.c +++ b/frame/compat/cblas/src/cblas_ssbmv.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ssbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ssbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, f77_int K, float alpha, const float *A, f77_int lda, const float *X, f77_int incX, float beta, float *Y, f77_int incY) diff --git a/frame/compat/cblas/src/cblas_sscal.c b/frame/compat/cblas/src/cblas_sscal.c index fda92231c..55547ae64 100644 --- a/frame/compat/cblas/src/cblas_sscal.c +++ b/frame/compat/cblas/src/cblas_sscal.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sscal( f77_int N, float alpha, float *X, +void cblas_sscal( f77_int N, float alpha, float *X, f77_int incX) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_sspmv.c b/frame/compat/cblas/src/cblas_sspmv.c index 28dc0b36c..a54f64214 100644 --- a/frame/compat/cblas/src/cblas_sspmv.c +++ b/frame/compat/cblas/src/cblas_sspmv.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sspmv(enum CBLAS_ORDER order, +void cblas_sspmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, float alpha, const float *AP, const float *X, f77_int incX, float beta, diff --git a/frame/compat/cblas/src/cblas_sspr.c b/frame/compat/cblas/src/cblas_sspr.c index a2b60e96d..693dbba8c 100644 --- a/frame/compat/cblas/src/cblas_sspr.c +++ b/frame/compat/cblas/src/cblas_sspr.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sspr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_sspr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const float alpha, const float *X, f77_int incX, float *Ap) { diff --git a/frame/compat/cblas/src/cblas_sspr2.c b/frame/compat/cblas/src/cblas_sspr2.c index e38e6749f..a4b612897 100644 --- a/frame/compat/cblas/src/cblas_sspr2.c +++ b/frame/compat/cblas/src/cblas_sspr2.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sspr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_sspr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const float alpha, const float *X, f77_int incX, const float *Y, f77_int incY, float *A) { diff --git a/frame/compat/cblas/src/cblas_sswap.c b/frame/compat/cblas/src/cblas_sswap.c index e97aa27ef..2c24ad0fa 100644 --- a/frame/compat/cblas/src/cblas_sswap.c +++ b/frame/compat/cblas/src/cblas_sswap.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sswap( f77_int N, float *X, f77_int incX, float *Y, +void cblas_sswap( f77_int N, float *X, f77_int incX, float *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_ssymm.c b/frame/compat/cblas/src/cblas_ssymm.c index 138c3b47d..218ddba6a 100644 --- a/frame/compat/cblas/src/cblas_ssymm.c +++ b/frame/compat/cblas/src/cblas_ssymm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ssymm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_ssymm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, f77_int M, f77_int N, float alpha, const float *A, f77_int lda, const float *B, f77_int ldb, float beta, diff --git a/frame/compat/cblas/src/cblas_ssymv.c b/frame/compat/cblas/src/cblas_ssymv.c index 43a835cdd..6027aaddf 100644 --- a/frame/compat/cblas/src/cblas_ssymv.c +++ b/frame/compat/cblas/src/cblas_ssymv.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ssymv(enum CBLAS_ORDER order, +void cblas_ssymv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, float alpha, const float *A, f77_int lda, const float *X, f77_int incX, float beta, diff --git a/frame/compat/cblas/src/cblas_ssyr.c b/frame/compat/cblas/src/cblas_ssyr.c index 90d4a748f..14ed8fe54 100644 --- a/frame/compat/cblas/src/cblas_ssyr.c +++ b/frame/compat/cblas/src/cblas_ssyr.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ssyr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ssyr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const float alpha, const float *X, f77_int incX, float *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_ssyr2.c b/frame/compat/cblas/src/cblas_ssyr2.c index 287eacdd6..48263f2ae 100644 --- a/frame/compat/cblas/src/cblas_ssyr2.c +++ b/frame/compat/cblas/src/cblas_ssyr2.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ssyr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ssyr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const float alpha, const float *X, f77_int incX, const float *Y, f77_int incY, float *A, f77_int lda) diff --git a/frame/compat/cblas/src/cblas_ssyr2k.c b/frame/compat/cblas/src/cblas_ssyr2k.c index 9687f2dd9..50cf8bf1d 100644 --- a/frame/compat/cblas/src/cblas_ssyr2k.c +++ b/frame/compat/cblas/src/cblas_ssyr2k.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ssyr2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_ssyr2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, float alpha, const float *A, f77_int lda, const float *B, f77_int ldb, float beta, diff --git a/frame/compat/cblas/src/cblas_ssyrk.c b/frame/compat/cblas/src/cblas_ssyrk.c index 63364bb91..6f486870f 100644 --- a/frame/compat/cblas/src/cblas_ssyrk.c +++ b/frame/compat/cblas/src/cblas_ssyrk.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ssyrk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_ssyrk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, float alpha, const float *A, f77_int lda, float beta, float *C, f77_int ldc) diff --git a/frame/compat/cblas/src/cblas_stbmv.c b/frame/compat/cblas/src/cblas_stbmv.c index 7f67b0d64..15daa49da 100644 --- a/frame/compat/cblas/src/cblas_stbmv.c +++ b/frame/compat/cblas/src/cblas_stbmv.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_stbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_stbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, f77_int K, const float *A, f77_int lda, float *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_stbsv.c b/frame/compat/cblas/src/cblas_stbsv.c index d2137984b..ec9d9c844 100644 --- a/frame/compat/cblas/src/cblas_stbsv.c +++ b/frame/compat/cblas/src/cblas_stbsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_stbsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_stbsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, f77_int K, const float *A, f77_int lda, float *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_stpmv.c b/frame/compat/cblas/src/cblas_stpmv.c index f8b9dc979..91b308176 100644 --- a/frame/compat/cblas/src/cblas_stpmv.c +++ b/frame/compat/cblas/src/cblas_stpmv.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_stpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_stpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const float *Ap, float *X, f77_int incX) { diff --git a/frame/compat/cblas/src/cblas_stpsv.c b/frame/compat/cblas/src/cblas_stpsv.c index d0bbc7661..548eaec79 100644 --- a/frame/compat/cblas/src/cblas_stpsv.c +++ b/frame/compat/cblas/src/cblas_stpsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_stpsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_stpsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const float *Ap, float *X, f77_int incX) { diff --git a/frame/compat/cblas/src/cblas_strmm.c b/frame/compat/cblas/src/cblas_strmm.c index 93f2406c5..a7737109b 100644 --- a/frame/compat/cblas/src/cblas_strmm.c +++ b/frame/compat/cblas/src/cblas_strmm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_strmm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_strmm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int M, f77_int N, float alpha, const float *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_strmv.c b/frame/compat/cblas/src/cblas_strmv.c index 4d0e7ebc7..987589eb7 100644 --- a/frame/compat/cblas/src/cblas_strmv.c +++ b/frame/compat/cblas/src/cblas_strmv.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_strmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_strmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const float *A, f77_int lda, float *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_strsm.c b/frame/compat/cblas/src/cblas_strsm.c index 64cea9327..ef78969f0 100644 --- a/frame/compat/cblas/src/cblas_strsm.c +++ b/frame/compat/cblas/src/cblas_strsm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_strsm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_strsm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int M, f77_int N, float alpha, const float *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_strsv.c b/frame/compat/cblas/src/cblas_strsv.c index d3c2cb063..a37c797b8 100644 --- a/frame/compat/cblas/src/cblas_strsv.c +++ b/frame/compat/cblas/src/cblas_strsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_strsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_strsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const float *A, f77_int lda, float *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_xerbla.c b/frame/compat/cblas/src/cblas_xerbla.c index 8577f5fb2..ebe6bd800 100644 --- a/frame/compat/cblas/src/cblas_xerbla.c +++ b/frame/compat/cblas/src/cblas_xerbla.c @@ -7,7 +7,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_xerbla(f77_int info, const char *rout, const char *form, ...) +void cblas_xerbla(f77_int info, const char *rout, const char *form, ...) { extern int RowMajorStrg; char empty[1] = ""; diff --git a/frame/compat/cblas/src/cblas_zaxpy.c b/frame/compat/cblas/src/cblas_zaxpy.c index 60998af86..dcf2f5c78 100644 --- a/frame/compat/cblas/src/cblas_zaxpy.c +++ b/frame/compat/cblas/src/cblas_zaxpy.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zaxpy( f77_int N, const void *alpha, const void *X, +void cblas_zaxpy( f77_int N, const void *alpha, const void *X, f77_int incX, void *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_zcopy.c b/frame/compat/cblas/src/cblas_zcopy.c index 81bac5ae9..5b0a7dd5d 100644 --- a/frame/compat/cblas/src/cblas_zcopy.c +++ b/frame/compat/cblas/src/cblas_zcopy.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zcopy( f77_int N, const void *X, +void cblas_zcopy( f77_int N, const void *X, f77_int incX, void *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_zdotc_sub.c b/frame/compat/cblas/src/cblas_zdotc_sub.c index d9603a849..2e0808c88 100644 --- a/frame/compat/cblas/src/cblas_zdotc_sub.c +++ b/frame/compat/cblas/src/cblas_zdotc_sub.c @@ -11,7 +11,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zdotc_sub( f77_int N, const void *X, f77_int incX, +void cblas_zdotc_sub( f77_int N, const void *X, f77_int incX, const void *Y, f77_int incY, void *dotc) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_zdotu_sub.c b/frame/compat/cblas/src/cblas_zdotu_sub.c index 2561df276..255ad833f 100644 --- a/frame/compat/cblas/src/cblas_zdotu_sub.c +++ b/frame/compat/cblas/src/cblas_zdotu_sub.c @@ -11,7 +11,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zdotu_sub( f77_int N, const void *X, f77_int incX, +void cblas_zdotu_sub( f77_int N, const void *X, f77_int incX, const void *Y, f77_int incY, void *dotu) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_zdscal.c b/frame/compat/cblas/src/cblas_zdscal.c index 062609b08..9666e4509 100644 --- a/frame/compat/cblas/src/cblas_zdscal.c +++ b/frame/compat/cblas/src/cblas_zdscal.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zdscal( f77_int N, double alpha, void *X, +void cblas_zdscal( f77_int N, double alpha, void *X, f77_int incX) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_zgbmv.c b/frame/compat/cblas/src/cblas_zgbmv.c index 967b14981..f6efa4e7b 100644 --- a/frame/compat/cblas/src/cblas_zgbmv.c +++ b/frame/compat/cblas/src/cblas_zgbmv.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zgbmv(enum CBLAS_ORDER order, +void cblas_zgbmv(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N, f77_int KL, f77_int KU, const void *alpha, const void *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_zgemm.c b/frame/compat/cblas/src/cblas_zgemm.c index a3ccc9a07..e50de2205 100644 --- a/frame/compat/cblas/src/cblas_zgemm.c +++ b/frame/compat/cblas/src/cblas_zgemm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, +void cblas_zgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANSPOSE TransB, f77_int M, f77_int N, f77_int K, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, diff --git a/frame/compat/cblas/src/cblas_zgemv.c b/frame/compat/cblas/src/cblas_zgemv.c index 689702d6f..05b0bfe84 100644 --- a/frame/compat/cblas/src/cblas_zgemv.c +++ b/frame/compat/cblas/src/cblas_zgemv.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zgemv(enum CBLAS_ORDER order, +void cblas_zgemv(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, const void *X, f77_int incX, const void *beta, diff --git a/frame/compat/cblas/src/cblas_zgerc.c b/frame/compat/cblas/src/cblas_zgerc.c index e93fa21b8..9667958c5 100644 --- a/frame/compat/cblas/src/cblas_zgerc.c +++ b/frame/compat/cblas/src/cblas_zgerc.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zgerc(enum CBLAS_ORDER order, f77_int M, f77_int N, +void cblas_zgerc(enum CBLAS_ORDER order, f77_int M, f77_int N, const void *alpha, const void *X, f77_int incX, const void *Y, f77_int incY, void *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_zgeru.c b/frame/compat/cblas/src/cblas_zgeru.c index 9471781f7..3538ed044 100644 --- a/frame/compat/cblas/src/cblas_zgeru.c +++ b/frame/compat/cblas/src/cblas_zgeru.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zgeru(enum CBLAS_ORDER order, f77_int M, f77_int N, +void cblas_zgeru(enum CBLAS_ORDER order, f77_int M, f77_int N, const void *alpha, const void *X, f77_int incX, const void *Y, f77_int incY, void *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_zhbmv.c b/frame/compat/cblas/src/cblas_zhbmv.c index dc544841a..8bfd139e9 100644 --- a/frame/compat/cblas/src/cblas_zhbmv.c +++ b/frame/compat/cblas/src/cblas_zhbmv.c @@ -11,7 +11,7 @@ #include "cblas_f77.h" #include #include -void BLIS_EXPORT_BLAS cblas_zhbmv(enum CBLAS_ORDER order, +void cblas_zhbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,f77_int N,f77_int K, const void *alpha, const void *A, f77_int lda, const void *X, f77_int incX, const void *beta, diff --git a/frame/compat/cblas/src/cblas_zhemm.c b/frame/compat/cblas/src/cblas_zhemm.c index bc19ae828..7da2a41e6 100644 --- a/frame/compat/cblas/src/cblas_zhemm.c +++ b/frame/compat/cblas/src/cblas_zhemm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zhemm(enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, +void cblas_zhemm(enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, const void *beta, diff --git a/frame/compat/cblas/src/cblas_zhemv.c b/frame/compat/cblas/src/cblas_zhemv.c index 62d44b3e6..a0b6082ce 100644 --- a/frame/compat/cblas/src/cblas_zhemv.c +++ b/frame/compat/cblas/src/cblas_zhemv.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zhemv(enum CBLAS_ORDER order, +void cblas_zhemv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const void *alpha, const void *A, f77_int lda, const void *X, f77_int incX, const void *beta, diff --git a/frame/compat/cblas/src/cblas_zher.c b/frame/compat/cblas/src/cblas_zher.c index ecbd36418..9e513d43b 100644 --- a/frame/compat/cblas/src/cblas_zher.c +++ b/frame/compat/cblas/src/cblas_zher.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zher(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_zher(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, double alpha, const void *X, f77_int incX ,void *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_zher2.c b/frame/compat/cblas/src/cblas_zher2.c index 9c523d952..5d49302f9 100644 --- a/frame/compat/cblas/src/cblas_zher2.c +++ b/frame/compat/cblas/src/cblas_zher2.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zher2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_zher2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const void *alpha, const void *X, f77_int incX, const void *Y, f77_int incY, void *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_zher2k.c b/frame/compat/cblas/src/cblas_zher2k.c index d03ec1370..424f650d0 100644 --- a/frame/compat/cblas/src/cblas_zher2k.c +++ b/frame/compat/cblas/src/cblas_zher2k.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zher2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_zher2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, double beta, diff --git a/frame/compat/cblas/src/cblas_zherk.c b/frame/compat/cblas/src/cblas_zherk.c index 3167dc0fa..5ddb45184 100644 --- a/frame/compat/cblas/src/cblas_zherk.c +++ b/frame/compat/cblas/src/cblas_zherk.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zherk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_zherk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, double alpha, const void *A, f77_int lda, double beta, void *C, f77_int ldc) diff --git a/frame/compat/cblas/src/cblas_zhpmv.c b/frame/compat/cblas/src/cblas_zhpmv.c index 602007023..912300d44 100644 --- a/frame/compat/cblas/src/cblas_zhpmv.c +++ b/frame/compat/cblas/src/cblas_zhpmv.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zhpmv(enum CBLAS_ORDER order, +void cblas_zhpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,f77_int N, const void *alpha, const void *AP, const void *X, f77_int incX, const void *beta, diff --git a/frame/compat/cblas/src/cblas_zhpr.c b/frame/compat/cblas/src/cblas_zhpr.c index 0f45fd261..80d238170 100644 --- a/frame/compat/cblas/src/cblas_zhpr.c +++ b/frame/compat/cblas/src/cblas_zhpr.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zhpr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_zhpr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, double alpha, const void *X, f77_int incX, void *A) { diff --git a/frame/compat/cblas/src/cblas_zhpr2.c b/frame/compat/cblas/src/cblas_zhpr2.c index 6358efc1a..2aa46062a 100644 --- a/frame/compat/cblas/src/cblas_zhpr2.c +++ b/frame/compat/cblas/src/cblas_zhpr2.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zhpr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_zhpr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N,const void *alpha, const void *X, f77_int incX,const void *Y, f77_int incY, void *Ap) diff --git a/frame/compat/cblas/src/cblas_zscal.c b/frame/compat/cblas/src/cblas_zscal.c index c58ddf84b..a66ea6f9d 100644 --- a/frame/compat/cblas/src/cblas_zscal.c +++ b/frame/compat/cblas/src/cblas_zscal.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zscal( f77_int N, const void *alpha, void *X, +void cblas_zscal( f77_int N, const void *alpha, void *X, f77_int incX) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_zswap.c b/frame/compat/cblas/src/cblas_zswap.c index 662933988..6b2eb1a20 100644 --- a/frame/compat/cblas/src/cblas_zswap.c +++ b/frame/compat/cblas/src/cblas_zswap.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zswap( f77_int N, void *X, f77_int incX, void *Y, +void cblas_zswap( f77_int N, void *X, f77_int incX, void *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_zsymm.c b/frame/compat/cblas/src/cblas_zsymm.c index 4292d6709..9303c5921 100644 --- a/frame/compat/cblas/src/cblas_zsymm.c +++ b/frame/compat/cblas/src/cblas_zsymm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zsymm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_zsymm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, const void *beta, diff --git a/frame/compat/cblas/src/cblas_zsyr2k.c b/frame/compat/cblas/src/cblas_zsyr2k.c index f4a4f0e12..c275cc693 100644 --- a/frame/compat/cblas/src/cblas_zsyr2k.c +++ b/frame/compat/cblas/src/cblas_zsyr2k.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zsyr2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_zsyr2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, const void *beta, diff --git a/frame/compat/cblas/src/cblas_zsyrk.c b/frame/compat/cblas/src/cblas_zsyrk.c index 641a975e6..ce2c0e1c8 100644 --- a/frame/compat/cblas/src/cblas_zsyrk.c +++ b/frame/compat/cblas/src/cblas_zsyrk.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zsyrk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_zsyrk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, const void *alpha, const void *A, f77_int lda, const void *beta, void *C, f77_int ldc) diff --git a/frame/compat/cblas/src/cblas_ztbmv.c b/frame/compat/cblas/src/cblas_ztbmv.c index e07fb42d2..3c7f58b96 100644 --- a/frame/compat/cblas/src/cblas_ztbmv.c +++ b/frame/compat/cblas/src/cblas_ztbmv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ztbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ztbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, f77_int K, const void *A, f77_int lda, void *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_ztbsv.c b/frame/compat/cblas/src/cblas_ztbsv.c index e2126e49c..56d936e1b 100644 --- a/frame/compat/cblas/src/cblas_ztbsv.c +++ b/frame/compat/cblas/src/cblas_ztbsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ztbsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ztbsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, f77_int K, const void *A, f77_int lda, void *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_ztpmv.c b/frame/compat/cblas/src/cblas_ztpmv.c index a89a3fdc7..a8717ccc5 100644 --- a/frame/compat/cblas/src/cblas_ztpmv.c +++ b/frame/compat/cblas/src/cblas_ztpmv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ztpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ztpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const void *Ap, void *X, f77_int incX) { diff --git a/frame/compat/cblas/src/cblas_ztpsv.c b/frame/compat/cblas/src/cblas_ztpsv.c index 1f51f5d9f..4aa3706cc 100644 --- a/frame/compat/cblas/src/cblas_ztpsv.c +++ b/frame/compat/cblas/src/cblas_ztpsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ztpsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ztpsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const void *Ap, void *X, f77_int incX) { diff --git a/frame/compat/cblas/src/cblas_ztrmm.c b/frame/compat/cblas/src/cblas_ztrmm.c index 958a232b3..6fa8a2ca9 100644 --- a/frame/compat/cblas/src/cblas_ztrmm.c +++ b/frame/compat/cblas/src/cblas_ztrmm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ztrmm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_ztrmm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_ztrmv.c b/frame/compat/cblas/src/cblas_ztrmv.c index bb3bf4516..590105d62 100644 --- a/frame/compat/cblas/src/cblas_ztrmv.c +++ b/frame/compat/cblas/src/cblas_ztrmv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ztrmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ztrmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const void *A, f77_int lda, void *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_ztrsm.c b/frame/compat/cblas/src/cblas_ztrsm.c index fda012933..a68c70e1c 100644 --- a/frame/compat/cblas/src/cblas_ztrsm.c +++ b/frame/compat/cblas/src/cblas_ztrsm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ztrsm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_ztrsm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_ztrsv.c b/frame/compat/cblas/src/cblas_ztrsv.c index e68d9ebe8..1a541f7b1 100644 --- a/frame/compat/cblas/src/cblas_ztrsv.c +++ b/frame/compat/cblas/src/cblas_ztrsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ztrsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ztrsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const void *A, f77_int lda, void *X, f77_int incX) diff --git a/frame/compat/f2c/bla_cabs1.c b/frame/compat/f2c/bla_cabs1.c index c62cb233a..59459f2fe 100644 --- a/frame/compat/f2c/bla_cabs1.c +++ b/frame/compat/f2c/bla_cabs1.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ bla_real BLIS_EXPORT_BLAS PASTEF77(s,cabs1)(bla_scomplex *z) +/* Subroutine */ bla_real PASTEF77(s,cabs1)(bla_scomplex *z) { return bli_fabs( bli_creal( *z ) ) + bli_fabs( bli_cimag( *z ) ); @@ -52,7 +52,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ bla_double BLIS_EXPORT_BLAS PASTEF77(d,cabs1)(bla_dcomplex *z) +/* Subroutine */ bla_double PASTEF77(d,cabs1)(bla_dcomplex *z) { return bli_fabs( bli_zreal( *z ) ) + bli_fabs( bli_zimag( *z ) ); diff --git a/frame/compat/f2c/bla_gbmv.c b/frame/compat/f2c/bla_gbmv.c index 5f68b5beb..d53dd322a 100644 --- a/frame/compat/f2c/bla_gbmv.c +++ b/frame/compat/f2c/bla_gbmv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,gbmv)(const bla_character *trans, const bla_integer *m, const bla_integer *n, const bla_integer *kl, const bla_integer *ku, const bla_scomplex *alpha, const bla_scomplex *a, const bla_integer *lda, const bla_scomplex *x, const bla_integer *incx, const bla_scomplex *beta, bla_scomplex *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(c,gbmv)(const bla_character *trans, const bla_integer *m, const bla_integer *n, const bla_integer *kl, const bla_integer *ku, const bla_scomplex *alpha, const bla_scomplex *a, const bla_integer *lda, const bla_scomplex *x, const bla_integer *incx, const bla_scomplex *beta, bla_scomplex *y, const bla_integer *incy) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5, i__6; @@ -54,9 +54,9 @@ bla_integer info; bla_scomplex temp; bla_integer lenx, leny, i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj; bla_integer kup1; @@ -482,7 +482,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,gbmv)(const bla_character *trans, const bla_integer *m, const bla_integer *n, const bla_integer *kl, const bla_integer *ku, const bla_double *alpha, const bla_double *a, const bla_integer *lda, const bla_double *x, const bla_integer *incx, const bla_double *beta, bla_double *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(d,gbmv)(const bla_character *trans, const bla_integer *m, const bla_integer *n, const bla_integer *kl, const bla_integer *ku, const bla_double *alpha, const bla_double *a, const bla_integer *lda, const bla_double *x, const bla_integer *incx, const bla_double *beta, bla_double *y, const bla_integer *incy) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5, i__6; @@ -491,9 +491,9 @@ bla_integer info; bla_double temp; bla_integer lenx, leny, i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_integer kup1; /* .. Scalar Arguments .. */ @@ -838,7 +838,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,gbmv)(const bla_character *trans, const bla_integer *m, const bla_integer *n, const bla_integer *kl, const bla_integer *ku, const bla_real *alpha, const bla_real *a, const bla_integer *lda, const bla_real *x, const bla_integer * incx, const bla_real *beta, bla_real *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(s,gbmv)(const bla_character *trans, const bla_integer *m, const bla_integer *n, const bla_integer *kl, const bla_integer *ku, const bla_real *alpha, const bla_real *a, const bla_integer *lda, const bla_real *x, const bla_integer * incx, const bla_real *beta, bla_real *y, const bla_integer *incy) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5, i__6; @@ -847,9 +847,9 @@ bla_integer info; bla_real temp; bla_integer lenx, leny, i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_integer kup1; /* .. Scalar Arguments .. */ @@ -1194,7 +1194,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,gbmv)(const bla_character *trans, const bla_integer *m, const bla_integer *n, const bla_integer *kl, const bla_integer *ku, const bla_dcomplex *alpha, const bla_dcomplex *a, const bla_integer *lda, const bla_dcomplex *x, const bla_integer *incx, const bla_dcomplex *beta, bla_dcomplex * y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(z,gbmv)(const bla_character *trans, const bla_integer *m, const bla_integer *n, const bla_integer *kl, const bla_integer *ku, const bla_dcomplex *alpha, const bla_dcomplex *a, const bla_integer *lda, const bla_dcomplex *x, const bla_integer *incx, const bla_dcomplex *beta, bla_dcomplex * y, const bla_integer *incy) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5, i__6; @@ -1207,9 +1207,9 @@ bla_integer info; bla_dcomplex temp; bla_integer lenx, leny, i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj; bla_integer kup1; diff --git a/frame/compat/f2c/bla_hbmv.c b/frame/compat/f2c/bla_hbmv.c index f548331f6..198336d04 100644 --- a/frame/compat/f2c/bla_hbmv.c +++ b/frame/compat/f2c/bla_hbmv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,hbmv)(const bla_character *uplo, const bla_integer *n, const bla_integer *k, const bla_scomplex * alpha, const bla_scomplex *a, const bla_integer *lda, const bla_scomplex *x, const bla_integer *incx, const bla_scomplex *beta, bla_scomplex *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(c,hbmv)(const bla_character *uplo, const bla_integer *n, const bla_integer *k, const bla_scomplex * alpha, const bla_scomplex *a, const bla_integer *lda, const bla_scomplex *x, const bla_integer *incx, const bla_scomplex *beta, bla_scomplex *y, const bla_integer *incy) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; @@ -55,9 +55,9 @@ bla_integer info; bla_scomplex temp1, temp2; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ @@ -487,7 +487,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,hbmv)(const bla_character *uplo, const bla_integer *n, const bla_integer *k, const bla_dcomplex *alpha, const bla_dcomplex *a, const bla_integer *lda, const bla_dcomplex *x, const bla_integer * incx, const bla_dcomplex *beta, bla_dcomplex *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(z,hbmv)(const bla_character *uplo, const bla_integer *n, const bla_integer *k, const bla_dcomplex *alpha, const bla_dcomplex *a, const bla_integer *lda, const bla_dcomplex *x, const bla_integer * incx, const bla_dcomplex *beta, bla_dcomplex *y, const bla_integer *incy) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; @@ -501,9 +501,9 @@ bla_integer info; bla_dcomplex temp1, temp2; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ diff --git a/frame/compat/f2c/bla_hpmv.c b/frame/compat/f2c/bla_hpmv.c index 2daa47bf5..0d7ebce9d 100644 --- a/frame/compat/f2c/bla_hpmv.c +++ b/frame/compat/f2c/bla_hpmv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,hpmv)(const bla_character *uplo, const bla_integer *n, const bla_scomplex *alpha, const bla_scomplex * ap, const bla_scomplex *x, const bla_integer *incx, const bla_scomplex *beta, bla_scomplex *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(c,hpmv)(const bla_character *uplo, const bla_integer *n, const bla_scomplex *alpha, const bla_scomplex * ap, const bla_scomplex *x, const bla_integer *incx, const bla_scomplex *beta, bla_scomplex *y, const bla_integer *incy) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5; @@ -55,9 +55,9 @@ bla_integer info; bla_scomplex temp1, temp2; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ @@ -439,7 +439,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,hpmv)(const bla_character *uplo, const bla_integer *n, const bla_dcomplex *alpha, const bla_dcomplex *ap, const bla_dcomplex *x, const bla_integer *incx, const bla_dcomplex *beta, bla_dcomplex *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(z,hpmv)(const bla_character *uplo, const bla_integer *n, const bla_dcomplex *alpha, const bla_dcomplex *ap, const bla_dcomplex *x, const bla_integer *incx, const bla_dcomplex *beta, bla_dcomplex *y, const bla_integer *incy) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5; @@ -453,9 +453,9 @@ bla_integer info; bla_dcomplex temp1, temp2; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ diff --git a/frame/compat/f2c/bla_hpr.c b/frame/compat/f2c/bla_hpr.c index be0f796c6..da1f0a0f3 100644 --- a/frame/compat/f2c/bla_hpr.c +++ b/frame/compat/f2c/bla_hpr.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,hpr)(const bla_character *uplo, const bla_integer *n, const bla_real *alpha, const bla_scomplex *x, const bla_integer *incx, bla_scomplex *ap) +/* Subroutine */ int PASTEF77(c,hpr)(const bla_character *uplo, const bla_integer *n, const bla_real *alpha, const bla_scomplex *x, const bla_integer *incx, bla_scomplex *ap) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5; @@ -55,9 +55,9 @@ bla_integer info; bla_scomplex temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ @@ -353,7 +353,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,hpr)(const bla_character *uplo, const bla_integer *n, const bla_double *alpha, const bla_dcomplex *x, const bla_integer *incx, bla_dcomplex *ap) +/* Subroutine */ int PASTEF77(z,hpr)(const bla_character *uplo, const bla_integer *n, const bla_double *alpha, const bla_dcomplex *x, const bla_integer *incx, bla_dcomplex *ap) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5; @@ -367,9 +367,9 @@ bla_integer info; bla_dcomplex temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ diff --git a/frame/compat/f2c/bla_hpr2.c b/frame/compat/f2c/bla_hpr2.c index 597ab7439..c78c1eec0 100644 --- a/frame/compat/f2c/bla_hpr2.c +++ b/frame/compat/f2c/bla_hpr2.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,hpr2)(const bla_character *uplo, const bla_integer *n, const bla_scomplex *alpha, const bla_scomplex *x, const bla_integer *incx, const bla_scomplex *y, const bla_integer *incy, bla_scomplex *ap) +/* Subroutine */ int PASTEF77(c,hpr2)(const bla_character *uplo, const bla_integer *n, const bla_scomplex *alpha, const bla_scomplex *x, const bla_integer *incx, const bla_scomplex *y, const bla_integer *incy, bla_scomplex *ap) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5, i__6; @@ -55,9 +55,9 @@ bla_integer info; bla_scomplex temp1, temp2; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, iy, jx = 0, jy = 0, kx = 0, ky = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ @@ -429,7 +429,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,hpr2)(const bla_character *uplo, const bla_integer *n, const bla_dcomplex *alpha, const bla_dcomplex *x, const bla_integer *incx, const bla_dcomplex *y, const bla_integer *incy, bla_dcomplex *ap) +/* Subroutine */ int PASTEF77(z,hpr2)(const bla_character *uplo, const bla_integer *n, const bla_dcomplex *alpha, const bla_dcomplex *x, const bla_integer *incx, const bla_dcomplex *y, const bla_integer *incy, bla_dcomplex *ap) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5, i__6; @@ -443,9 +443,9 @@ bla_integer info; bla_dcomplex temp1, temp2; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, iy, jx = 0, jy = 0, kx = 0, ky = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ diff --git a/frame/compat/f2c/bla_lsame.c b/frame/compat/f2c/bla_lsame.c index c5a7d2558..edee918d1 100644 --- a/frame/compat/f2c/bla_lsame.c +++ b/frame/compat/f2c/bla_lsame.c @@ -45,7 +45,7 @@ #ifdef LAPACK_ILP64 long PASTEF770(lsame)(const char *ca, const char *cb, long ca_len, long cb_len) #else -BLIS_EXPORT_BLAS int PASTEF770(lsame)(const char *ca, const char *cb, int ca_len, int cb_len) +int PASTEF770(lsame)(const char *ca, const char *cb, int ca_len, int cb_len) #endif { /* System generated locals */ diff --git a/frame/compat/f2c/bla_rot.c b/frame/compat/f2c/bla_rot.c index 4c66e4aa8..c79769bc0 100644 --- a/frame/compat/f2c/bla_rot.c +++ b/frame/compat/f2c/bla_rot.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,rot)(const bla_integer *n, bla_real *sx, const bla_integer *incx, bla_real *sy, const bla_integer *incy, const bla_real *c__, const bla_real *s) +/* Subroutine */ int PASTEF77(s,rot)(const bla_integer *n, bla_real *sx, const bla_integer *incx, bla_real *sy, const bla_integer *incy, const bla_real *c__, const bla_real *s) { /* System generated locals */ bla_integer i__1; @@ -109,7 +109,7 @@ L20: -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,rot)(const bla_integer *n, bla_double *dx, const bla_integer *incx, bla_double *dy, const bla_integer *incy, const bla_double *c__, const bla_double *s) +/* Subroutine */ int PASTEF77(d,rot)(const bla_integer *n, bla_double *dx, const bla_integer *incx, bla_double *dy, const bla_integer *incy, const bla_double *c__, const bla_double *s) { /* System generated locals */ bla_integer i__1; @@ -177,7 +177,7 @@ L20: -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(cs,rot)(const bla_integer *n, bla_scomplex *cx, const bla_integer *incx, bla_scomplex *cy, const bla_integer *incy, const bla_real *c__, const bla_real *s) +/* Subroutine */ int PASTEF77(cs,rot)(const bla_integer *n, bla_scomplex *cx, const bla_integer *incx, bla_scomplex *cy, const bla_integer *incy, const bla_real *c__, const bla_real *s) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4; @@ -270,7 +270,7 @@ L20: -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(zd,rot)(const bla_integer *n, bla_dcomplex *zx, const bla_integer *incx, bla_dcomplex *zy, const bla_integer *incy, const bla_double *c__, const bla_double *s) +/* Subroutine */ int PASTEF77(zd,rot)(const bla_integer *n, bla_dcomplex *zx, const bla_integer *incx, bla_dcomplex *zy, const bla_integer *incy, const bla_double *c__, const bla_double *s) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4; diff --git a/frame/compat/f2c/bla_rotg.c b/frame/compat/f2c/bla_rotg.c index 1315bd6aa..1572689f5 100644 --- a/frame/compat/f2c/bla_rotg.c +++ b/frame/compat/f2c/bla_rotg.c @@ -45,7 +45,7 @@ static bla_real sc_b4 = 1.f; -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,rotg)(bla_real *sa, bla_real *sb, bla_real *c__, bla_real *s) +/* Subroutine */ int PASTEF77(s,rotg)(bla_real *sa, bla_real *sb, bla_real *c__, bla_real *s) { /* System generated locals */ bla_real r__1, r__2; @@ -105,7 +105,7 @@ L20: static bla_double dc_b4 = 1.; -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,rotg)(bla_double *da, bla_double *db, bla_double *c__, bla_double *s) +/* Subroutine */ int PASTEF77(d,rotg)(bla_double *da, bla_double *db, bla_double *c__, bla_double *s) { /* System generated locals */ bla_double d__1, d__2; @@ -161,7 +161,7 @@ L20: -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,rotg)(bla_scomplex *ca, bla_scomplex *cb, bla_real *c__, bla_scomplex *s) +/* Subroutine */ int PASTEF77(c,rotg)(bla_scomplex *ca, bla_scomplex *cb, bla_real *c__, bla_scomplex *s) { /* System generated locals */ bla_real r__1, r__2; @@ -211,7 +211,7 @@ L20: -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,rotg)(bla_dcomplex *ca, bla_dcomplex *cb, bla_double *c__, bla_dcomplex *s) +/* Subroutine */ int PASTEF77(z,rotg)(bla_dcomplex *ca, bla_dcomplex *cb, bla_double *c__, bla_dcomplex *s) { /* System generated locals */ bla_double d__1, d__2; diff --git a/frame/compat/f2c/bla_rotm.c b/frame/compat/f2c/bla_rotm.c index b39d33115..003dea715 100644 --- a/frame/compat/f2c/bla_rotm.c +++ b/frame/compat/f2c/bla_rotm.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,rotm)(const bla_integer *n, bla_real *sx, const bla_integer *incx, bla_real *sy, const bla_integer *incy, const bla_real *sparam) +/* Subroutine */ int PASTEF77(s,rotm)(const bla_integer *n, bla_real *sx, const bla_integer *incx, bla_real *sy, const bla_integer *incy, const bla_real *sparam) { /* Initialized data */ @@ -207,7 +207,7 @@ L140: -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,rotm)(const bla_integer *n, bla_double *dx, const bla_integer *incx, bla_double *dy, const bla_integer *incy, const bla_double *dparam) +/* Subroutine */ int PASTEF77(d,rotm)(const bla_integer *n, bla_double *dx, const bla_integer *incx, bla_double *dy, const bla_integer *incy, const bla_double *dparam) { /* Initialized data */ diff --git a/frame/compat/f2c/bla_rotmg.c b/frame/compat/f2c/bla_rotmg.c index 2803417fe..11ccc6f33 100644 --- a/frame/compat/f2c/bla_rotmg.c +++ b/frame/compat/f2c/bla_rotmg.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,rotmg)(bla_real *sd1, bla_real *sd2, bla_real *sx1, const bla_real *sy1, bla_real *sparam) +/* Subroutine */ int PASTEF77(s,rotmg)(bla_real *sd1, bla_real *sd2, bla_real *sx1, const bla_real *sy1, bla_real *sparam) { /* Initialized data */ @@ -281,7 +281,7 @@ L260: -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,rotmg)(bla_double *dd1, bla_double *dd2, bla_double *dx1, const bla_double *dy1, bla_double *dparam) +/* Subroutine */ int PASTEF77(d,rotmg)(bla_double *dd1, bla_double *dd2, bla_double *dx1, const bla_double *dy1, bla_double *dparam) { /* Initialized data */ diff --git a/frame/compat/f2c/bla_sbmv.c b/frame/compat/f2c/bla_sbmv.c index ddedc9ea7..566fabd81 100644 --- a/frame/compat/f2c/bla_sbmv.c +++ b/frame/compat/f2c/bla_sbmv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,sbmv)(const bla_character *uplo, const bla_integer *n, const bla_integer *k, const bla_double *alpha, const bla_double *a, const bla_integer *lda, const bla_double *x, const bla_integer *incx, const bla_double *beta, bla_double *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(d,sbmv)(const bla_character *uplo, const bla_integer *n, const bla_integer *k, const bla_double *alpha, const bla_double *a, const bla_integer *lda, const bla_double *x, const bla_integer *incx, const bla_double *beta, bla_double *y, const bla_integer *incy) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4; @@ -50,9 +50,9 @@ bla_integer info; bla_double temp1, temp2; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ @@ -392,7 +392,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,sbmv)(const bla_character *uplo, const bla_integer *n, const bla_integer *k, const bla_real *alpha, const bla_real *a, const bla_integer *lda, const bla_real *x, const bla_integer *incx, const bla_real *beta, bla_real *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(s,sbmv)(const bla_character *uplo, const bla_integer *n, const bla_integer *k, const bla_real *alpha, const bla_real *a, const bla_integer *lda, const bla_real *x, const bla_integer *incx, const bla_real *beta, bla_real *y, const bla_integer *incy) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4; @@ -401,9 +401,9 @@ bla_integer info; bla_real temp1, temp2; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ diff --git a/frame/compat/f2c/bla_spmv.c b/frame/compat/f2c/bla_spmv.c index 909085f38..0485e1dc3 100644 --- a/frame/compat/f2c/bla_spmv.c +++ b/frame/compat/f2c/bla_spmv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,spmv)(const bla_character *uplo, const bla_integer *n, const bla_double *alpha, const bla_double *ap, const bla_double *x, const bla_integer *incx, const bla_double *beta, bla_double *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(d,spmv)(const bla_character *uplo, const bla_integer *n, const bla_double *alpha, const bla_double *ap, const bla_double *x, const bla_integer *incx, const bla_double *beta, bla_double *y, const bla_integer *incy) { /* System generated locals */ bla_integer i__1, i__2; @@ -50,9 +50,9 @@ bla_integer info; bla_double temp1, temp2; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ @@ -342,7 +342,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,spmv)(const bla_character *uplo, const bla_integer *n, const bla_real *alpha, const bla_real *ap, const bla_real *x, const bla_integer *incx, const bla_real *beta, bla_real *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(s,spmv)(const bla_character *uplo, const bla_integer *n, const bla_real *alpha, const bla_real *ap, const bla_real *x, const bla_integer *incx, const bla_real *beta, bla_real *y, const bla_integer *incy) { /* System generated locals */ bla_integer i__1, i__2; @@ -351,9 +351,9 @@ bla_integer info; bla_real temp1, temp2; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ diff --git a/frame/compat/f2c/bla_spr.c b/frame/compat/f2c/bla_spr.c index 84f33b569..d276458b4 100644 --- a/frame/compat/f2c/bla_spr.c +++ b/frame/compat/f2c/bla_spr.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,spr)(const bla_character *uplo, const bla_integer *n, const bla_double *alpha, const bla_double *x, const bla_integer *incx, bla_double *ap) +/* Subroutine */ int PASTEF77(d,spr)(const bla_character *uplo, const bla_integer *n, const bla_double *alpha, const bla_double *x, const bla_integer *incx, bla_double *ap) { /* System generated locals */ bla_integer i__1, i__2; @@ -50,9 +50,9 @@ bla_integer info; bla_double temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ @@ -268,7 +268,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,spr)(const bla_character *uplo, const bla_integer *n, const bla_real *alpha, const bla_real *x, const bla_integer *incx, bla_real *ap) +/* Subroutine */ int PASTEF77(s,spr)(const bla_character *uplo, const bla_integer *n, const bla_real *alpha, const bla_real *x, const bla_integer *incx, bla_real *ap) { /* System generated locals */ bla_integer i__1, i__2; @@ -277,9 +277,9 @@ bla_integer info; bla_real temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ diff --git a/frame/compat/f2c/bla_spr2.c b/frame/compat/f2c/bla_spr2.c index e2df99299..7c7538212 100644 --- a/frame/compat/f2c/bla_spr2.c +++ b/frame/compat/f2c/bla_spr2.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,spr2)(const bla_character *uplo, const bla_integer *n, const bla_double *alpha, const bla_double *x, const bla_integer *incx, const bla_double *y, const bla_integer *incy, bla_double *ap) +/* Subroutine */ int PASTEF77(d,spr2)(const bla_character *uplo, const bla_integer *n, const bla_double *alpha, const bla_double *x, const bla_integer *incx, const bla_double *y, const bla_integer *incy, bla_double *ap) { /* System generated locals */ bla_integer i__1, i__2; @@ -50,9 +50,9 @@ bla_integer info; bla_double temp1, temp2; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, iy, jx = 0, jy = 0, kx = 0, ky = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ @@ -300,7 +300,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,spr2)(const bla_character *uplo, const bla_integer *n, const bla_real *alpha, const bla_real *x, const bla_integer *incx, const bla_real *y, const bla_integer *incy, bla_real *ap) +/* Subroutine */ int PASTEF77(s,spr2)(const bla_character *uplo, const bla_integer *n, const bla_real *alpha, const bla_real *x, const bla_integer *incx, const bla_real *y, const bla_integer *incy, bla_real *ap) { /* System generated locals */ bla_integer i__1, i__2; @@ -309,9 +309,9 @@ bla_integer info; bla_real temp1, temp2; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, iy, jx = 0, jy = 0, kx = 0, ky = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ diff --git a/frame/compat/f2c/bla_tbmv.c b/frame/compat/f2c/bla_tbmv.c index 2d25bde6c..78feb7056 100644 --- a/frame/compat/f2c/bla_tbmv.c +++ b/frame/compat/f2c/bla_tbmv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,tbmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_scomplex *a, const bla_integer *lda, bla_scomplex *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(c,tbmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_scomplex *a, const bla_integer *lda, bla_scomplex *x, const bla_integer *incx) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; @@ -54,9 +54,9 @@ bla_integer info; bla_scomplex temp; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj, nounit; /* .. Scalar Arguments .. */ @@ -611,7 +611,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,tbmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_double *a, const bla_integer *lda, bla_double *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(d,tbmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_double *a, const bla_integer *lda, bla_double *x, const bla_integer *incx) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4; @@ -620,9 +620,9 @@ bla_integer info; bla_double temp; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical nounit; /* .. Scalar Arguments .. */ @@ -1022,7 +1022,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,tbmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_real *a, const bla_integer *lda, bla_real *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(s,tbmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_real *a, const bla_integer *lda, bla_real *x, const bla_integer *incx) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4; @@ -1031,9 +1031,9 @@ bla_integer info; bla_real temp; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical nounit; /* .. Scalar Arguments .. */ @@ -1433,7 +1433,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,tbmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_dcomplex *a, const bla_integer *lda, bla_dcomplex *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(z,tbmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_dcomplex *a, const bla_integer *lda, bla_dcomplex *x, const bla_integer *incx) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; @@ -1446,9 +1446,9 @@ bla_integer info; bla_dcomplex temp; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj, nounit; /* .. Scalar Arguments .. */ diff --git a/frame/compat/f2c/bla_tbsv.c b/frame/compat/f2c/bla_tbsv.c index 733e90a2d..6914882d2 100644 --- a/frame/compat/f2c/bla_tbsv.c +++ b/frame/compat/f2c/bla_tbsv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,tbsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_scomplex *a, const bla_integer *lda, bla_scomplex *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(c,tbsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_scomplex *a, const bla_integer *lda, bla_scomplex *x, const bla_integer *incx) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; @@ -54,9 +54,9 @@ bla_integer info; bla_scomplex temp; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj, nounit; /* .. Scalar Arguments .. */ @@ -603,7 +603,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,tbsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_double *a, const bla_integer *lda, bla_double *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(d,tbsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_double *a, const bla_integer *lda, bla_double *x, const bla_integer *incx) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4; @@ -612,9 +612,9 @@ bla_integer info; bla_double temp; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical nounit; /* .. Scalar Arguments .. */ @@ -1018,7 +1018,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,tbsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_real *a, const bla_integer *lda, bla_real *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(s,tbsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_real *a, const bla_integer *lda, bla_real *x, const bla_integer *incx) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4; @@ -1027,9 +1027,9 @@ bla_integer info; bla_real temp; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical nounit; /* .. Scalar Arguments .. */ @@ -1433,7 +1433,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,tbsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_dcomplex *a, const bla_integer *lda, bla_dcomplex *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(z,tbsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_dcomplex *a, const bla_integer *lda, bla_dcomplex *x, const bla_integer *incx) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; @@ -1447,9 +1447,9 @@ bla_integer info; bla_dcomplex temp; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj, nounit; /* .. Scalar Arguments .. */ diff --git a/frame/compat/f2c/bla_tpmv.c b/frame/compat/f2c/bla_tpmv.c index eddd776d6..8fa46f4c4 100644 --- a/frame/compat/f2c/bla_tpmv.c +++ b/frame/compat/f2c/bla_tpmv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,tpmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_scomplex *ap, bla_scomplex *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(c,tpmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_scomplex *ap, bla_scomplex *x, const bla_integer *incx) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5; @@ -54,9 +54,9 @@ bla_integer info; bla_scomplex temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj, nounit; /* .. Scalar Arguments .. */ @@ -542,7 +542,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,tpmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_double *ap, bla_double *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(d,tpmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_double *ap, bla_double *x, const bla_integer *incx) { /* System generated locals */ bla_integer i__1, i__2; @@ -551,9 +551,9 @@ bla_integer info; bla_double temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical nounit; /* .. Scalar Arguments .. */ @@ -890,7 +890,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,tpmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_real *ap, bla_real *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(s,tpmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_real *ap, bla_real *x, const bla_integer *incx) { /* System generated locals */ bla_integer i__1, i__2; @@ -899,9 +899,9 @@ bla_integer info; bla_real temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical nounit; /* .. Scalar Arguments .. */ @@ -1238,7 +1238,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,tpmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_dcomplex *ap, bla_dcomplex *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(z,tpmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_dcomplex *ap, bla_dcomplex *x, const bla_integer *incx) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5; @@ -1251,9 +1251,9 @@ bla_integer info; bla_dcomplex temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj, nounit; /* .. Scalar Arguments .. */ diff --git a/frame/compat/f2c/bla_tpsv.c b/frame/compat/f2c/bla_tpsv.c index 8cb43f007..076494097 100644 --- a/frame/compat/f2c/bla_tpsv.c +++ b/frame/compat/f2c/bla_tpsv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,tpsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_scomplex *ap, bla_scomplex *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(c,tpsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_scomplex *ap, bla_scomplex *x, const bla_integer *incx) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5; @@ -54,9 +54,9 @@ bla_integer info; bla_scomplex temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj, nounit; /* .. Scalar Arguments .. */ @@ -534,7 +534,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,tpsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_double *ap, bla_double *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(d,tpsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_double *ap, bla_double *x, const bla_integer *incx) { /* System generated locals */ bla_integer i__1, i__2; @@ -543,9 +543,9 @@ bla_integer info; bla_double temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical nounit; /* .. Scalar Arguments .. */ @@ -885,7 +885,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,tpsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_real *ap, bla_real *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(s,tpsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_real *ap, bla_real *x, const bla_integer *incx) { /* System generated locals */ bla_integer i__1, i__2; @@ -894,9 +894,9 @@ bla_integer info; bla_real temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical nounit; /* .. Scalar Arguments .. */ @@ -1236,7 +1236,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,tpsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_dcomplex *ap, bla_dcomplex *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(z,tpsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_dcomplex *ap, bla_dcomplex *x, const bla_integer *incx) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5; @@ -1250,9 +1250,9 @@ bla_integer info; bla_dcomplex temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj, nounit; /* .. Scalar Arguments .. */ diff --git a/frame/compat/f2c/bla_xerbla.c b/frame/compat/f2c/bla_xerbla.c index 543e06fdb..a6500c443 100644 --- a/frame/compat/f2c/bla_xerbla.c +++ b/frame/compat/f2c/bla_xerbla.c @@ -43,7 +43,7 @@ /* Table of constant values */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(const bla_character *srname, const bla_integer *info, ftnlen srname_len) +/* Subroutine */ int PASTEF770(xerbla)(const bla_character *srname, const bla_integer *info, ftnlen srname_len) { /* -- LAPACK auxiliary routine (preliminary version) -- */ /* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., */ diff --git a/frame/include/bli_arch_config_pre.h b/frame/include/bli_arch_config_pre.h index 2fa61b0d0..1ab0561d8 100644 --- a/frame/include/bli_arch_config_pre.h +++ b/frame/include/bli_arch_config_pre.h @@ -58,15 +58,15 @@ // Prototype-generating macro for bli_cntx_init_*() functions. #define CNTX_INIT_PROTS( archname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(cntx_init_,archname) \ +void PASTEMAC(cntx_init_,archname) \ ( \ cntx_t* cntx \ ); \ -BLIS_EXPORT_BLIS void PASTEMAC2(cntx_init_,archname,BLIS_REF_SUFFIX) \ +void PASTEMAC2(cntx_init_,archname,BLIS_REF_SUFFIX) \ ( \ cntx_t* cntx \ ); \ -BLIS_EXPORT_BLIS void PASTEMAC2(cntx_init_,archname,BLIS_IND_SUFFIX) \ +void PASTEMAC2(cntx_init_,archname,BLIS_IND_SUFFIX) \ ( \ ind_t method, \ num_t dt, \ diff --git a/frame/include/bli_extern_defs.h b/frame/include/bli_extern_defs.h index d577de4bf..9773e5e69 100644 --- a/frame/include/bli_extern_defs.h +++ b/frame/include/bli_extern_defs.h @@ -35,28 +35,16 @@ #ifndef BLIS_EXTERN_DEFS_H #define BLIS_EXTERN_DEFS_H -#if !defined(BLIS_ENABLE_SHARED) || !defined(_MSC_VER) -#define BLIS_EXPORT -#else -// Windows builds require us to explicitly identify global variable symbols -// to be imported from the .dll. -#ifdef BLIS_IS_BUILDING_LIBRARY -#define BLIS_EXPORT __declspec(dllexport) -#else -#define BLIS_EXPORT __declspec(dllimport) -#endif -#endif +BLIS_EXPORT_BLIS extern obj_t BLIS_TWO; +BLIS_EXPORT_BLIS extern obj_t BLIS_ONE; +//BLIS_EXPORT_BLIS extern obj_t BLIS_ONE_HALF; +BLIS_EXPORT_BLIS extern obj_t BLIS_ZERO; +//BLIS_EXPORT_BLIS extern obj_t BLIS_MINUS_ONE_HALF; +BLIS_EXPORT_BLIS extern obj_t BLIS_MINUS_ONE; +BLIS_EXPORT_BLIS extern obj_t BLIS_MINUS_TWO; -BLIS_EXPORT extern obj_t BLIS_TWO; -BLIS_EXPORT extern obj_t BLIS_ONE; -//BLIS_EXPORT extern obj_t BLIS_ONE_HALF; -BLIS_EXPORT extern obj_t BLIS_ZERO; -//BLIS_EXPORT extern obj_t BLIS_MINUS_ONE_HALF; -BLIS_EXPORT extern obj_t BLIS_MINUS_ONE; -BLIS_EXPORT extern obj_t BLIS_MINUS_TWO; - -BLIS_EXPORT extern thrcomm_t BLIS_SINGLE_COMM; -BLIS_EXPORT extern thrinfo_t BLIS_PACKM_SINGLE_THREADED; -BLIS_EXPORT extern thrinfo_t BLIS_GEMM_SINGLE_THREADED; +BLIS_EXPORT_BLIS extern thrcomm_t BLIS_SINGLE_COMM; +BLIS_EXPORT_BLIS extern thrinfo_t BLIS_PACKM_SINGLE_THREADED; +BLIS_EXPORT_BLIS extern thrinfo_t BLIS_GEMM_SINGLE_THREADED; #endif diff --git a/frame/ind/bli_ind.h b/frame/ind/bli_ind.h index f3a8ea690..e0f1e9608 100644 --- a/frame/ind/bli_ind.h +++ b/frame/ind/bli_ind.h @@ -48,8 +48,8 @@ #include "bli_cntx_ind_stage.h" -BLIS_EXPORT_BLIS void bli_ind_init( void ); -BLIS_EXPORT_BLIS void bli_ind_finalize( void ); +void bli_ind_init( void ); +void bli_ind_finalize( void ); BLIS_EXPORT_BLIS void bli_ind_enable( ind_t method ); BLIS_EXPORT_BLIS void bli_ind_disable( ind_t method ); @@ -63,12 +63,12 @@ BLIS_EXPORT_BLIS void bli_ind_oper_enable_only( opid_t oper, ind_t method, num BLIS_EXPORT_BLIS bool_t bli_ind_oper_is_impl( opid_t oper, ind_t method ); //bool_t bli_ind_oper_has_avail( opid_t oper, num_t dt ); -BLIS_EXPORT_BLIS void* bli_ind_oper_get_avail( opid_t oper, num_t dt ); -BLIS_EXPORT_BLIS ind_t bli_ind_oper_find_avail( opid_t oper, num_t dt ); -BLIS_EXPORT_BLIS char* bli_ind_oper_get_avail_impl_string( opid_t oper, num_t dt ); +BLIS_EXPORT_BLIS void* bli_ind_oper_get_avail( opid_t oper, num_t dt ); +BLIS_EXPORT_BLIS ind_t bli_ind_oper_find_avail( opid_t oper, num_t dt ); +BLIS_EXPORT_BLIS char* bli_ind_oper_get_avail_impl_string( opid_t oper, num_t dt ); -BLIS_EXPORT_BLIS char* bli_ind_get_impl_string( ind_t method ); -BLIS_EXPORT_BLIS num_t bli_ind_map_cdt_to_index( num_t dt ); +char* bli_ind_get_impl_string( ind_t method ); +num_t bli_ind_map_cdt_to_index( num_t dt ); #endif diff --git a/frame/ind/bli_l3_ind.h b/frame/ind/bli_l3_ind.h index 454eb6240..693d3a4c2 100644 --- a/frame/ind/bli_l3_ind.h +++ b/frame/ind/bli_l3_ind.h @@ -40,7 +40,7 @@ #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void* PASTEMAC(opname,ind_get_avail)( num_t dt ); +void* PASTEMAC(opname,ind_get_avail)( num_t dt ); /*bool_t PASTEMAC(opname,ind_has_avail)( num_t dt ); */ GENPROT( gemm ) @@ -58,17 +58,17 @@ GENPROT( trsm ) //bool_t bli_l3_ind_oper_is_avail( opid_t oper, ind_t method, num_t dt ); -BLIS_EXPORT_BLIS ind_t bli_l3_ind_oper_find_avail( opid_t oper, num_t dt ); +ind_t bli_l3_ind_oper_find_avail( opid_t oper, num_t dt ); -BLIS_EXPORT_BLIS void bli_l3_ind_set_enable_dt( ind_t method, num_t dt, bool_t status ); +void bli_l3_ind_set_enable_dt( ind_t method, num_t dt, bool_t status ); -BLIS_EXPORT_BLIS void bli_l3_ind_oper_enable_only( opid_t oper, ind_t method, num_t dt ); -BLIS_EXPORT_BLIS void bli_l3_ind_oper_set_enable_all( opid_t oper, num_t dt, bool_t status ); +void bli_l3_ind_oper_enable_only( opid_t oper, ind_t method, num_t dt ); +void bli_l3_ind_oper_set_enable_all( opid_t oper, num_t dt, bool_t status ); -BLIS_EXPORT_BLIS void bli_l3_ind_oper_set_enable( opid_t oper, ind_t method, num_t dt, bool_t status ); -BLIS_EXPORT_BLIS bool_t bli_l3_ind_oper_get_enable( opid_t oper, ind_t method, num_t dt ); +void bli_l3_ind_oper_set_enable( opid_t oper, ind_t method, num_t dt, bool_t status ); +bool_t bli_l3_ind_oper_get_enable( opid_t oper, ind_t method, num_t dt ); -BLIS_EXPORT_BLIS void* bli_l3_ind_oper_get_func( opid_t oper, ind_t method ); +void* bli_l3_ind_oper_get_func( opid_t oper, ind_t method ); #endif diff --git a/frame/ind/cntx/bli_cntx_ind_stage.c b/frame/ind/cntx/bli_cntx_ind_stage.c index c48dbe234..671be681d 100644 --- a/frame/ind/cntx/bli_cntx_ind_stage.c +++ b/frame/ind/cntx/bli_cntx_ind_stage.c @@ -53,7 +53,7 @@ static void* bli_cntx_ind_stage_fp[BLIS_NUM_IND_METHODS] = // Execute the context initialization/finalization function associated // with a given induced method. -BLIS_EXPORT_BLIS void bli_cntx_ind_stage( ind_t method, dim_t stage, cntx_t* cntx ) +void bli_cntx_ind_stage( ind_t method, dim_t stage, cntx_t* cntx ) { cntx_stage_ft func = bli_cntx_ind_stage_fp[ method ]; @@ -69,7 +69,7 @@ BLIS_EXPORT_BLIS void bli_cntx_ind_stage( ind_t method, dim_t stage, cntx_t* cnt // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_cntx_3mh_stage( dim_t stage, cntx_t* cntx ) +void bli_cntx_3mh_stage( dim_t stage, cntx_t* cntx ) { // Set the pack_t schemas as a function of the stage of execution. if ( stage == 0 ) @@ -91,13 +91,13 @@ BLIS_EXPORT_BLIS void bli_cntx_3mh_stage( dim_t stage, cntx_t* cntx ) // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_cntx_3m1_stage( dim_t stage, cntx_t* cntx ) +void bli_cntx_3m1_stage( dim_t stage, cntx_t* cntx ) { } // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_cntx_4mh_stage( dim_t stage, cntx_t* cntx ) +void bli_cntx_4mh_stage( dim_t stage, cntx_t* cntx ) { // Set the pack_t schemas as a function of the stage of execution. if ( stage == 0 ) @@ -124,25 +124,25 @@ BLIS_EXPORT_BLIS void bli_cntx_4mh_stage( dim_t stage, cntx_t* cntx ) // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_cntx_4mb_stage( dim_t stage, cntx_t* cntx ) +void bli_cntx_4mb_stage( dim_t stage, cntx_t* cntx ) { } // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_cntx_4m1_stage( dim_t stage, cntx_t* cntx ) +void bli_cntx_4m1_stage( dim_t stage, cntx_t* cntx ) { } // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_cntx_1m_stage( dim_t stage, cntx_t* cntx ) +void bli_cntx_1m_stage( dim_t stage, cntx_t* cntx ) { } // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_cntx_nat_stage( dim_t stage, cntx_t* cntx ) +void bli_cntx_nat_stage( dim_t stage, cntx_t* cntx ) { } diff --git a/frame/ind/cntx/bli_cntx_ind_stage.h b/frame/ind/cntx/bli_cntx_ind_stage.h index d469319c3..124421665 100644 --- a/frame/ind/cntx/bli_cntx_ind_stage.h +++ b/frame/ind/cntx/bli_cntx_ind_stage.h @@ -32,13 +32,13 @@ */ -BLIS_EXPORT_BLIS void bli_cntx_ind_stage( ind_t method, dim_t stage, cntx_t* cntx ); +void bli_cntx_ind_stage( ind_t method, dim_t stage, cntx_t* cntx ); -BLIS_EXPORT_BLIS void bli_cntx_3mh_stage( dim_t stage, cntx_t* cntx ); -BLIS_EXPORT_BLIS void bli_cntx_3m1_stage( dim_t stage, cntx_t* cntx ); -BLIS_EXPORT_BLIS void bli_cntx_4mh_stage( dim_t stage, cntx_t* cntx ); -BLIS_EXPORT_BLIS void bli_cntx_4mb_stage( dim_t stage, cntx_t* cntx ); -BLIS_EXPORT_BLIS void bli_cntx_4m1_stage( dim_t stage, cntx_t* cntx ); -BLIS_EXPORT_BLIS void bli_cntx_1m_stage( dim_t stage, cntx_t* cntx ); -BLIS_EXPORT_BLIS void bli_cntx_nat_stage( dim_t stage, cntx_t* cntx ); +void bli_cntx_3mh_stage( dim_t stage, cntx_t* cntx ); +void bli_cntx_3m1_stage( dim_t stage, cntx_t* cntx ); +void bli_cntx_4mh_stage( dim_t stage, cntx_t* cntx ); +void bli_cntx_4mb_stage( dim_t stage, cntx_t* cntx ); +void bli_cntx_4m1_stage( dim_t stage, cntx_t* cntx ); +void bli_cntx_1m_stage( dim_t stage, cntx_t* cntx ); +void bli_cntx_nat_stage( dim_t stage, cntx_t* cntx ); diff --git a/frame/ind/oapi/bli_l3_3m4m1m_oapi.c b/frame/ind/oapi/bli_l3_3m4m1m_oapi.c index 9386a2738..087e1beef 100644 --- a/frame/ind/oapi/bli_l3_3m4m1m_oapi.c +++ b/frame/ind/oapi/bli_l3_3m4m1m_oapi.c @@ -40,7 +40,7 @@ #undef GENFRONT #define GENFRONT( opname, cname, imeth, nstage ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -147,7 +147,7 @@ GENFRONT( syr2k, gemm, 1m, 1 ) #undef GENFRONT #define GENFRONT( opname, cname, imeth, nstage ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ side_t side, \ obj_t* alpha, \ @@ -240,7 +240,7 @@ GENFRONT( trmm3, gemm, 1m, 1 ) #undef GENFRONT #define GENFRONT( opname, cname, imeth, nstage ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -323,7 +323,7 @@ GENFRONT( syrk, gemm, 1m, 1 ) #undef GENFRONT #define GENFRONT( opname, cname, imeth, nstage ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ side_t side, \ obj_t* alpha, \ @@ -387,7 +387,7 @@ GENFRONT( trmm, gemm, 1m, 1 ) #undef GENFRONT #define GENFRONT( opname, cname, imeth, nstage ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ side_t side, \ obj_t* alpha, \ diff --git a/frame/ind/oapi/bli_l3_ind_oapi.c b/frame/ind/oapi/bli_l3_ind_oapi.c index 87755e277..213753019 100644 --- a/frame/ind/oapi/bli_l3_ind_oapi.c +++ b/frame/ind/oapi/bli_l3_ind_oapi.c @@ -41,7 +41,7 @@ #undef GENFRONT #define GENFRONT( opname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -76,7 +76,7 @@ GENFRONT( syr2k, ind ) #undef GENFRONT #define GENFRONT( opname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ side_t side, \ obj_t* alpha, \ @@ -112,7 +112,7 @@ GENFRONT( trmm3, ind ) #undef GENFRONT #define GENFRONT( opname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -145,7 +145,7 @@ GENFRONT( syrk, ind ) #undef GENFRONT #define GENFRONT( opname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ side_t side, \ obj_t* alpha, \ diff --git a/frame/ind/oapi/bli_l3_nat_oapi.c b/frame/ind/oapi/bli_l3_nat_oapi.c index c45e74f12..52b7e98ad 100644 --- a/frame/ind/oapi/bli_l3_nat_oapi.c +++ b/frame/ind/oapi/bli_l3_nat_oapi.c @@ -46,7 +46,7 @@ #undef GENFRONT #define GENFRONT( opname, cname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -89,7 +89,7 @@ GENFRONT( syr2k, gemm, nat ) #undef GENFRONT #define GENFRONT( opname, cname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ side_t side, \ obj_t* alpha, \ @@ -129,7 +129,7 @@ GENFRONT( trmm3, gemm, nat ) #undef GENFRONT #define GENFRONT( opname, cname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -166,7 +166,7 @@ GENFRONT( syrk, gemm, nat ) #undef GENFRONT #define GENFRONT( opname, cname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ side_t side, \ obj_t* alpha, \ @@ -202,7 +202,7 @@ GENFRONT( trmm, gemm, nat ) #undef GENFRONT #define GENFRONT( opname, cname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ side_t side, \ obj_t* alpha, \ diff --git a/frame/ind/tapi/bli_l3_ind_tapi.c b/frame/ind/tapi/bli_l3_ind_tapi.c index 35060a572..9ca7746bc 100644 --- a/frame/ind/tapi/bli_l3_ind_tapi.c +++ b/frame/ind/tapi/bli_l3_ind_tapi.c @@ -40,7 +40,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ trans_t transa, \ trans_t transb, \ @@ -103,7 +103,7 @@ INSERT_GENTFUNC_BASIC0( gemm1m ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ side_t side, \ uplo_t uploa, \ @@ -170,7 +170,7 @@ INSERT_GENTFUNC_BASIC0( hemm1m ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -229,7 +229,7 @@ INSERT_GENTFUNCR_BASIC0( herk1m ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -295,7 +295,7 @@ INSERT_GENTFUNCR_BASIC0( her2k1m ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ side_t side, \ uplo_t uploa, \ @@ -362,7 +362,7 @@ INSERT_GENTFUNC_BASIC0( symm1m ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -420,7 +420,7 @@ INSERT_GENTFUNC_BASIC0( syrk1m ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -485,7 +485,7 @@ INSERT_GENTFUNC_BASIC0( syr2k1m ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ side_t side, \ uplo_t uploa, \ @@ -554,7 +554,7 @@ INSERT_GENTFUNC_BASIC0( trmm31m ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ side_t side, \ uplo_t uploa, \ @@ -611,7 +611,7 @@ INSERT_GENTFUNC_BASIC0( trmm1m ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ side_t side, \ uplo_t uploa, \ diff --git a/frame/ind/tapi/bli_l3_ind_tapi.h b/frame/ind/tapi/bli_l3_ind_tapi.h index 7c693cea0..49ff6a873 100644 --- a/frame/ind/tapi/bli_l3_ind_tapi.h +++ b/frame/ind/tapi/bli_l3_ind_tapi.h @@ -36,7 +36,7 @@ #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ trans_t transa, \ trans_t transb, \ @@ -63,7 +63,7 @@ INSERT_GENTPROT_BASIC0( gemm1m ) #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ side_t side, \ uplo_t uploa, \ @@ -90,7 +90,7 @@ INSERT_GENTPROT_BASIC0( hemm1m ) #undef GENTPROTR #define GENTPROTR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -116,7 +116,7 @@ INSERT_GENTPROTR_BASIC0( her2k1m ) #undef GENTPROTR #define GENTPROTR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -140,7 +140,7 @@ INSERT_GENTPROTR_BASIC0( herk1m ) #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ side_t side, \ uplo_t uploa, \ @@ -167,7 +167,7 @@ INSERT_GENTPROT_BASIC0( symm1m ) #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -193,7 +193,7 @@ INSERT_GENTPROT_BASIC0( syr2k1m ) #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -217,7 +217,7 @@ INSERT_GENTPROT_BASIC0( syrk1m ) #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ side_t side, \ uplo_t uploa, \ @@ -245,7 +245,7 @@ INSERT_GENTPROT_BASIC0( trmm31m ) #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ side_t side, \ uplo_t uploa, \ @@ -268,7 +268,7 @@ INSERT_GENTPROT_BASIC0( trmm1m ) #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ side_t side, \ uplo_t uploa, \ diff --git a/frame/ind/ukernels/bli_l3_ind_ukr.h b/frame/ind/ukernels/bli_l3_ind_ukr.h index 1b9e7bebc..53cb0b6f8 100644 --- a/frame/ind/ukernels/bli_l3_ind_ukr.h +++ b/frame/ind/ukernels/bli_l3_ind_ukr.h @@ -41,7 +41,7 @@ #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ dim_t k, \ ctype* restrict alpha, \ @@ -64,7 +64,7 @@ INSERT_GENTPROT_BASIC0( gemm1m_ukr_name ) #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ dim_t k, \ ctype* restrict alpha, \ @@ -88,7 +88,7 @@ INSERT_GENTPROT_BASIC0( gemmtrsm1m_u_ukr_name ) #undef GENTPROT #define GENTPROT( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ ctype* restrict a, \ ctype* restrict b, \ diff --git a/frame/thread/bli_pthread.h b/frame/thread/bli_pthread.h index 7fb47ff8c..56ede89b5 100644 --- a/frame/thread/bli_pthread.h +++ b/frame/thread/bli_pthread.h @@ -41,39 +41,82 @@ // This branch defines a pthread-like API, bli_pthread_*(), and implements it // in terms of Windows API calls. +// -- pthread_mutex_*() -- + typedef SRWLOCK bli_pthread_mutex_t; typedef void bli_pthread_mutexattr_t; #define BLIS_PTHREAD_MUTEX_INITIALIZER SRWLOCK_INIT -BLIS_EXPORT_BLIS int bli_pthread_mutex_init( bli_pthread_mutex_t* mutex, const bli_pthread_mutexattr_t *attr ); +BLIS_EXPORT_BLIS int bli_pthread_mutex_init + ( + bli_pthread_mutex_t* mutex, + const bli_pthread_mutexattr_t* attr + ); -BLIS_EXPORT_BLIS int bli_pthread_mutex_destroy( bli_pthread_mutex_t* mutex ); +BLIS_EXPORT_BLIS int bli_pthread_mutex_destroy + ( + bli_pthread_mutex_t* mutex + ); -BLIS_EXPORT_BLIS int bli_pthread_mutex_lock( bli_pthread_mutex_t* mutex ); +BLIS_EXPORT_BLIS int bli_pthread_mutex_lock + ( + bli_pthread_mutex_t* mutex + ); -BLIS_EXPORT_BLIS int bli_pthread_mutex_trylock( bli_pthread_mutex_t* mutex ); +BLIS_EXPORT_BLIS int bli_pthread_mutex_trylock + ( + bli_pthread_mutex_t* mutex + ); -BLIS_EXPORT_BLIS int bli_pthread_mutex_unlock( bli_pthread_mutex_t* mutex ); +BLIS_EXPORT_BLIS int bli_pthread_mutex_unlock + ( + bli_pthread_mutex_t* mutex + ); + +// -- pthread_once_*() -- typedef INIT_ONCE bli_pthread_once_t; #define BLIS_PTHREAD_ONCE_INIT INIT_ONCE_STATIC_INIT -BLIS_EXPORT_BLIS void bli_pthread_once( bli_pthread_once_t* once, void (*init)( void ) ); +BLIS_EXPORT_BLIS void bli_pthread_once + ( + bli_pthread_once_t* once, + void (*init)(void) + ); + +// -- pthread_cond_*() -- typedef CONDITION_VARIABLE bli_pthread_cond_t; typedef void bli_pthread_condattr_t; #define BLIS_PTHREAD_COND_INITIALIZER CONDITION_VARIABLE_INIT -BLIS_EXPORT_BLIS int bli_pthread_cond_init( bli_pthread_cond_t* cond, const bli_pthread_condattr_t* attr ); +BLIS_EXPORT_BLIS int bli_pthread_cond_init + ( + bli_pthread_cond_t* cond, + const bli_pthread_condattr_t* attr + ); -BLIS_EXPORT_BLIS int bli_pthread_cond_destroy( bli_pthread_cond_t* cond ); +BLIS_EXPORT_BLIS int bli_pthread_cond_destroy + ( + bli_pthread_cond_t* cond + ); -BLIS_EXPORT_BLIS int bli_pthread_cond_wait( bli_pthread_cond_t* cond, bli_pthread_mutex_t* mutex ); +BLIS_EXPORT_BLIS int bli_pthread_cond_wait + ( + bli_pthread_cond_t* cond, + bli_pthread_mutex_t* mutex + ); + +BLIS_EXPORT_BLIS int bli_pthread_cond_broadcast + ( + bli_pthread_cond_t* cond + ); + +// -- pthread_create(), pthread_join() -- -BLIS_EXPORT_BLIS int bli_pthread_cond_broadcast( bli_pthread_cond_t* cond ); typedef struct { HANDLE handle; @@ -82,11 +125,21 @@ typedef struct typedef void bli_pthread_attr_t; -BLIS_EXPORT_BLIS int bli_pthread_create( bli_pthread_t *thread, const bli_pthread_attr_t *attr, void* (*start_routine)( void* ), void *arg ); +BLIS_EXPORT_BLIS int bli_pthread_create + ( + bli_pthread_t* thread, + const bli_pthread_attr_t* attr, + void* (*start_routine)(void*), + void* arg + ); -BLIS_EXPORT_BLIS int bli_pthread_join( bli_pthread_t thread, void **retval ); +BLIS_EXPORT_BLIS int bli_pthread_join + ( + bli_pthread_t thread, + void** retval + ); -// barrier-related definitions +// -- pthread_barrier_*() -- typedef void bli_pthread_barrierattr_t; @@ -98,11 +151,22 @@ typedef struct int tripCount; } bli_pthread_barrier_t; -BLIS_EXPORT_BLIS int bli_pthread_barrier_init( bli_pthread_barrier_t *barrier, const bli_pthread_barrierattr_t *attr, unsigned int count ); +BLIS_EXPORT_BLIS int bli_pthread_barrier_init + ( + bli_pthread_barrier_t* barrier, + const bli_pthread_barrierattr_t* attr, + unsigned int count + ); -BLIS_EXPORT_BLIS int bli_pthread_barrier_destroy( bli_pthread_barrier_t *barrier ); +BLIS_EXPORT_BLIS int bli_pthread_barrier_destroy + ( + bli_pthread_barrier_t* barrier + ); -BLIS_EXPORT_BLIS int bli_pthread_barrier_wait( bli_pthread_barrier_t *barrier ); +BLIS_EXPORT_BLIS int bli_pthread_barrier_wait + ( + bli_pthread_barrier_t* barrier + ); #else // !defined(_MSC_VER) diff --git a/frame/thread/bli_thrcomm.h b/frame/thread/bli_thrcomm.h index ab5ebaabd..04bceae2a 100644 --- a/frame/thread/bli_thrcomm.h +++ b/frame/thread/bli_thrcomm.h @@ -44,7 +44,7 @@ // thread entry point prototype. -BLIS_EXPORT_BLIS void* bli_l3_thread_entry( void* data_void ); +void* bli_l3_thread_entry( void* data_void ); // thrcomm_t query (field only) @@ -56,14 +56,14 @@ static dim_t bli_thrcomm_num_threads( thrcomm_t* comm ) // Thread communicator prototypes. -BLIS_EXPORT_BLIS thrcomm_t* bli_thrcomm_create( rntm_t* rntm, dim_t n_threads ); -BLIS_EXPORT_BLIS void bli_thrcomm_free( rntm_t* rntm, thrcomm_t* comm ); -BLIS_EXPORT_BLIS void bli_thrcomm_init( dim_t n_threads, thrcomm_t* comm ); -BLIS_EXPORT_BLIS void bli_thrcomm_cleanup( thrcomm_t* comm ); -BLIS_EXPORT_BLIS void bli_thrcomm_barrier( dim_t thread_id, thrcomm_t* comm ); -BLIS_EXPORT_BLIS void* bli_thrcomm_bcast( dim_t inside_id, void* to_send, thrcomm_t* comm ); +thrcomm_t* bli_thrcomm_create( rntm_t* rntm, dim_t n_threads ); +void bli_thrcomm_free( rntm_t* rntm, thrcomm_t* comm ); +void bli_thrcomm_init( dim_t n_threads, thrcomm_t* comm ); +void bli_thrcomm_cleanup( thrcomm_t* comm ); +void bli_thrcomm_barrier( dim_t thread_id, thrcomm_t* comm ); +void* bli_thrcomm_bcast( dim_t inside_id, void* to_send, thrcomm_t* comm ); -BLIS_EXPORT_BLIS void bli_thrcomm_barrier_atomic( dim_t thread_id, thrcomm_t* comm ); +void bli_thrcomm_barrier_atomic( dim_t thread_id, thrcomm_t* comm ); #endif diff --git a/frame/thread/bli_thrcomm_openmp.h b/frame/thread/bli_thrcomm_openmp.h index da7921a01..4b8956a14 100644 --- a/frame/thread/bli_thrcomm_openmp.h +++ b/frame/thread/bli_thrcomm_openmp.h @@ -74,12 +74,12 @@ typedef struct thrcomm_s thrcomm_t; // Prototypes specific to tree barriers. #ifdef BLIS_TREE_BARRIER -BLIS_EXPORT_BLIS barrier_t* bli_thrcomm_tree_barrier_create( int num_threads, int arity, barrier_t** leaves, int leaf_index ); -BLIS_EXPORT_BLIS void bli_thrcomm_tree_barrier_free( barrier_t* barrier ); -BLIS_EXPORT_BLIS void bli_thrcomm_tree_barrier( barrier_t* barack ); +barrier_t* bli_thrcomm_tree_barrier_create( int num_threads, int arity, barrier_t** leaves, int leaf_index ); +void bli_thrcomm_tree_barrier_free( barrier_t* barrier ); +void bli_thrcomm_tree_barrier( barrier_t* barack ); #endif -BLIS_EXPORT_BLIS void bli_l3_thread_decorator_thread_check +void bli_l3_thread_decorator_thread_check ( dim_t n_threads, dim_t tid, diff --git a/frame/thread/bli_thread.h b/frame/thread/bli_thread.h index 0a5696cf6..6680f536e 100644 --- a/frame/thread/bli_thread.h +++ b/frame/thread/bli_thread.h @@ -49,8 +49,8 @@ #include "bli_l3_thrinfo.h" // Initialization-related prototypes. -BLIS_EXPORT_BLIS void bli_thread_init( void ); -BLIS_EXPORT_BLIS void bli_thread_finalize( void ); +void bli_thread_init( void ); +void bli_thread_finalize( void ); #ifdef _MSC_VER #define strerror_r(errno,buf,len) strerror_s(buf,len,errno) @@ -58,7 +58,7 @@ BLIS_EXPORT_BLIS void bli_thread_finalize( void ); // Thread range-related prototypes. -BLIS_EXPORT_BLIS void bli_thread_range_sub +void bli_thread_range_sub ( thrinfo_t* thread, dim_t n, @@ -71,7 +71,7 @@ BLIS_EXPORT_BLIS void bli_thread_range_sub #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS siz_t PASTEMAC0( opname ) \ +siz_t PASTEMAC0( opname ) \ ( \ dir_t direct, \ thrinfo_t* thr, \ @@ -90,7 +90,7 @@ GENPROT( thread_range_ndim ) #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS siz_t PASTEMAC0( opname ) \ +siz_t PASTEMAC0( opname ) \ ( \ thrinfo_t* thr, \ obj_t* a, \ @@ -110,7 +110,7 @@ GENPROT( thread_range_weighted_t2b ) GENPROT( thread_range_weighted_b2t ) -BLIS_EXPORT_BLIS dim_t bli_thread_range_width_l +dim_t bli_thread_range_width_l ( doff_t diagoff_j, dim_t m, @@ -122,13 +122,13 @@ BLIS_EXPORT_BLIS dim_t bli_thread_range_width_l double area_per_thr, bool_t handle_edge_low ); -BLIS_EXPORT_BLIS siz_t bli_find_area_trap_l +siz_t bli_find_area_trap_l ( dim_t m, dim_t n, doff_t diagoff ); -BLIS_EXPORT_BLIS siz_t bli_thread_range_weighted_sub +siz_t bli_thread_range_weighted_sub ( thrinfo_t* restrict thread, doff_t diagoff, @@ -158,7 +158,7 @@ typedef void (*l3int_t) ); // Level-3 thread decorator prototype -BLIS_EXPORT_BLIS void bli_l3_thread_decorator +void bli_l3_thread_decorator ( l3int_t func, opid_t family, @@ -182,17 +182,17 @@ typedef struct dim_t f; } bli_prime_factors_t; -BLIS_EXPORT_BLIS void bli_prime_factorization(dim_t n, bli_prime_factors_t* factors); +void bli_prime_factorization(dim_t n, bli_prime_factors_t* factors); -BLIS_EXPORT_BLIS dim_t bli_next_prime_factor(bli_prime_factors_t* factors); +dim_t bli_next_prime_factor(bli_prime_factors_t* factors); -BLIS_EXPORT_BLIS void bli_partition_2x2(dim_t nthread, dim_t work1, dim_t work2, dim_t* nt1, dim_t* nt2); +void bli_partition_2x2(dim_t nthread, dim_t work1, dim_t work2, dim_t* nt1, dim_t* nt2); // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS dim_t bli_gcd( dim_t x, dim_t y ); -BLIS_EXPORT_BLIS dim_t bli_lcm( dim_t x, dim_t y ); -BLIS_EXPORT_BLIS dim_t bli_ipow( dim_t base, dim_t power ); +dim_t bli_gcd( dim_t x, dim_t y ); +dim_t bli_lcm( dim_t x, dim_t y ); +dim_t bli_ipow( dim_t base, dim_t power ); // ----------------------------------------------------------------------------- @@ -211,7 +211,7 @@ BLIS_EXPORT_BLIS void bli_thread_set_num_threads( dim_t value ); BLIS_EXPORT_BLIS void bli_thread_init_rntm( rntm_t* rntm ); -BLIS_EXPORT_BLIS void bli_thread_init_rntm_from_env( rntm_t* rntm ); +void bli_thread_init_rntm_from_env( rntm_t* rntm ); // ----------------------------------------------------------------------------- diff --git a/frame/thread/bli_thrinfo.h b/frame/thread/bli_thrinfo.h index dfa4ad0d8..2b3d2e809 100644 --- a/frame/thread/bli_thrinfo.h +++ b/frame/thread/bli_thrinfo.h @@ -156,7 +156,7 @@ static void bli_thread_obarrier( thrinfo_t* t ) // Prototypes for level-3 thrinfo functions not specific to any operation. // -BLIS_EXPORT_BLIS thrinfo_t* bli_thrinfo_create +thrinfo_t* bli_thrinfo_create ( rntm_t* rntm, thrcomm_t* ocomm, @@ -168,7 +168,7 @@ BLIS_EXPORT_BLIS thrinfo_t* bli_thrinfo_create thrinfo_t* sub_node ); -BLIS_EXPORT_BLIS void bli_thrinfo_init +void bli_thrinfo_init ( thrinfo_t* thread, thrcomm_t* ocomm, @@ -180,12 +180,12 @@ BLIS_EXPORT_BLIS void bli_thrinfo_init thrinfo_t* sub_node ); -BLIS_EXPORT_BLIS void bli_thrinfo_init_single +void bli_thrinfo_init_single ( thrinfo_t* thread ); -BLIS_EXPORT_BLIS void bli_thrinfo_free +void bli_thrinfo_free ( rntm_t* rntm, thrinfo_t* thread @@ -193,14 +193,14 @@ BLIS_EXPORT_BLIS void bli_thrinfo_free // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_thrinfo_grow +void bli_thrinfo_grow ( rntm_t* rntm, cntl_t* cntl, thrinfo_t* thread ); -BLIS_EXPORT_BLIS thrinfo_t* bli_thrinfo_rgrow +thrinfo_t* bli_thrinfo_rgrow ( rntm_t* rntm, cntl_t* cntl_par, @@ -208,7 +208,7 @@ BLIS_EXPORT_BLIS thrinfo_t* bli_thrinfo_rgrow thrinfo_t* thread_par ); -BLIS_EXPORT_BLIS thrinfo_t* bli_thrinfo_create_for_cntl +thrinfo_t* bli_thrinfo_create_for_cntl ( rntm_t* rntm, cntl_t* cntl_par, @@ -216,7 +216,7 @@ BLIS_EXPORT_BLIS thrinfo_t* bli_thrinfo_create_for_cntl thrinfo_t* thread_par ); -BLIS_EXPORT_BLIS thrinfo_t* bli_thrinfo_rgrow_prenode +thrinfo_t* bli_thrinfo_rgrow_prenode ( rntm_t* rntm, cntl_t* cntl_par, @@ -224,7 +224,7 @@ BLIS_EXPORT_BLIS thrinfo_t* bli_thrinfo_rgrow_prenode thrinfo_t* thread_par ); -BLIS_EXPORT_BLIS thrinfo_t* bli_thrinfo_create_for_cntl_prenode +thrinfo_t* bli_thrinfo_create_for_cntl_prenode ( rntm_t* rntm, cntl_t* cntl_par, diff --git a/frame/util/bli_util_check.c b/frame/util/bli_util_check.c index 27a21279e..ae4ebb461 100644 --- a/frame/util/bli_util_check.c +++ b/frame/util/bli_util_check.c @@ -41,7 +41,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* asum \ @@ -56,7 +56,7 @@ GENFRONT( asumv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x \ ) \ @@ -72,7 +72,7 @@ GENFRONT( mktrim ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* norm \ @@ -89,7 +89,7 @@ GENFRONT( normiv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* norm \ @@ -106,7 +106,7 @@ GENFRONT( normim ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ FILE* file, \ char* s1, \ @@ -125,7 +125,7 @@ GENFRONT( fprintm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x \ ) \ @@ -142,7 +142,7 @@ GENFRONT( randnm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* scale, \ diff --git a/frame/util/bli_util_check.h b/frame/util/bli_util_check.h index fa5d230a1..a789211c9 100644 --- a/frame/util/bli_util_check.h +++ b/frame/util/bli_util_check.h @@ -40,7 +40,7 @@ #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* asum \ @@ -52,7 +52,7 @@ GENPROT( asumv ) #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x \ ); @@ -65,7 +65,7 @@ GENPROT( mktrim ) #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* norm \ @@ -79,7 +79,7 @@ GENPROT( normiv ) #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* norm \ @@ -93,7 +93,7 @@ GENPROT( normim ) #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ FILE* file, \ char* s1, \ @@ -109,7 +109,7 @@ GENPROT( fprintm ) #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x \ ); @@ -123,7 +123,7 @@ GENPROT( randnm ) #undef GENPROT #define GENPROT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* scale, \ @@ -135,36 +135,36 @@ GENPROT( sumsqv ) // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_utilv_xi_check +void bli_utilv_xi_check ( obj_t* x, obj_t* index ); -BLIS_EXPORT_BLIS void bli_utilv_xa_check +void bli_utilv_xa_check ( obj_t* x, obj_t* asum ); -BLIS_EXPORT_BLIS void bli_utilm_mkhst_check +void bli_utilm_mkhst_check ( obj_t* a ); -BLIS_EXPORT_BLIS void bli_utilv_norm_check +void bli_utilv_norm_check ( obj_t* x, obj_t* norm ); -BLIS_EXPORT_BLIS void bli_utilm_norm_check +void bli_utilm_norm_check ( obj_t* x, obj_t* norm ); -BLIS_EXPORT_BLIS void bli_utilm_fprint_check +void bli_utilm_fprint_check ( FILE* file, char* s1, @@ -173,12 +173,12 @@ BLIS_EXPORT_BLIS void bli_utilm_fprint_check char* s2 ); -BLIS_EXPORT_BLIS void bli_utilm_rand_check +void bli_utilm_rand_check ( obj_t* x ); -BLIS_EXPORT_BLIS void bli_utilv_sumsqv_check +void bli_utilv_sumsqv_check ( obj_t* x, obj_t* scale, diff --git a/frame/util/bli_util_fpa.h b/frame/util/bli_util_fpa.h index cdff4b07f..3eb2c4868 100644 --- a/frame/util/bli_util_fpa.h +++ b/frame/util/bli_util_fpa.h @@ -40,7 +40,7 @@ #define GENPROT( opname ) \ \ PASTECH2(opname,BLIS_TAPI_EX_SUF,_vft) \ -BLIS_EXPORT_BLIS PASTEMAC2(opname,BLIS_TAPI_EX_SUF,_qfp)( num_t dt ); +PASTEMAC2(opname,BLIS_TAPI_EX_SUF,_qfp)( num_t dt ); GENPROT( asumv ) GENPROT( mkherm ) @@ -67,7 +67,7 @@ GENPROT( sumsqv ) #define GENPROT( opname ) \ \ PASTECH(opname,_vft) \ -BLIS_EXPORT_BLIS PASTEMAC(opname,_qfp)( num_t dt ); +PASTEMAC(opname,_qfp)( num_t dt ); GENPROT( fprintv ) GENPROT( fprintm ) diff --git a/frame/util/bli_util_oapi.c b/frame/util/bli_util_oapi.c index b786a56dd..f9f9b4c93 100644 --- a/frame/util/bli_util_oapi.c +++ b/frame/util/bli_util_oapi.c @@ -43,7 +43,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* asum \ @@ -86,7 +86,7 @@ GENFRONT( asumv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* a \ BLIS_OAPI_EX_PARAMS \ @@ -130,7 +130,7 @@ GENFRONT( mktrim ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* norm \ @@ -174,7 +174,7 @@ GENFRONT( normiv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* norm \ @@ -227,7 +227,7 @@ GENFRONT( normim ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ FILE* file, \ char* s1, \ @@ -278,7 +278,7 @@ GENFRONT( fprintv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ FILE* file, \ char* s1, \ @@ -347,7 +347,7 @@ GENFRONT( fprintm ) #undef GENFRONT #define GENFRONT( opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ char* s1, \ obj_t* x, \ @@ -381,7 +381,7 @@ GENFRONT( printm, fprintm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x \ BLIS_OAPI_EX_PARAMS \ @@ -421,7 +421,7 @@ GENFRONT( randnv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x \ BLIS_OAPI_EX_PARAMS \ @@ -468,7 +468,7 @@ GENFRONT( randnm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* scale, \ diff --git a/frame/util/bli_util_tapi.c b/frame/util/bli_util_tapi.c index b069b3b27..6bef27d43 100644 --- a/frame/util/bli_util_tapi.c +++ b/frame/util/bli_util_tapi.c @@ -43,7 +43,7 @@ #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -84,7 +84,7 @@ INSERT_GENTFUNCR_BASIC0( asumv ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploa, \ dim_t m, \ @@ -122,7 +122,7 @@ INSERT_GENTFUNC_BASIC0( mktrim ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -165,7 +165,7 @@ INSERT_GENTFUNCR_BASIC0( normiv ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -216,7 +216,7 @@ INSERT_GENTFUNCR_BASIC0( normim ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ char* s1, \ dim_t n, \ @@ -244,7 +244,7 @@ INSERT_GENTFUNC_BASIC_I( printv, fprintv ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ char* s1, \ dim_t m, \ @@ -274,7 +274,7 @@ INSERT_GENTFUNC_BASIC_I( printm, fprintm ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ dim_t n, \ ctype* x, inc_t incx \ @@ -309,7 +309,7 @@ INSERT_GENTFUNC_BASIC0( randnv ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ uplo_t uplox, \ @@ -350,7 +350,7 @@ INSERT_GENTFUNC_BASIC0( randnm ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ diff --git a/frame/util/bli_util_unb_var1.c b/frame/util/bli_util_unb_var1.c index b688fbae5..203a63a1d 100644 --- a/frame/util/bli_util_unb_var1.c +++ b/frame/util/bli_util_unb_var1.c @@ -43,7 +43,7 @@ #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -87,7 +87,7 @@ INSERT_GENTFUNCR_BASIC0( asumv_unb_var1 ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ dim_t m, \ @@ -143,7 +143,7 @@ INSERT_GENTFUNCR_BASIC0( mkherm_unb_var1 ) #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ dim_t m, \ @@ -185,7 +185,7 @@ INSERT_GENTFUNC_BASIC0( mksymm_unb_var1 ) #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ dim_t m, \ @@ -230,7 +230,7 @@ INSERT_GENTFUNC_BASIC0( mktrim_unb_var1 ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -268,7 +268,7 @@ INSERT_GENTFUNCR_BASIC0( norm1v_unb_var1 ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -314,7 +314,7 @@ GENTFUNCR( dcomplex, double, z, d, normfv_unb_var1, sumsqv_unb_var1 ) #ifdef FE_OVERFLOW #define GENTFUNCR( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -393,7 +393,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ #else #define GENTFUNCR( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -439,7 +439,7 @@ GENTFUNCR( double, double, d, d, normfv_unb_var1, sumsqv_unb_var1 ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -485,7 +485,7 @@ INSERT_GENTFUNCR_BASIC0( normiv_unb_var1 ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -649,7 +649,7 @@ INSERT_GENTFUNCR_BASIC( norm1m_unb_var1, norm1v_unb_var1 ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -816,7 +816,7 @@ INSERT_GENTFUNCR_BASIC( normfm_unb_var1, sumsqv_unb_var1 ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -858,7 +858,7 @@ INSERT_GENTFUNCR_BASIC( normim_unb_var1, norm1m_unb_var1 ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ FILE* file, \ char* s1, \ @@ -895,7 +895,7 @@ INSERT_GENTFUNC_BASIC0_I( fprintv ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ FILE* file, \ char* s1, \ @@ -937,7 +937,7 @@ INSERT_GENTFUNC_BASIC0_I( fprintm ) #undef GENTFUNC #define GENTFUNC( ctype, ch, varname, randmac ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -965,7 +965,7 @@ INSERT_GENTFUNC_BASIC( randnv_unb_var1, randnp2s ) #undef GENTFUNC #define GENTFUNC( ctype, ch, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffx, \ uplo_t uplox, \ @@ -1118,7 +1118,7 @@ INSERT_GENTFUNC_BASIC( randnm_unb_var1, randnv ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ diff --git a/frame/util/bli_util_unb_var1.h b/frame/util/bli_util_unb_var1.h index 9f5838161..3fb517eec 100644 --- a/frame/util/bli_util_unb_var1.h +++ b/frame/util/bli_util_unb_var1.h @@ -40,7 +40,7 @@ #undef GENTPROTR #define GENTPROTR( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -55,7 +55,7 @@ INSERT_GENTPROTR_BASIC0( asumv_unb_var1 ) #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ dim_t m, \ @@ -72,7 +72,7 @@ INSERT_GENTPROT_BASIC0( mktrim_unb_var1 ) #undef GENTPROTR #define GENTPROTR( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -89,7 +89,7 @@ INSERT_GENTPROTR_BASIC0( normiv_unb_var1 ) #undef GENTPROTR #define GENTPROTR( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -143,7 +143,7 @@ INSERT_GENTPROT_BASIC0_I( fprintm ) #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -158,7 +158,7 @@ INSERT_GENTPROT_BASIC0( randnv_unb_var1 ) #undef GENTPROT #define GENTPROT( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffx, \ uplo_t uplox, \ @@ -176,7 +176,7 @@ INSERT_GENTPROT_BASIC0( randnm_unb_var1 ) #undef GENTPROTR #define GENTPROTR( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \