3333#include "lapacke_utils.h"
3434
3535#include <stdlib.h>
36+ #include <string.h>
3637
3738static int nancheck_flag = -1 ;
3839
@@ -42,49 +43,49 @@ void LAPACKE_set_nancheck( int flag )
4243}
4344
4445typedef struct {
45- int found ;
46- char * value ;
47- } _lapacke_env_var ;
46+ int found ;
47+ char * value ;
48+ } lapacke_env_var ;
4849
49- static inline const _lapacke_env_var LAPACKE_getenv (const char * var_name )
50+ static inline lapacke_env_var LAPACKE_getenv (const char * var_name )
5051{
5152 size_t var_length = 0 ;
5253
5354 /* Get the length of the environment variable value */
5455#if defined(_WIN32 )
5556 errno_t result = getenv_s ( & var_length , NULL , 0 , var_name );
5657 if ( result != 0 || var_length == 0 ) {
57- return (_lapacke_env_var ){ 0 , NULL };
58+ return (lapacke_env_var ){ 0 , NULL };
5859 }
5960#else
6061 const char * env = getenv ( var_name );
6162 if ( env == NULL ) {
62- return (_lapacke_env_var ){ 0 , NULL };
63+ return (lapacke_env_var ){ 0 , NULL };
6364 }
6465 var_length = strlen ( env ) + 1 ;
6566#endif
6667
6768 /* Allocate memory for the environment variable value */
6869 char * value = (char * )LAPACKE_malloc ( var_length );
6970 if ( value == NULL ) {
70- return (_lapacke_env_var ){ 0 , NULL };
71+ return (lapacke_env_var ){ 0 , NULL };
7172 }
7273
7374 /* Get the value of the environment variable */
7475#if defined(_WIN32 )
7576 result = getenv_s ( & var_length , value , var_length , var_name );
7677 if ( result != 0 ) {
7778 LAPACKE_free ( value );
78- return (_lapacke_env_var ){ 0 , NULL };
79+ return (lapacke_env_var ){ 0 , NULL };
7980 }
8081#else
8182 memcpy ( value , env , var_length );
8283#endif
8384
84- return (_lapacke_env_var ){ 1 , value };
85+ return (lapacke_env_var ){ 1 , value };
8586}
8687
87- static inline void LAPACKE_freenv (_lapacke_env_var * var )
88+ static inline void LAPACKE_freenv (lapacke_env_var * var )
8889{
8990 if ( var -> found && var -> value != NULL ) {
9091 LAPACKE_free ( var -> value );
@@ -100,7 +101,7 @@ int LAPACKE_get_nancheck( )
100101 }
101102
102103 /* Check environment variable, once and only once */
103- _lapacke_env_var lapacke_nancheck = LAPACKE_getenv ( "LAPACKE_NANCHECK" );
104+ lapacke_env_var lapacke_nancheck = LAPACKE_getenv ( "LAPACKE_NANCHECK" );
104105 if ( !lapacke_nancheck .found ) {
105106 /* By default, NaN checking is enabled */
106107 nancheck_flag = 1 ;
0 commit comments