Skip to content

Commit de2f9be

Browse files
committed
Fixed some minor suggestions from copilot
1 parent 5969737 commit de2f9be

1 file changed

Lines changed: 12 additions & 11 deletions

File tree

LAPACKE/src/lapacke_nancheck.c

Lines changed: 12 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -33,6 +33,7 @@
3333
#include "lapacke_utils.h"
3434

3535
#include <stdlib.h>
36+
#include <string.h>
3637

3738
static int nancheck_flag = -1;
3839

@@ -42,49 +43,49 @@ void LAPACKE_set_nancheck( int flag )
4243
}
4344

4445
typedef 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

Comments
 (0)