diff --git a/openmp/runtime/src/kmp_affinity.h b/openmp/runtime/src/kmp_affinity.h --- a/openmp/runtime/src/kmp_affinity.h +++ b/openmp/runtime/src/kmp_affinity.h @@ -62,7 +62,8 @@ } int error = errno; if (abort_on_error) { - __kmp_fatal(KMP_MSG(FatalSysError), KMP_ERR(error), __kmp_msg_null); + __kmp_fatal(KMP_MSG(FunctionError, "hwloc_get_cpubind()"), + KMP_ERR(error), __kmp_msg_null); } return error; } @@ -76,7 +77,8 @@ } int error = errno; if (abort_on_error) { - __kmp_fatal(KMP_MSG(FatalSysError), KMP_ERR(error), __kmp_msg_null); + __kmp_fatal(KMP_MSG(FunctionError, "hwloc_set_cpubind()"), + KMP_ERR(error), __kmp_msg_null); } return error; } @@ -95,7 +97,8 @@ return 0; error = errno; if (abort_on_error) - __kmp_fatal(KMP_MSG(FatalSysError), KMP_ERR(error), __kmp_msg_null); + __kmp_fatal(KMP_MSG(FunctionError, "hwloc_set_cpubind()"), + KMP_ERR(error), __kmp_msg_null); } return error; } @@ -372,7 +375,8 @@ } int error = errno; if (abort_on_error) { - __kmp_fatal(KMP_MSG(FatalSysError), KMP_ERR(error), __kmp_msg_null); + __kmp_fatal(KMP_MSG(FunctionError, "pthread_getaffinity_np()"), + KMP_ERR(error), __kmp_msg_null); } return error; } @@ -392,7 +396,8 @@ } int error = errno; if (abort_on_error) { - __kmp_fatal(KMP_MSG(FatalSysError), KMP_ERR(error), __kmp_msg_null); + __kmp_fatal(KMP_MSG(FunctionError, "pthread_setaffinity_np()"), + KMP_ERR(error), __kmp_msg_null); } return error; } diff --git a/openmp/runtime/src/kmp_runtime.cpp b/openmp/runtime/src/kmp_runtime.cpp --- a/openmp/runtime/src/kmp_runtime.cpp +++ b/openmp/runtime/src/kmp_runtime.cpp @@ -405,6 +405,8 @@ } #endif /* KMP_PRINT_DATA_PLACEMENT */ __kmp_release_bootstrap_lock(&__kmp_stdio_lock); + + va_end(ap); } void __kmp_warn(char const *format, ...) { diff --git a/openmp/runtime/src/kmp_settings.cpp b/openmp/runtime/src/kmp_settings.cpp --- a/openmp/runtime/src/kmp_settings.cpp +++ b/openmp/runtime/src/kmp_settings.cpp @@ -1467,7 +1467,7 @@ // taskloop threshold to switch from recursive to linear tasks creation static void __kmp_stg_parse_taskloop_min_tasks(char const *name, char const *value, void *data) { - int tmp; + int tmp = 0; __kmp_stg_parse_int(name, value, 0, INT_MAX, &tmp); __kmp_taskloop_min_tasks = tmp; } // __kmp_stg_parse_taskloop_min_tasks diff --git a/openmp/runtime/src/z_Linux_util.cpp b/openmp/runtime/src/z_Linux_util.cpp --- a/openmp/runtime/src/z_Linux_util.cpp +++ b/openmp/runtime/src/z_Linux_util.cpp @@ -1849,10 +1849,13 @@ va_start(args, format); FILE *f = fopen(path, "rb"); - if (f == NULL) + if (f == NULL) { + va_end(args); return 0; + } result = vfscanf(f, format, args); fclose(f); + va_end(args); return result; }