xref: /aosp_15_r20/external/eigen/blas/xerbla.cpp (revision bf2c37156dfe67e5dfebd6d394bad8b2ab5804d4) 
1*bf2c3715SXin Li 
2*bf2c3715SXin Li #include <stdio.h>
3*bf2c3715SXin Li 
4*bf2c3715SXin Li #if (defined __GNUC__) && (!defined __MINGW32__) && (!defined __CYGWIN__)
5*bf2c3715SXin Li #define EIGEN_WEAK_LINKING __attribute__ ((weak))
6*bf2c3715SXin Li #else
7*bf2c3715SXin Li #define EIGEN_WEAK_LINKING
8*bf2c3715SXin Li #endif
9*bf2c3715SXin Li 
10*bf2c3715SXin Li #ifdef __cplusplus
11*bf2c3715SXin Li extern "C"
12*bf2c3715SXin Li {
13*bf2c3715SXin Li #endif
14*bf2c3715SXin Li 
xerbla_(const char * msg,int * info,int)15*bf2c3715SXin Li EIGEN_WEAK_LINKING int xerbla_(const char * msg, int *info, int)
16*bf2c3715SXin Li {
17*bf2c3715SXin Li   printf("Eigen BLAS ERROR #%i: %s\n", *info, msg );
18*bf2c3715SXin Li   return 0;
19*bf2c3715SXin Li }
20*bf2c3715SXin Li 
21*bf2c3715SXin Li #ifdef __cplusplus
22*bf2c3715SXin Li }
23*bf2c3715SXin Li #endif
24