1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
Description: add alias for gemmtr to gemmt
Forwarded: https://github.com/flame/blis/issues/848
Index: blis/frame/compat/check/bla_gemmt_check.h
===================================================================
--- blis.orig/frame/compat/check/bla_gemmt_check.h 2025-01-26 19:34:49.035437399 +0000
+++ blis/frame/compat/check/bla_gemmt_check.h 2025-01-26 19:34:49.031437514 +0000
@@ -89,4 +89,7 @@
} \
}
+#define bla_gemmtr_check( dt_str, op_str, uploc, transa, transb, m, k, lda, ldb, ldc ) \
+ bla_gemmt_check( dt_str, op_str, uploc, transa, transb, m, k, lda, ldb, ldc )
+
#endif
Index: blis/frame/compat/extra/bla_gemmt.c
===================================================================
--- blis.orig/frame/compat/extra/bla_gemmt.c 2025-01-26 19:34:49.035437399 +0000
+++ blis/frame/compat/extra/bla_gemmt.c 2025-01-26 19:35:22.634470972 +0000
@@ -39,6 +39,8 @@
//
// Define BLAS-to-BLIS interfaces.
//
+#define STRINGIFY( name ) #name
+#define EXPAND_AND_STRINGIFY( name ) STRINGIFY( name )
#ifdef BLIS_BLAS3_CALLS_TAPI
@@ -118,7 +120,9 @@
\
/* Finalize BLIS. */ \
bli_finalize_auto(); \
-}
+} \
+void PASTEF77 (ch, blasname ## r )() \
+ __attribute__ ((alias(EXPAND_AND_STRINGIFY(PASTEF77(ch,blasname)))));
#else
@@ -221,7 +225,9 @@
\
/* Finalize BLIS. */ \
bli_finalize_auto(); \
-}
+} \
+void PASTEF77 (ch, blasname ## r )() \
+ __attribute__ ((alias(EXPAND_AND_STRINGIFY(PASTEF77(ch,blasname)))));
#endif
Index: blis/frame/compat/extra/bla_gemmt.h
===================================================================
--- blis.orig/frame/compat/extra/bla_gemmt.h 2025-01-26 19:34:49.035437399 +0000
+++ blis/frame/compat/extra/bla_gemmt.h 2025-01-26 19:34:49.035437399 +0000
@@ -56,5 +56,6 @@
#ifdef BLIS_ENABLE_BLAS
INSERT_GENTPROT_BLAS( gemmt )
+INSERT_GENTPROT_BLAS( gemmtr )
#endif
|
