eigen/blas/xerbla.cpp


#include <stdio.h>

#if (defined __GNUC__) && (!defined __MINGW32__) && (!defined __CYGWIN__)
#define EIGEN_WEAK_LINKING __attribute__((weak))
#else
#define EIGEN_WEAK_LINKING
#endif

#ifdef __cplusplus
extern "C" {
#endif

EIGEN_WEAK_LINKING int xerbla_(const char *msg, int *info, int) {
  printf("Eigen BLAS ERROR #%i: %s\n", *info, msg);
  return 0;
}

#ifdef __cplusplus
}
#endif
blas: add a default implementation of xerbla 2010-03-02 21:50:41 +08:00
typo 2015-02-11 02:22:05 +08:00			`#include <stdio.h>`
blas: add a default implementation of xerbla 2010-03-02 21:50:41 +08:00
Cygwin does not like weak linking either. 2015-02-28 21:53:11 +08:00			`#if (defined __GNUC__) && (!defined __MINGW32__) && (!defined __CYGWIN__)`
Clang-format tests, examples, libraries, benchmarks, etc. 2023-12-06 05:22:55 +08:00			`#define EIGEN_WEAK_LINKING __attribute__((weak))`
enforce weak linking of xerbla 2011-12-11 02:30:36 +08:00			`#else`
			`#define EIGEN_WEAK_LINKING`
			`#endif`

blas: add a default implementation of xerbla 2010-03-02 21:50:41 +08:00			`#ifdef __cplusplus`
Clang-format tests, examples, libraries, benchmarks, etc. 2023-12-06 05:22:55 +08:00			`extern "C" {`
blas: add a default implementation of xerbla 2010-03-02 21:50:41 +08:00			`#endif`

Clang-format tests, examples, libraries, benchmarks, etc. 2023-12-06 05:22:55 +08:00			`EIGEN_WEAK_LINKING int xerbla_(const char msg, int info, int) {`
			`printf("Eigen BLAS ERROR #%i: %s\n", *info, msg);`
blas: add warnings for non implemented functions 2010-03-03 16:32:10 +08:00			`return 0;`
blas: add a default implementation of xerbla 2010-03-02 21:50:41 +08:00			`}`

			`#ifdef __cplusplus`
			`}`
			`#endif`