| // SPDX-FileCopyrightText: The Eigen Authors | |
| // SPDX-License-Identifier: MPL-2.0 | |
| #include <stdio.h> | |
| #include "blas.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 void xerbla_(const char* msg, int* info, size_t len) { | |
| printf("Eigen BLAS ERROR #%i: %.*s\n", *info, static_cast<int>(len), msg); | |
| } | |
| #ifdef __cplusplus | |
| } | |
| #endif |