Merge pull request #3719 from ivan-pi/lsame
Add const attribute to C LAPACK lsame
This commit is contained in:
		
						commit
						0946b1ea7e
					
				| 
						 | 
					@ -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