| // 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 BLASFUNC(xerbla)(const char* msg, EIGEN_BLAS_INT* info, size_t len) { |
| printf("Eigen BLAS ERROR #%i: %.*s\n", static_cast<int>(*info), static_cast<int>(len), msg); |
| } |
| |
| #ifdef __cplusplus |
| } |
| #endif |
