Fix cast to work with INTERFACE64 (especially on big-endian)
This commit is contained in:
parent
1031d161f6
commit
b1d722fc0c
|
@ -39,7 +39,7 @@ static char *rout;
|
||||||
|
|
||||||
static void F77_xerbla(char *srname, void *vinfo)
|
static void F77_xerbla(char *srname, void *vinfo)
|
||||||
{
|
{
|
||||||
int info=*(int*)vinfo;
|
blasint info=*(blasint*)vinfo;
|
||||||
|
|
||||||
if (link_xerbla)
|
if (link_xerbla)
|
||||||
{
|
{
|
||||||
|
@ -85,4 +85,4 @@ void set_xerbla(char* current_rout, int expected_info){
|
||||||
lerr = TRUE;
|
lerr = TRUE;
|
||||||
_info = expected_info;
|
_info = expected_info;
|
||||||
rout = current_rout;
|
rout = current_rout;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue