Add const attribute to lsame
This commit is contained in:
parent
e671d0386b
commit
802e71bf05
|
@ -38,7 +38,7 @@
|
||||||
|
|
||||||
#include <ctype.h>
|
#include <ctype.h>
|
||||||
|
|
||||||
int NAME(char *A, char *B){
|
int NAME(const char *A, const char *B){
|
||||||
|
|
||||||
char a = *A;
|
char a = *A;
|
||||||
char b = *B;
|
char b = *B;
|
||||||
|
|
|
@ -115,7 +115,7 @@ typedef lapack_logical (*LAPACK_Z_SELECT2)
|
||||||
( const lapack_complex_double*, const lapack_complex_double* );
|
( const lapack_complex_double*, const lapack_complex_double* );
|
||||||
|
|
||||||
#define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME)
|
#define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME)
|
||||||
lapack_logical LAPACK_lsame_base( char* ca, char* cb,
|
lapack_logical LAPACK_lsame_base( const char* ca, const char* cb,
|
||||||
lapack_int lca, lapack_int lcb
|
lapack_int lca, lapack_int lcb
|
||||||
#ifdef LAPACK_FORTRAN_STRLEN_END
|
#ifdef LAPACK_FORTRAN_STRLEN_END
|
||||||
, size_t, size_t
|
, size_t, size_t
|
||||||
|
|
Loading…
Reference in New Issue