// 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