diff options
Diffstat (limited to 'openmp/runtime/src/kmp_environment.cpp')
-rw-r--r-- | openmp/runtime/src/kmp_environment.cpp | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/openmp/runtime/src/kmp_environment.cpp b/openmp/runtime/src/kmp_environment.cpp index 19c59be6cf23..b35027b57f03 100644 --- a/openmp/runtime/src/kmp_environment.cpp +++ b/openmp/runtime/src/kmp_environment.cpp @@ -236,7 +236,7 @@ void __kmp_env_unset(char const *name) { static void ___kmp_env_blk_parse_string(kmp_env_blk_t *block, // M: Env block to fill. char const *env // I: String to parse. - ) { +) { char const chr_delimiter = '|'; char const str_delimiter[] = {chr_delimiter, 0}; @@ -305,7 +305,7 @@ ___kmp_env_blk_parse_string(kmp_env_blk_t *block, // M: Env block to fill. static void ___kmp_env_blk_parse_windows( kmp_env_blk_t *block, // M: Env block to fill. char const *env // I: Pointer to Windows* OS (DOS) environment block. - ) { +) { char *bulk = NULL; kmp_env_var_t *vars = NULL; @@ -376,10 +376,11 @@ static void ___kmp_env_blk_parse_windows( { "HOME=/home/lev", "TERM=xterm", NULL } */ +#if KMP_OS_UNIX static void ___kmp_env_blk_parse_unix(kmp_env_blk_t *block, // M: Env block to fill. char **env // I: Unix environment to parse. - ) { +) { char *bulk = NULL; kmp_env_var_t *vars = NULL; int count = 0; @@ -423,10 +424,11 @@ ___kmp_env_blk_parse_unix(kmp_env_blk_t *block, // M: Env block to fill. block->vars = vars; block->count = count; } +#endif void __kmp_env_blk_init(kmp_env_blk_t *block, // M: Block to initialize. char const *bulk // I: Initialization string, or NULL. - ) { +) { if (bulk != NULL) { ___kmp_env_blk_parse_string(block, bulk); @@ -458,7 +460,7 @@ static int ___kmp_env_var_cmp( // Comparison function for qsort(). void __kmp_env_blk_sort( kmp_env_blk_t *block // M: Block of environment variables to sort. - ) { +) { qsort(CCAST(kmp_env_var_t *, block->vars), block->count, sizeof(kmp_env_var_t), @@ -468,7 +470,7 @@ void __kmp_env_blk_sort( void __kmp_env_blk_free( kmp_env_blk_t *block // M: Block of environment variables to free. - ) { +) { KMP_INTERNAL_FREE(CCAST(kmp_env_var_t *, block->vars)); __kmp_str_free(&(block->bulk)); @@ -479,10 +481,9 @@ void __kmp_env_blk_free( } // __kmp_env_blk_free char const * // R: Value of variable or NULL if variable does not exist. - __kmp_env_blk_var( - kmp_env_blk_t *block, // I: Block of environment variables. - char const *name // I: Name of variable to find. - ) { +__kmp_env_blk_var(kmp_env_blk_t *block, // I: Block of environment variables. + char const *name // I: Name of variable to find. +) { int i; for (i = 0; i < block->count; ++i) { |