diff options
| author | Pauli Virtanen <pav@iki.fi> | 2019-12-07 14:40:48 +0200 |
|---|---|---|
| committer | Pauli Virtanen <pav@iki.fi> | 2019-12-14 14:14:37 +0200 |
| commit | 669cd13c692cfe8476e24dad3d42bbbd94547727 (patch) | |
| tree | c16e68e20ff92c8389c446c4e96eb6d39e8a164e /numpy/linalg/lapack_lite | |
| parent | a92039db1edf9d85059ddadc10134f434ae82ce7 (diff) | |
| download | numpy-669cd13c692cfe8476e24dad3d42bbbd94547727.tar.gz | |
ENH: update BLAS symbol suffix/prefix handling in cblasfuncs & linalg
Revise the BLAS name mangling to support the general scheme.
Diffstat (limited to 'numpy/linalg/lapack_lite')
| -rw-r--r-- | numpy/linalg/lapack_lite/python_xerbla.c | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/numpy/linalg/lapack_lite/python_xerbla.c b/numpy/linalg/lapack_lite/python_xerbla.c index c239a3620..4dbb92e1f 100644 --- a/numpy/linalg/lapack_lite/python_xerbla.c +++ b/numpy/linalg/lapack_lite/python_xerbla.c @@ -1,5 +1,6 @@ #include "Python.h" #include "numpy/npy_common.h" +#include "npy_cblas.h" #undef c_abs #include "f2c.h" @@ -21,7 +22,7 @@ info: Number of the invalid parameter. */ -int xerbla_(char *srname, integer *info) +CBLAS_INT BLAS_FUNC(xerbla)(char *srname, CBLAS_INT *info) { static const char format[] = "On entry to %.*s" \ " parameter number %d had an illegal value"; @@ -39,7 +40,7 @@ int xerbla_(char *srname, integer *info) #ifdef WITH_THREAD save = PyGILState_Ensure(); #endif - PyOS_snprintf(buf, sizeof(buf), format, len, srname, *info); + PyOS_snprintf(buf, sizeof(buf), format, len, srname, (int)*info); PyErr_SetString(PyExc_ValueError, buf); #ifdef WITH_THREAD PyGILState_Release(save); @@ -47,11 +48,3 @@ int xerbla_(char *srname, integer *info) return 0; } - - -/* Same for LAPACK64_ */ -npy_int64 xerbla_64_(char *srname, npy_int64 *info) -{ - integer info_int = (integer)*info; - return xerbla_(srname, &info_int); -} |