Restoring authorship annotation for Anton Samokhvalov <pg83@yandex.ru>. Commit 1 of 2.

1 files changed, 974 insertions, 974 deletions

diff --git a/contrib/libs/cxxsupp/openmp/kmp_i18n.c b/contrib/libs/cxxsupp/openmp/kmp_i18n.c
index 8dad2553b0..3296624e17 100644
--- a/contrib/libs/cxxsupp/openmp/kmp_i18n.c
+++ b/contrib/libs/cxxsupp/openmp/kmp_i18n.c
@@ -1,974 +1,974 @@
-/*
- * kmp_i18n.c
- */
-
-
-//===----------------------------------------------------------------------===//
-//
-//                     The LLVM Compiler Infrastructure
-//
-// This file is dual licensed under the MIT and the University of Illinois Open
-// Source Licenses. See LICENSE.txt for details.
-//
-//===----------------------------------------------------------------------===//
-
-
-
-#include "kmp_i18n.h"
-
-#include "kmp_os.h"
-#include "kmp_debug.h"
-#include "kmp.h"
-#include "kmp_lock.h"
-#include "kmp_io.h"          // __kmp_printf.
-
-#include <stdio.h>
-#include <errno.h>
-#include <string.h>
-#include <locale.h>
-#include <stdarg.h>
-
-#include "kmp_i18n_default.inc"
-#include "kmp_str.h"
-#include "kmp_environment.h"
-
-#undef KMP_I18N_OK
-
-#define get_section( id )  ( (id) >> 16 )
-#define get_number( id )   ( (id) & 0xFFFF )
-
-kmp_msg_t           __kmp_msg_empty = { kmp_mt_dummy, 0, "", 0  };
-kmp_msg_t           __kmp_msg_null  = { kmp_mt_dummy, 0, NULL, 0 };
-static char const * no_message_available = "(No message available)";
-
-enum kmp_i18n_cat_status {
-    KMP_I18N_CLOSED,    // Not yet opened or closed.
-    KMP_I18N_OPENED,    // Opened successfully, ready to use.
-    KMP_I18N_ABSENT     // Opening failed, message catalog should not be used.
-}; // enum kmp_i18n_cat_status
-typedef enum kmp_i18n_cat_status  kmp_i18n_cat_status_t;
-static volatile kmp_i18n_cat_status_t  status = KMP_I18N_CLOSED;
-
-/*
-    Message catalog is opened at first usage, so we have to synchronize opening to avoid race and
-    multiple openings.
-
-    Closing does not require synchronization, because catalog is closed very late at library
-    shutting down, when no other threads are alive.
-*/
-
-static void __kmp_i18n_do_catopen();
-static kmp_bootstrap_lock_t  lock = KMP_BOOTSTRAP_LOCK_INITIALIZER( lock );
-    // `lock' variable may be placed into __kmp_i18n_catopen function because it is used only by
-    // that function. But we afraid a (buggy) compiler may treat it wrongly. So we put it outside of
-    // function just in case.
-
-void
-__kmp_i18n_catopen(
-) {
-    if ( status == KMP_I18N_CLOSED ) {
-        __kmp_acquire_bootstrap_lock( & lock );
-        if ( status == KMP_I18N_CLOSED ) {
-            __kmp_i18n_do_catopen();
-        }; // if
-        __kmp_release_bootstrap_lock( & lock );
-    }; // if
-} // func __kmp_i18n_catopen
-
-
-/*
-    ================================================================================================
-    Linux* OS and OS X* part.
-    ================================================================================================
-*/
-
-#if KMP_OS_UNIX
-#define KMP_I18N_OK
-
-#include <nl_types.h>
-
-#define KMP_I18N_NULLCAT ((nl_catd)( -1 ))
-static nl_catd       cat  = KMP_I18N_NULLCAT;    // !!! Shall it be volatile?
-static char const *  name = ( KMP_VERSION_MAJOR == 4 ? "libguide.cat" : "libomp.cat" );
-
-/*
-    Useful links:
-        http://www.opengroup.org/onlinepubs/000095399/basedefs/xbd_chap08.html#tag_08_02
-        http://www.opengroup.org/onlinepubs/000095399/functions/catopen.html
-        http://www.opengroup.org/onlinepubs/000095399/functions/setlocale.html
-*/
-
-void
-__kmp_i18n_do_catopen(
-) {
-    int    english = 0;
-    char * lang    = __kmp_env_get( "LANG" );
-    // TODO: What about LC_ALL or LC_MESSAGES?
-
-    KMP_DEBUG_ASSERT( status == KMP_I18N_CLOSED );
-    KMP_DEBUG_ASSERT( cat    == KMP_I18N_NULLCAT );
-
-    english =
-	lang == NULL                       ||  // In all these cases English language is used.
-	strcmp( lang, "" )            == 0 ||
-        strcmp( lang, " " )           == 0 ||
-              // Workaround for Fortran RTL bug DPD200137873 "Fortran runtime resets LANG env var
-              // to space if it is not set".
-	strcmp( lang, "C" )           == 0 ||
-	strcmp( lang, "POSIX" )       == 0;
-
-    if ( ! english ) {  // English language is not yet detected, let us continue.
-        // Format of LANG is: [language[_territory][.codeset][@modifier]]
-        // Strip all parts except language.
-        char * tail = NULL;
-        __kmp_str_split( lang, '@', & lang, & tail );
-        __kmp_str_split( lang, '.', & lang, & tail );
-        __kmp_str_split( lang, '_', & lang, & tail );
-        english = ( strcmp( lang, "en" ) == 0 );
-    }; // if
-
-    KMP_INTERNAL_FREE( lang );
-
-    // Do not try to open English catalog because internal messages are
-    // exact copy of messages in English catalog.
-    if ( english ) {
-	status = KMP_I18N_ABSENT;  // mark catalog as absent so it will not be re-opened.
-	return;
-    }
-
-    cat = catopen( name, 0 );
-    // TODO: Why do we pass 0 in flags?
-    status = ( cat == KMP_I18N_NULLCAT ? KMP_I18N_ABSENT : KMP_I18N_OPENED );
-
-    if ( status == KMP_I18N_ABSENT ) {
-      if (__kmp_generate_warnings > kmp_warnings_low) { // AC: only issue warning in case explicitly asked to
-        int    error   = errno; // Save errno immediately.
-	char * nlspath = __kmp_env_get( "NLSPATH" );
-        char * lang    = __kmp_env_get( "LANG" );
-
-	// Infinite recursion will not occur -- status is KMP_I18N_ABSENT now, so
-	// __kmp_i18n_catgets() will not try to open catalog, but will return default message.
-	__kmp_msg(
-	    kmp_ms_warning,
-	    KMP_MSG( CantOpenMessageCatalog, name ),
-	    KMP_ERR( error ),
-	    KMP_HNT( CheckEnvVar, "NLSPATH", nlspath ),
-            KMP_HNT( CheckEnvVar, "LANG", lang ),
-	    __kmp_msg_null
-	);
-	KMP_INFORM( WillUseDefaultMessages );
-        KMP_INTERNAL_FREE( nlspath );
-        KMP_INTERNAL_FREE( lang );
-      }
-    } else { // status == KMP_I18N_OPENED
-
-        int section = get_section( kmp_i18n_prp_Version );
-        int number  = get_number( kmp_i18n_prp_Version );
-        char const * expected = __kmp_i18n_default_table.sect[ section ].str[ number ];
-            // Expected version of the catalog.
-        kmp_str_buf_t version;   // Actual version of the catalog.
-        __kmp_str_buf_init( & version );
-        __kmp_str_buf_print( & version, "%s", catgets( cat, section, number, NULL ) );
-
-            // String returned by catgets is invalid after closing the catalog, so copy it.
-        if ( strcmp( version.str, expected ) != 0 ) {
-            __kmp_i18n_catclose();     // Close bad catalog.
-            status = KMP_I18N_ABSENT;  // And mark it as absent.
-            if (__kmp_generate_warnings > kmp_warnings_low) { // AC: only issue warning in case explicitly asked to
-                // And now print a warning using default messages.
-                char const * name    = "NLSPATH";
-                char const * nlspath = __kmp_env_get( name );
-                __kmp_msg(
-                    kmp_ms_warning,
-                    KMP_MSG( WrongMessageCatalog, name, version.str, expected ),
-                    KMP_HNT( CheckEnvVar, name, nlspath ),
-                    __kmp_msg_null
-                );
-                KMP_INFORM( WillUseDefaultMessages );
-                KMP_INTERNAL_FREE( (void *) nlspath );
-            } // __kmp_generate_warnings
-        }; // if
-        __kmp_str_buf_free( & version );
-
-    }; // if
-
-} // func __kmp_i18n_do_catopen
-
-
-void
-__kmp_i18n_catclose(
-) {
-    if ( status == KMP_I18N_OPENED ) {
-        KMP_DEBUG_ASSERT( cat != KMP_I18N_NULLCAT );
-        catclose( cat );
-        cat = KMP_I18N_NULLCAT;
-    }; // if
-    status = KMP_I18N_CLOSED;
-} // func __kmp_i18n_catclose
-
-
-char const *
-__kmp_i18n_catgets(
-    kmp_i18n_id_t  id
-) {
-
-    int section = get_section( id );
-    int number  = get_number( id );
-    char const * message = NULL;
-
-    if ( 1 <= section && section <= __kmp_i18n_default_table.size ) {
-        if ( 1 <= number && number <= __kmp_i18n_default_table.sect[ section ].size ) {
-            if ( status == KMP_I18N_CLOSED ) {
-                __kmp_i18n_catopen();
-            }; // if
-            if ( status == KMP_I18N_OPENED ) {
-                message =
-                    catgets(
-                        cat,
-                        section, number,
-                        __kmp_i18n_default_table.sect[ section ].str[ number ]
-                    );
-            }; // if
-            if ( message == NULL ) {
-                message = __kmp_i18n_default_table.sect[ section ].str[ number ];
-            }; // if
-        }; // if
-    }; // if
-    if ( message == NULL ) {
-        message = no_message_available;
-    }; // if
-    return message;
-
-} // func __kmp_i18n_catgets
-
-
-#endif // KMP_OS_UNIX
-
-/*
-    ================================================================================================
-    Windows* OS part.
-    ================================================================================================
-*/
-
-#if KMP_OS_WINDOWS
-#define KMP_I18N_OK
-
-#include "kmp_environment.h"
-#include <windows.h>
-
-#define KMP_I18N_NULLCAT  NULL
-static HMODULE       cat  = KMP_I18N_NULLCAT;    // !!! Shall it be volatile?
-static char const *  name = ( KMP_VERSION_MAJOR == 4 ? "libguide40ui.dll" : "libompui.dll" );
-
-static kmp_i18n_table_t  table             = { 0, NULL };
-    // Messages formatted by FormatMessage() should be freed, but catgets() interface assumes
-    // user will not free messages. So we cache all the retrieved messages in the table, which
-    // are freed at catclose().
-static UINT const        default_code_page = CP_OEMCP;
-static UINT              code_page         = default_code_page;
-
-static char const * ___catgets( kmp_i18n_id_t  id );
-static UINT         get_code_page();
-static void         kmp_i18n_table_free( kmp_i18n_table_t * table );
-
-
-static UINT
-get_code_page(
-) {
-
-    UINT cp = default_code_page;
-    char const * value = __kmp_env_get( "KMP_CODEPAGE" );
-    if ( value != NULL ) {
-        if ( _stricmp( value, "ANSI" ) == 0 ) {
-            cp = CP_ACP;
-        } else if ( _stricmp( value, "OEM" ) == 0 ) {
-            cp = CP_OEMCP;
-        } else if ( _stricmp( value, "UTF-8" ) == 0 || _stricmp( value, "UTF8" ) == 0 ) {
-            cp = CP_UTF8;
-        } else if ( _stricmp( value, "UTF-7" ) == 0 || _stricmp( value, "UTF7" ) == 0 ) {
-            cp = CP_UTF7;
-        } else {
-            // !!! TODO: Issue a warning?
-        }; // if
-    }; // if
-    KMP_INTERNAL_FREE( (void *) value );
-    return cp;
-
-} // func get_code_page
-
-
-static void
-kmp_i18n_table_free(
-    kmp_i18n_table_t * table
-) {
-    int s;
-    int m;
-    for ( s = 0; s < table->size; ++ s ) {
-        for ( m = 0; m < table->sect[ s ].size; ++ m ) {
-            // Free message.
-            KMP_INTERNAL_FREE( (void *) table->sect[ s ].str[ m ] );
-            table->sect[ s ].str[ m ] = NULL;
-        }; // for m
-        table->sect[ s ].size = 0;
-        // Free section itself.
-        KMP_INTERNAL_FREE ( (void *) table->sect[ s ].str );
-        table->sect[ s ].str = NULL;
-    }; // for s
-    table->size = 0;
-    KMP_INTERNAL_FREE( (void *) table->sect );
-    table->sect = NULL;
-} // kmp_i8n_table_free
-
-
-void
-__kmp_i18n_do_catopen(
-) {
-
-    LCID          locale_id = GetThreadLocale();
-    WORD 	  lang_id = LANGIDFROMLCID( locale_id );
-    WORD          primary_lang_id = PRIMARYLANGID( lang_id );
-    kmp_str_buf_t path;
-
-    KMP_DEBUG_ASSERT( status == KMP_I18N_CLOSED );
-    KMP_DEBUG_ASSERT( cat    == KMP_I18N_NULLCAT );
-
-    __kmp_str_buf_init( & path );
-
-    // Do not try to open English catalog because internal messages are
-    // exact copy of messages in English catalog.
-    if ( primary_lang_id == LANG_ENGLISH ) {
-	status = KMP_I18N_ABSENT;  // mark catalog as absent so it will not be re-opened.
-	goto end;
-    }; // if
-
-    // Construct resource DLL name.
-    /*
-        Simple
-            LoadLibrary( name )
-        is not suitable due to security issue (see
-        http://www.microsoft.com/technet/security/advisory/2269637.mspx). We have to specify full
-        path to the message catalog.
-    */
-    {
-
-        // Get handle of our DLL first.
-        HMODULE handle;
-        BOOL brc =
-            GetModuleHandleEx(
-                GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS | GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT,
-                reinterpret_cast< LPCSTR >( & __kmp_i18n_do_catopen ),
-                & handle
-            );
-        if ( ! brc ) {    // Error occurred.
-            status = KMP_I18N_ABSENT;  // mark catalog as absent so it will not be re-opened.
-            goto end;
-            // TODO: Enable multiple messages (KMP_MSG) to be passed to __kmp_msg; and print
-            // a proper warning.
-        }; // if
-
-        // Now get path to the our DLL.
-        for ( ; ; ) {
-            DWORD drc = GetModuleFileName( handle, path.str, path.size );
-            if ( drc == 0 ) {    // Error occurred.
-                status = KMP_I18N_ABSENT;
-                goto end;
-            }; // if
-            if ( drc < path.size ) {
-                path.used = drc;
-                break;
-            }; // if
-            __kmp_str_buf_reserve( & path, path.size * 2 );
-        }; // forever
-
-        // Now construct the name of message catalog.
-        kmp_str_fname fname;
-        __kmp_str_fname_init( & fname, path.str );
-        __kmp_str_buf_clear( & path );
-        __kmp_str_buf_print( & path, "%s%lu/%s", fname.dir, (unsigned long)( locale_id ), name );
-        __kmp_str_fname_free( & fname );
-
-    }
-
-    // For security reasons, use LoadLibraryEx() and load message catalog as a data file.
-    cat = LoadLibraryEx( path.str, NULL, LOAD_LIBRARY_AS_DATAFILE );
-    status = ( cat == KMP_I18N_NULLCAT ? KMP_I18N_ABSENT : KMP_I18N_OPENED );
-
-    if ( status == KMP_I18N_ABSENT ) {
-      if (__kmp_generate_warnings > kmp_warnings_low) { // AC: only issue warning in case explicitly asked to
-	DWORD error = GetLastError();
-	// Infinite recursion will not occur -- status is KMP_I18N_ABSENT now, so
-	// __kmp_i18n_catgets() will not try to open catalog but will return default message.
-        /*
-         If message catalog for another architecture found (e.g. OpenMP RTL
-	 for IA-32 architecture opens libompui.dll for Intel(R) 64)
-	 Windows* OS returns error 193 (ERROR_BAD_EXE_FORMAT). However,
-         FormatMessage fails to return a message for this error, so user
-	 will see:
-
-         OMP: Warning #2: Cannot open message catalog "1041\libompui.dll":
-         OMP: System error #193: (No system error message available)
-         OMP: Info #3: Default messages will be used.
-
-         Issue a hint in this case to let cause of trouble more understandable.
-        */
-	__kmp_msg(
-	    kmp_ms_warning,
-	    KMP_MSG( CantOpenMessageCatalog, path.str ),
-	    KMP_SYSERRCODE( error ),
-            ( error == ERROR_BAD_EXE_FORMAT ? KMP_HNT( BadExeFormat, path.str, KMP_ARCH_STR ) : __kmp_msg_null ),
-	    __kmp_msg_null
-	);
-	KMP_INFORM( WillUseDefaultMessages );
-      }
-    } else { // status == KMP_I18N_OPENED
-
-        int section = get_section( kmp_i18n_prp_Version );
-        int number  = get_number( kmp_i18n_prp_Version );
-        char const * expected = __kmp_i18n_default_table.sect[ section ].str[ number ];
-        kmp_str_buf_t version;   // Actual version of the catalog.
-        __kmp_str_buf_init( & version );
-        __kmp_str_buf_print( & version, "%s", ___catgets( kmp_i18n_prp_Version ) );
-            // String returned by catgets is invalid after closing the catalog, so copy it.
-        if ( strcmp( version.str, expected ) != 0 ) {
-            // Close bad catalog.
-            __kmp_i18n_catclose();
-            status = KMP_I18N_ABSENT;  // And mark it as absent.
-            if (__kmp_generate_warnings > kmp_warnings_low) {
-                // And now print a warning using default messages.
-                __kmp_msg(
-                    kmp_ms_warning,
-                    KMP_MSG( WrongMessageCatalog, path.str, version.str, expected ),
-                    __kmp_msg_null
-                );
-                KMP_INFORM( WillUseDefaultMessages );
-            } // __kmp_generate_warnings
-        }; // if
-        __kmp_str_buf_free( & version );
-
-    }; // if
-    code_page = get_code_page();
-
-    end:
-        __kmp_str_buf_free( & path );
-        return;
-
-} // func __kmp_i18n_do_catopen
-
-
-void
-__kmp_i18n_catclose(
-) {
-    if ( status == KMP_I18N_OPENED ) {
-        KMP_DEBUG_ASSERT( cat != KMP_I18N_NULLCAT );
-        kmp_i18n_table_free( & table );
-        FreeLibrary( cat );
-        cat = KMP_I18N_NULLCAT;
-    }; // if
-    code_page = default_code_page;
-    status = KMP_I18N_CLOSED;
-} // func __kmp_i18n_catclose
-
-/*
-    We use FormatMessage() to get strings from catalog, get system error messages, etc.
-    FormatMessage() tends to return Windows* OS-style end-of-lines, "\r\n". When string is printed,
-    printf() also replaces all the occurrences of "\n" with "\r\n" (again!), so sequences like
-    "\r\r\r\n" appear in output. It is not too good.
-
-    Additional mess comes from message catalog: Our catalog source en_US.mc file (generated by
-    message-converter.pl) contains only "\n" characters, but en_US_msg_1033.bin file (produced by
-    mc.exe) may contain "\r\n" or just "\n". This mess goes from en_US_msg_1033.bin file to
-    message catalog, libompui.dll. For example, message
-
-        Error
-
-    (there is "\n" at the end) is compiled by mc.exe to "Error\r\n", while
-
-        OMP: Error %1!d!: %2!s!\n
-
-    (there is "\n" at the end as well) is compiled to "OMP: Error %1!d!: %2!s!\r\n\n".
-
-    Thus, stripping all "\r" normalizes string and returns it to canonical form, so printf() will
-    produce correct end-of-line sequences.
-
-    ___strip_crs() serves for this purpose: it removes all the occurrences of "\r" in-place and
-    returns new length of string.
-*/
-static
-int
-___strip_crs(
-    char * str
-) {
-    int in  = 0;  // Input character index.
-    int out = 0;  // Output character index.
-    for ( ; ; ) {
-        if ( str[ in ] != '\r' ) {
-            str[ out ] = str[ in ];
-            ++ out;
-        }; // if
-        if ( str[ in ] == 0 ) {
-            break;
-        }; // if
-        ++ in;
-    }; // forever
-    return out - 1;
-} // func __strip_crs
-
-
-static
-char const *
-___catgets(
-    kmp_i18n_id_t  id
-) {
-
-    char *    result = NULL;
-    PVOID     addr   = NULL;
-    wchar_t * wmsg   = NULL;
-    DWORD     wlen   = 0;
-    char *    msg    = NULL;
-    int       len    = 0;
-    int       rc;
-
-    KMP_DEBUG_ASSERT( cat != KMP_I18N_NULLCAT );
-    wlen =    // wlen does *not* include terminating null.
-        FormatMessageW(
-            FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_HMODULE |
-                FORMAT_MESSAGE_IGNORE_INSERTS,
-            cat,
-            id,
-            0,             // LangId
-            (LPWSTR) & addr,
-            0,             // Size in elements, not in bytes.
-            NULL
-        );
-    if ( wlen <= 0 ) {
-        goto end;
-    }; // if
-    wmsg = (wchar_t *) addr;  // Warning: wmsg may be not nul-terminated!
-
-    // Calculate length of multibyte message.
-    len =     // Since wlen does not include terminating null, len does not include it also.
-        WideCharToMultiByte(
-            code_page,
-            0,                // Flags.
-            wmsg, wlen,       // Wide buffer and size.
-            NULL, 0,          // Buffer and size.
-            NULL, NULL        // Default char and used default char.
-        );
-    if ( len <= 0 ) {
-        goto end;
-    }; // if
-
-    // Allocate memory.
-    msg = (char *) KMP_INTERNAL_MALLOC( len + 1 );
-
-    // Convert wide message to multibyte one.
-    rc =
-        WideCharToMultiByte(
-            code_page,
-            0,                // Flags.
-            wmsg, wlen,       // Wide buffer and size.
-            msg, len,         // Buffer and size.
-            NULL, NULL        // Default char and used default char.
-        );
-    if ( rc <= 0 || rc > len ) {
-        goto end;
-    }; // if
-    KMP_DEBUG_ASSERT( rc == len );
-    len = rc;
-    msg[ len ] = 0;           // Put terminating null to the end.
-
-    // Stripping all "\r" before stripping last end-of-line simplifies the task.
-    len = ___strip_crs( msg );
-
-    // Every message in catalog is terminated with "\n". Strip it.
-    if ( len >= 1 && msg[ len - 1 ] == '\n' ) {
-        -- len;
-        msg[ len ] = 0;
-    }; // if
-
-    // Everything looks ok.
-    result = msg;
-    msg    = NULL;
-
-    end:
-
-    if ( msg != NULL ) {
-        KMP_INTERNAL_FREE( msg );
-    }; // if
-    if ( wmsg != NULL ) {
-        LocalFree( wmsg );
-    }; // if
-
-    return result;
-
-} // ___catgets
-
-
-char const *
-__kmp_i18n_catgets(
-    kmp_i18n_id_t  id
-) {
-
-    int section = get_section( id );
-    int number  = get_number( id );
-    char const * message = NULL;
-
-    if ( 1 <= section && section <= __kmp_i18n_default_table.size ) {
-        if ( 1 <= number && number <= __kmp_i18n_default_table.sect[ section ].size ) {
-            if ( status == KMP_I18N_CLOSED ) {
-                __kmp_i18n_catopen();
-            }; // if
-            if ( cat != KMP_I18N_NULLCAT ) {
-                if ( table.size == 0 ) {
-                    table.sect = (kmp_i18n_section_t *)
-                        KMP_INTERNAL_CALLOC(
-                            ( __kmp_i18n_default_table.size + 2 ),
-                            sizeof( kmp_i18n_section_t )
-                        );
-                    table.size = __kmp_i18n_default_table.size;
-                }; // if
-                if ( table.sect[ section ].size == 0 ) {
-                    table.sect[ section ].str = (const char **)
-                        KMP_INTERNAL_CALLOC(
-                            __kmp_i18n_default_table.sect[ section ].size + 2,
-                            sizeof( char const * )
-                        );
-                    table.sect[ section ].size = __kmp_i18n_default_table.sect[ section ].size;
-                }; // if
-                if ( table.sect[ section ].str[ number ] == NULL ) {
-                    table.sect[ section ].str[ number ] = ___catgets( id );
-                }; // if
-                message = table.sect[ section ].str[ number ];
-            }; // if
-            if ( message == NULL ) {
-                // Catalog is not opened or message is not found, return default message.
-                message = __kmp_i18n_default_table.sect[ section ].str[ number ];
-            }; // if
-        }; // if
-    }; // if
-    if ( message == NULL ) {
-        message = no_message_available;
-    }; // if
-    return message;
-
-} // func __kmp_i18n_catgets
-
-
-#endif // KMP_OS_WINDOWS
-
-// -------------------------------------------------------------------------------------------------
-
-#ifndef KMP_I18N_OK
-    #error I18n support is not implemented for this OS.
-#endif // KMP_I18N_OK
-
-// -------------------------------------------------------------------------------------------------
-
-void
-__kmp_i18n_dump_catalog(
-    kmp_str_buf_t * buffer
-) {
-
-    struct kmp_i18n_id_range_t {
-        kmp_i18n_id_t  first;
-        kmp_i18n_id_t  last;
-    }; // struct kmp_i18n_id_range_t
-
-    static struct kmp_i18n_id_range_t ranges[] = {
-        { kmp_i18n_prp_first, kmp_i18n_prp_last },
-        { kmp_i18n_str_first, kmp_i18n_str_last },
-        { kmp_i18n_fmt_first, kmp_i18n_fmt_last },
-        { kmp_i18n_msg_first, kmp_i18n_msg_last },
-        { kmp_i18n_hnt_first, kmp_i18n_hnt_last }
-    }; // ranges
-
-    int           num_of_ranges = sizeof( ranges ) / sizeof( struct kmp_i18n_id_range_t );
-    int           range;
-    kmp_i18n_id_t id;
-
-    for ( range = 0; range < num_of_ranges; ++ range ) {
-        __kmp_str_buf_print( buffer, "*** Set #%d ***\n", range + 1 );
-        for ( id = (kmp_i18n_id_t)( ranges[ range ].first + 1 );
-              id < ranges[ range ].last;
-              id = (kmp_i18n_id_t)( id + 1 ) ) {
-             __kmp_str_buf_print( buffer, "%d: <<%s>>\n", id, __kmp_i18n_catgets( id ) );
-        }; // for id
-    }; // for range
-
-    __kmp_printf( "%s", buffer->str );
-
-} // __kmp_i18n_dump_catalog
-
-// -------------------------------------------------------------------------------------------------
-
-kmp_msg_t
-__kmp_msg_format(
-    kmp_i18n_id_t id,
-    ...
-) {
-
-    kmp_msg_t      msg;
-    va_list        args;
-    kmp_str_buf_t  buffer;
-    __kmp_str_buf_init( & buffer );
-
-    va_start( args, id );
-    #if KMP_OS_UNIX
-        // On Linux* OS and OS X*, printf() family functions process parameter numbers, for example:
-        // "%2$s %1$s".
-        __kmp_str_buf_vprint( & buffer, __kmp_i18n_catgets( id ), args );
-    #elif KMP_OS_WINDOWS
-        // On Winodws, printf() family functions does not recognize GNU style parameter numbers,
-        // so we have to use FormatMessage() instead. It recognizes parameter numbers, e. g.:
-        // "%2!s! "%1!s!".
-        {
-            LPTSTR str = NULL;
-            int    len;
-            FormatMessage(
-                FORMAT_MESSAGE_FROM_STRING | FORMAT_MESSAGE_ALLOCATE_BUFFER,
-                __kmp_i18n_catgets( id ),
-                0, 0,
-                (LPTSTR)( & str ),
-                0,
-                & args
-            );
-            len = ___strip_crs( str );
-            __kmp_str_buf_cat( & buffer, str, len );
-            LocalFree( str );
-        }
-    #else
-        #error
-    #endif
-    va_end( args );
-    __kmp_str_buf_detach( & buffer );
-
-    msg.type = (kmp_msg_type_t)( id >> 16 );
-    msg.num  = id & 0xFFFF;
-    msg.str  = buffer.str;
-    msg.len  = buffer.used;
-
-    return msg;
-
-} // __kmp_msg_format
-
-// -------------------------------------------------------------------------------------------------
-
-static
-char *
-sys_error(
-    int err
-) {
-
-    char * message = NULL;
-
-    #if KMP_OS_WINDOWS
-
-        LPVOID  buffer = NULL;
-        int     len;
-        DWORD   rc;
-        rc =
-            FormatMessage(
-                FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
-                NULL,
-                err,
-                MAKELANGID( LANG_NEUTRAL, SUBLANG_DEFAULT ), // Default language.
-                (LPTSTR) & buffer,
-                0,
-                NULL
-            );
-        if ( rc > 0 ) {
-            // Message formatted. Copy it (so we can free it later with normal free().
-            message = __kmp_str_format( "%s", (char *) buffer );
-            len = ___strip_crs( message ); // Delete carriage returns if any.
-            // Strip trailing newlines.
-            while ( len > 0 && message[ len - 1 ] == '\n' ) {
-                -- len;
-            }; // while
-            message[ len ] = 0;
-        } else {
-            // FormatMessage() failed to format system error message. GetLastError() would give us
-            // error code, which we would convert to message... this it dangerous recursion, which
-            // cannot clarify original error, so we will not even start it.
-        }; // if
-        if ( buffer != NULL ) {
-            LocalFree( buffer );
-        }; // if
-
-    #else // Non-Windows* OS: Linux* OS or OS X*
-
-        /*
-            There are 2 incompatible versions of strerror_r:
-
-                char * strerror_r( int, char *, size_t );  // GNU version
-                int    strerror_r( int, char *, size_t );  // XSI version
-        */
-
-        #if KMP_OS_LINUX
-
-            // GNU version of strerror_r.
-
-            char   buffer[ 2048 ];
-            char * const err_msg = strerror_r( err, buffer, sizeof( buffer ) );
-                // Do not eliminate this assignment to temporary variable, otherwise compiler would
-                // not issue warning if strerror_r() returns `int' instead of expected `char *'.
-            message = __kmp_str_format( "%s", err_msg );
-
-        #else // OS X*, FreeBSD* etc.
-
-            // XSI version of strerror_r.
-
-            int    size   = 2048;
-            // TODO: Add checking result of malloc().
-            char * buffer = (char *) KMP_INTERNAL_MALLOC( size );
-            int    rc;
-            rc = strerror_r( err, buffer, size );
-            if ( rc == -1 ) {
-                rc = errno;            // XSI version sets errno.
-            }; // if
-            while ( rc == ERANGE ) {   // ERANGE means the buffer is too small.
-                KMP_INTERNAL_FREE( buffer );
-                size *= 2;
-                buffer = (char *) KMP_INTERNAL_MALLOC( size );
-                rc = strerror_r( err, buffer, size );
-                if ( rc == -1 ) {
-                    rc = errno;        // XSI version sets errno.
-                }; // if
-            }; // while
-            if ( rc == 0 ) {
-                message = buffer;
-            } else {
-                // Buffer is unused. Free it.
-                KMP_INTERNAL_FREE( buffer );
-            }; // if
-
-        #endif
-
-    #endif /* KMP_OS_WINDOWS */
-
-    if ( message == NULL ) {
-        // TODO: I18n this message.
-        message = __kmp_str_format( "%s", "(No system error message available)" );
-    }; // if
-    return message;
-
-} // sys_error
-
-// -------------------------------------------------------------------------------------------------
-
-kmp_msg_t
-__kmp_msg_error_code(
-    int  code
-) {
-
-    kmp_msg_t      msg;
-    msg.type = kmp_mt_syserr;
-    msg.num  = code;
-    msg.str  = sys_error( code );
-    msg.len  = KMP_STRLEN( msg.str );
-    return msg;
-
-} // __kmp_msg_error_code
-
-// -------------------------------------------------------------------------------------------------
-
-kmp_msg_t
-__kmp_msg_error_mesg(
-    char const * mesg
-) {
-
-    kmp_msg_t      msg;
-    msg.type = kmp_mt_syserr;
-    msg.num  = 0;
-    msg.str  = __kmp_str_format( "%s", mesg );
-    msg.len  = KMP_STRLEN( msg.str );
-    return msg;
-
-} // __kmp_msg_error_mesg
-
-// -------------------------------------------------------------------------------------------------
-
-void
-__kmp_msg(
-    kmp_msg_severity_t  severity,
-    kmp_msg_t           message,
-    ...
-) {
-
-    va_list        args;
-    kmp_i18n_id_t  format;      // format identifier
-    kmp_msg_t      fmsg;        // formatted message
-    kmp_str_buf_t  buffer;
-
-    if ( severity != kmp_ms_fatal && __kmp_generate_warnings == kmp_warnings_off )
-        return; // no reason to form a string in order to not print it
-
-    __kmp_str_buf_init( & buffer );
-
-    // Format the primary message.
-    switch ( severity ) {
-        case kmp_ms_inform : {
-            format = kmp_i18n_fmt_Info;
-        } break;
-        case kmp_ms_warning : {
-            format = kmp_i18n_fmt_Warning;
-        } break;
-        case kmp_ms_fatal : {
-            format = kmp_i18n_fmt_Fatal;
-        } break;
-        default : {
-            KMP_DEBUG_ASSERT( 0 );
-        };
-    }; // switch
-    fmsg = __kmp_msg_format( format, message.num, message.str );
-    KMP_INTERNAL_FREE( (void *) message.str );
-    __kmp_str_buf_cat( & buffer, fmsg.str, fmsg.len );
-    KMP_INTERNAL_FREE( (void *) fmsg.str );
-
-    // Format other messages.
-    va_start( args, message );
-    for ( ; ; ) {
-        message = va_arg( args, kmp_msg_t );
-        if ( message.type == kmp_mt_dummy && message.str == NULL ) {
-            break;
-        }; // if
-        if ( message.type == kmp_mt_dummy && message.str == __kmp_msg_empty.str ) {
-            continue;
-        }; // if
-        switch ( message.type ) {
-            case kmp_mt_hint : {
-                format = kmp_i18n_fmt_Hint;
-            } break;
-            case kmp_mt_syserr : {
-                format = kmp_i18n_fmt_SysErr;
-            } break;
-            default : {
-                KMP_DEBUG_ASSERT( 0 );
-            };
-        }; // switch
-        fmsg = __kmp_msg_format( format, message.num, message.str );
-        KMP_INTERNAL_FREE( (void *) message.str );
-        __kmp_str_buf_cat( & buffer, fmsg.str, fmsg.len );
-        KMP_INTERNAL_FREE( (void *) fmsg.str );
-    }; // forever
-    va_end( args );
-
-    // Print formatted messages.
-    // This lock prevents multiple fatal errors on the same problem.
-    // __kmp_acquire_bootstrap_lock( & lock );    // GEH - This lock causing tests to hang on OS X*.
-    __kmp_printf( "%s", buffer.str );
-    __kmp_str_buf_free( & buffer );
-
-    if ( severity == kmp_ms_fatal ) {
-        #if KMP_OS_WINDOWS
-        __kmp_thread_sleep( 500 );   /* Delay to give message a chance to appear before reaping */
-        #endif
-        __kmp_abort_process();
-    }; // if
-
-    // __kmp_release_bootstrap_lock( & lock );  // GEH - this lock causing tests to hang on OS X*.
-
-} // __kmp_msg
-
-// -------------------------------------------------------------------------------------------------
-
-// end of file //
+/* 
+ * kmp_i18n.c 
+ */ 
+ 
+ 
+//===----------------------------------------------------------------------===// 
+// 
+//                     The LLVM Compiler Infrastructure 
+// 
+// This file is dual licensed under the MIT and the University of Illinois Open 
+// Source Licenses. See LICENSE.txt for details. 
+// 
+//===----------------------------------------------------------------------===// 
+ 
+ 
+ 
+#include "kmp_i18n.h" 
+ 
+#include "kmp_os.h" 
+#include "kmp_debug.h" 
+#include "kmp.h" 
+#include "kmp_lock.h" 
+#include "kmp_io.h"          // __kmp_printf. 
+ 
+#include <stdio.h> 
+#include <errno.h> 
+#include <string.h> 
+#include <locale.h> 
+#include <stdarg.h> 
+ 
+#include "kmp_i18n_default.inc" 
+#include "kmp_str.h" 
+#include "kmp_environment.h" 
+ 
+#undef KMP_I18N_OK 
+ 
+#define get_section( id )  ( (id) >> 16 ) 
+#define get_number( id )   ( (id) & 0xFFFF ) 
+ 
+kmp_msg_t           __kmp_msg_empty = { kmp_mt_dummy, 0, "", 0  }; 
+kmp_msg_t           __kmp_msg_null  = { kmp_mt_dummy, 0, NULL, 0 }; 
+static char const * no_message_available = "(No message available)"; 
+ 
+enum kmp_i18n_cat_status { 
+    KMP_I18N_CLOSED,    // Not yet opened or closed. 
+    KMP_I18N_OPENED,    // Opened successfully, ready to use. 
+    KMP_I18N_ABSENT     // Opening failed, message catalog should not be used. 
+}; // enum kmp_i18n_cat_status 
+typedef enum kmp_i18n_cat_status  kmp_i18n_cat_status_t; 
+static volatile kmp_i18n_cat_status_t  status = KMP_I18N_CLOSED; 
+ 
+/* 
+    Message catalog is opened at first usage, so we have to synchronize opening to avoid race and 
+    multiple openings. 
+ 
+    Closing does not require synchronization, because catalog is closed very late at library 
+    shutting down, when no other threads are alive. 
+*/ 
+ 
+static void __kmp_i18n_do_catopen(); 
+static kmp_bootstrap_lock_t  lock = KMP_BOOTSTRAP_LOCK_INITIALIZER( lock ); 
+    // `lock' variable may be placed into __kmp_i18n_catopen function because it is used only by 
+    // that function. But we afraid a (buggy) compiler may treat it wrongly. So we put it outside of 
+    // function just in case. 
+ 
+void 
+__kmp_i18n_catopen( 
+) { 
+    if ( status == KMP_I18N_CLOSED ) { 
+        __kmp_acquire_bootstrap_lock( & lock ); 
+        if ( status == KMP_I18N_CLOSED ) { 
+            __kmp_i18n_do_catopen(); 
+        }; // if 
+        __kmp_release_bootstrap_lock( & lock ); 
+    }; // if 
+} // func __kmp_i18n_catopen 
+ 
+ 
+/* 
+    ================================================================================================ 
+    Linux* OS and OS X* part. 
+    ================================================================================================ 
+*/ 
+ 
+#if KMP_OS_UNIX 
+#define KMP_I18N_OK 
+ 
+#include <nl_types.h> 
+ 
+#define KMP_I18N_NULLCAT ((nl_catd)( -1 )) 
+static nl_catd       cat  = KMP_I18N_NULLCAT;    // !!! Shall it be volatile? 
+static char const *  name = ( KMP_VERSION_MAJOR == 4 ? "libguide.cat" : "libomp.cat" ); 
+ 
+/* 
+    Useful links: 
+        http://www.opengroup.org/onlinepubs/000095399/basedefs/xbd_chap08.html#tag_08_02 
+        http://www.opengroup.org/onlinepubs/000095399/functions/catopen.html 
+        http://www.opengroup.org/onlinepubs/000095399/functions/setlocale.html 
+*/ 
+ 
+void 
+__kmp_i18n_do_catopen( 
+) { 
+    int    english = 0; 
+    char * lang    = __kmp_env_get( "LANG" ); 
+    // TODO: What about LC_ALL or LC_MESSAGES? 
+ 
+    KMP_DEBUG_ASSERT( status == KMP_I18N_CLOSED ); 
+    KMP_DEBUG_ASSERT( cat    == KMP_I18N_NULLCAT ); 
+ 
+    english = 
+	lang == NULL                       ||  // In all these cases English language is used. 
+	strcmp( lang, "" )            == 0 || 
+        strcmp( lang, " " )           == 0 || 
+              // Workaround for Fortran RTL bug DPD200137873 "Fortran runtime resets LANG env var 
+              // to space if it is not set". 
+	strcmp( lang, "C" )           == 0 || 
+	strcmp( lang, "POSIX" )       == 0; 
+ 
+    if ( ! english ) {  // English language is not yet detected, let us continue. 
+        // Format of LANG is: [language[_territory][.codeset][@modifier]] 
+        // Strip all parts except language. 
+        char * tail = NULL; 
+        __kmp_str_split( lang, '@', & lang, & tail ); 
+        __kmp_str_split( lang, '.', & lang, & tail ); 
+        __kmp_str_split( lang, '_', & lang, & tail ); 
+        english = ( strcmp( lang, "en" ) == 0 ); 
+    }; // if 
+ 
+    KMP_INTERNAL_FREE( lang ); 
+ 
+    // Do not try to open English catalog because internal messages are 
+    // exact copy of messages in English catalog. 
+    if ( english ) { 
+	status = KMP_I18N_ABSENT;  // mark catalog as absent so it will not be re-opened. 
+	return; 
+    } 
+ 
+    cat = catopen( name, 0 ); 
+    // TODO: Why do we pass 0 in flags? 
+    status = ( cat == KMP_I18N_NULLCAT ? KMP_I18N_ABSENT : KMP_I18N_OPENED ); 
+ 
+    if ( status == KMP_I18N_ABSENT ) { 
+      if (__kmp_generate_warnings > kmp_warnings_low) { // AC: only issue warning in case explicitly asked to 
+        int    error   = errno; // Save errno immediately. 
+	char * nlspath = __kmp_env_get( "NLSPATH" ); 
+        char * lang    = __kmp_env_get( "LANG" ); 
+ 
+	// Infinite recursion will not occur -- status is KMP_I18N_ABSENT now, so 
+	// __kmp_i18n_catgets() will not try to open catalog, but will return default message. 
+	__kmp_msg( 
+	    kmp_ms_warning, 
+	    KMP_MSG( CantOpenMessageCatalog, name ), 
+	    KMP_ERR( error ), 
+	    KMP_HNT( CheckEnvVar, "NLSPATH", nlspath ), 
+            KMP_HNT( CheckEnvVar, "LANG", lang ), 
+	    __kmp_msg_null 
+	); 
+	KMP_INFORM( WillUseDefaultMessages ); 
+        KMP_INTERNAL_FREE( nlspath ); 
+        KMP_INTERNAL_FREE( lang ); 
+      } 
+    } else { // status == KMP_I18N_OPENED 
+ 
+        int section = get_section( kmp_i18n_prp_Version ); 
+        int number  = get_number( kmp_i18n_prp_Version ); 
+        char const * expected = __kmp_i18n_default_table.sect[ section ].str[ number ]; 
+            // Expected version of the catalog. 
+        kmp_str_buf_t version;   // Actual version of the catalog. 
+        __kmp_str_buf_init( & version ); 
+        __kmp_str_buf_print( & version, "%s", catgets( cat, section, number, NULL ) ); 
+ 
+            // String returned by catgets is invalid after closing the catalog, so copy it. 
+        if ( strcmp( version.str, expected ) != 0 ) { 
+            __kmp_i18n_catclose();     // Close bad catalog. 
+            status = KMP_I18N_ABSENT;  // And mark it as absent. 
+            if (__kmp_generate_warnings > kmp_warnings_low) { // AC: only issue warning in case explicitly asked to 
+                // And now print a warning using default messages. 
+                char const * name    = "NLSPATH"; 
+                char const * nlspath = __kmp_env_get( name ); 
+                __kmp_msg( 
+                    kmp_ms_warning, 
+                    KMP_MSG( WrongMessageCatalog, name, version.str, expected ), 
+                    KMP_HNT( CheckEnvVar, name, nlspath ), 
+                    __kmp_msg_null 
+                ); 
+                KMP_INFORM( WillUseDefaultMessages ); 
+                KMP_INTERNAL_FREE( (void *) nlspath ); 
+            } // __kmp_generate_warnings 
+        }; // if 
+        __kmp_str_buf_free( & version ); 
+ 
+    }; // if 
+ 
+} // func __kmp_i18n_do_catopen 
+ 
+ 
+void 
+__kmp_i18n_catclose( 
+) { 
+    if ( status == KMP_I18N_OPENED ) { 
+        KMP_DEBUG_ASSERT( cat != KMP_I18N_NULLCAT ); 
+        catclose( cat ); 
+        cat = KMP_I18N_NULLCAT; 
+    }; // if 
+    status = KMP_I18N_CLOSED; 
+} // func __kmp_i18n_catclose 
+ 
+ 
+char const * 
+__kmp_i18n_catgets( 
+    kmp_i18n_id_t  id 
+) { 
+ 
+    int section = get_section( id ); 
+    int number  = get_number( id ); 
+    char const * message = NULL; 
+ 
+    if ( 1 <= section && section <= __kmp_i18n_default_table.size ) { 
+        if ( 1 <= number && number <= __kmp_i18n_default_table.sect[ section ].size ) { 
+            if ( status == KMP_I18N_CLOSED ) { 
+                __kmp_i18n_catopen(); 
+            }; // if 
+            if ( status == KMP_I18N_OPENED ) { 
+                message = 
+                    catgets( 
+                        cat, 
+                        section, number, 
+                        __kmp_i18n_default_table.sect[ section ].str[ number ] 
+                    ); 
+            }; // if 
+            if ( message == NULL ) { 
+                message = __kmp_i18n_default_table.sect[ section ].str[ number ]; 
+            }; // if 
+        }; // if 
+    }; // if 
+    if ( message == NULL ) { 
+        message = no_message_available; 
+    }; // if 
+    return message; 
+ 
+} // func __kmp_i18n_catgets 
+ 
+ 
+#endif // KMP_OS_UNIX 
+ 
+/* 
+    ================================================================================================ 
+    Windows* OS part. 
+    ================================================================================================ 
+*/ 
+ 
+#if KMP_OS_WINDOWS 
+#define KMP_I18N_OK 
+ 
+#include "kmp_environment.h" 
+#include <windows.h> 
+ 
+#define KMP_I18N_NULLCAT  NULL 
+static HMODULE       cat  = KMP_I18N_NULLCAT;    // !!! Shall it be volatile? 
+static char const *  name = ( KMP_VERSION_MAJOR == 4 ? "libguide40ui.dll" : "libompui.dll" ); 
+ 
+static kmp_i18n_table_t  table             = { 0, NULL }; 
+    // Messages formatted by FormatMessage() should be freed, but catgets() interface assumes 
+    // user will not free messages. So we cache all the retrieved messages in the table, which 
+    // are freed at catclose(). 
+static UINT const        default_code_page = CP_OEMCP; 
+static UINT              code_page         = default_code_page; 
+ 
+static char const * ___catgets( kmp_i18n_id_t  id ); 
+static UINT         get_code_page(); 
+static void         kmp_i18n_table_free( kmp_i18n_table_t * table ); 
+ 
+ 
+static UINT 
+get_code_page( 
+) { 
+ 
+    UINT cp = default_code_page; 
+    char const * value = __kmp_env_get( "KMP_CODEPAGE" ); 
+    if ( value != NULL ) { 
+        if ( _stricmp( value, "ANSI" ) == 0 ) { 
+            cp = CP_ACP; 
+        } else if ( _stricmp( value, "OEM" ) == 0 ) { 
+            cp = CP_OEMCP; 
+        } else if ( _stricmp( value, "UTF-8" ) == 0 || _stricmp( value, "UTF8" ) == 0 ) { 
+            cp = CP_UTF8; 
+        } else if ( _stricmp( value, "UTF-7" ) == 0 || _stricmp( value, "UTF7" ) == 0 ) { 
+            cp = CP_UTF7; 
+        } else { 
+            // !!! TODO: Issue a warning? 
+        }; // if 
+    }; // if 
+    KMP_INTERNAL_FREE( (void *) value ); 
+    return cp; 
+ 
+} // func get_code_page 
+ 
+ 
+static void 
+kmp_i18n_table_free( 
+    kmp_i18n_table_t * table 
+) { 
+    int s; 
+    int m; 
+    for ( s = 0; s < table->size; ++ s ) { 
+        for ( m = 0; m < table->sect[ s ].size; ++ m ) { 
+            // Free message. 
+            KMP_INTERNAL_FREE( (void *) table->sect[ s ].str[ m ] ); 
+            table->sect[ s ].str[ m ] = NULL; 
+        }; // for m 
+        table->sect[ s ].size = 0; 
+        // Free section itself. 
+        KMP_INTERNAL_FREE ( (void *) table->sect[ s ].str ); 
+        table->sect[ s ].str = NULL; 
+    }; // for s 
+    table->size = 0; 
+    KMP_INTERNAL_FREE( (void *) table->sect ); 
+    table->sect = NULL; 
+} // kmp_i8n_table_free 
+ 
+ 
+void 
+__kmp_i18n_do_catopen( 
+) { 
+ 
+    LCID          locale_id = GetThreadLocale(); 
+    WORD 	  lang_id = LANGIDFROMLCID( locale_id ); 
+    WORD          primary_lang_id = PRIMARYLANGID( lang_id ); 
+    kmp_str_buf_t path; 
+ 
+    KMP_DEBUG_ASSERT( status == KMP_I18N_CLOSED ); 
+    KMP_DEBUG_ASSERT( cat    == KMP_I18N_NULLCAT ); 
+ 
+    __kmp_str_buf_init( & path ); 
+ 
+    // Do not try to open English catalog because internal messages are 
+    // exact copy of messages in English catalog. 
+    if ( primary_lang_id == LANG_ENGLISH ) { 
+	status = KMP_I18N_ABSENT;  // mark catalog as absent so it will not be re-opened. 
+	goto end; 
+    }; // if 
+ 
+    // Construct resource DLL name. 
+    /* 
+        Simple 
+            LoadLibrary( name ) 
+        is not suitable due to security issue (see 
+        http://www.microsoft.com/technet/security/advisory/2269637.mspx). We have to specify full 
+        path to the message catalog. 
+    */ 
+    { 
+ 
+        // Get handle of our DLL first. 
+        HMODULE handle; 
+        BOOL brc = 
+            GetModuleHandleEx( 
+                GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS | GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT, 
+                reinterpret_cast< LPCSTR >( & __kmp_i18n_do_catopen ), 
+                & handle 
+            ); 
+        if ( ! brc ) {    // Error occurred. 
+            status = KMP_I18N_ABSENT;  // mark catalog as absent so it will not be re-opened. 
+            goto end; 
+            // TODO: Enable multiple messages (KMP_MSG) to be passed to __kmp_msg; and print 
+            // a proper warning. 
+        }; // if 
+ 
+        // Now get path to the our DLL. 
+        for ( ; ; ) { 
+            DWORD drc = GetModuleFileName( handle, path.str, path.size ); 
+            if ( drc == 0 ) {    // Error occurred. 
+                status = KMP_I18N_ABSENT; 
+                goto end; 
+            }; // if 
+            if ( drc < path.size ) { 
+                path.used = drc; 
+                break; 
+            }; // if 
+            __kmp_str_buf_reserve( & path, path.size * 2 ); 
+        }; // forever 
+ 
+        // Now construct the name of message catalog. 
+        kmp_str_fname fname; 
+        __kmp_str_fname_init( & fname, path.str ); 
+        __kmp_str_buf_clear( & path ); 
+        __kmp_str_buf_print( & path, "%s%lu/%s", fname.dir, (unsigned long)( locale_id ), name ); 
+        __kmp_str_fname_free( & fname ); 
+ 
+    } 
+ 
+    // For security reasons, use LoadLibraryEx() and load message catalog as a data file. 
+    cat = LoadLibraryEx( path.str, NULL, LOAD_LIBRARY_AS_DATAFILE ); 
+    status = ( cat == KMP_I18N_NULLCAT ? KMP_I18N_ABSENT : KMP_I18N_OPENED ); 
+ 
+    if ( status == KMP_I18N_ABSENT ) { 
+      if (__kmp_generate_warnings > kmp_warnings_low) { // AC: only issue warning in case explicitly asked to 
+	DWORD error = GetLastError(); 
+	// Infinite recursion will not occur -- status is KMP_I18N_ABSENT now, so 
+	// __kmp_i18n_catgets() will not try to open catalog but will return default message. 
+        /* 
+         If message catalog for another architecture found (e.g. OpenMP RTL 
+	 for IA-32 architecture opens libompui.dll for Intel(R) 64) 
+	 Windows* OS returns error 193 (ERROR_BAD_EXE_FORMAT). However, 
+         FormatMessage fails to return a message for this error, so user 
+	 will see: 
+ 
+         OMP: Warning #2: Cannot open message catalog "1041\libompui.dll": 
+         OMP: System error #193: (No system error message available) 
+         OMP: Info #3: Default messages will be used. 
+ 
+         Issue a hint in this case to let cause of trouble more understandable. 
+        */ 
+	__kmp_msg( 
+	    kmp_ms_warning, 
+	    KMP_MSG( CantOpenMessageCatalog, path.str ), 
+	    KMP_SYSERRCODE( error ), 
+            ( error == ERROR_BAD_EXE_FORMAT ? KMP_HNT( BadExeFormat, path.str, KMP_ARCH_STR ) : __kmp_msg_null ), 
+	    __kmp_msg_null 
+	); 
+	KMP_INFORM( WillUseDefaultMessages ); 
+      } 
+    } else { // status == KMP_I18N_OPENED 
+ 
+        int section = get_section( kmp_i18n_prp_Version ); 
+        int number  = get_number( kmp_i18n_prp_Version ); 
+        char const * expected = __kmp_i18n_default_table.sect[ section ].str[ number ]; 
+        kmp_str_buf_t version;   // Actual version of the catalog. 
+        __kmp_str_buf_init( & version ); 
+        __kmp_str_buf_print( & version, "%s", ___catgets( kmp_i18n_prp_Version ) ); 
+            // String returned by catgets is invalid after closing the catalog, so copy it. 
+        if ( strcmp( version.str, expected ) != 0 ) { 
+            // Close bad catalog. 
+            __kmp_i18n_catclose(); 
+            status = KMP_I18N_ABSENT;  // And mark it as absent. 
+            if (__kmp_generate_warnings > kmp_warnings_low) { 
+                // And now print a warning using default messages. 
+                __kmp_msg( 
+                    kmp_ms_warning, 
+                    KMP_MSG( WrongMessageCatalog, path.str, version.str, expected ), 
+                    __kmp_msg_null 
+                ); 
+                KMP_INFORM( WillUseDefaultMessages ); 
+            } // __kmp_generate_warnings 
+        }; // if 
+        __kmp_str_buf_free( & version ); 
+ 
+    }; // if 
+    code_page = get_code_page(); 
+ 
+    end: 
+        __kmp_str_buf_free( & path ); 
+        return; 
+ 
+} // func __kmp_i18n_do_catopen 
+ 
+ 
+void 
+__kmp_i18n_catclose( 
+) { 
+    if ( status == KMP_I18N_OPENED ) { 
+        KMP_DEBUG_ASSERT( cat != KMP_I18N_NULLCAT ); 
+        kmp_i18n_table_free( & table ); 
+        FreeLibrary( cat ); 
+        cat = KMP_I18N_NULLCAT; 
+    }; // if 
+    code_page = default_code_page; 
+    status = KMP_I18N_CLOSED; 
+} // func __kmp_i18n_catclose 
+ 
+/* 
+    We use FormatMessage() to get strings from catalog, get system error messages, etc. 
+    FormatMessage() tends to return Windows* OS-style end-of-lines, "\r\n". When string is printed, 
+    printf() also replaces all the occurrences of "\n" with "\r\n" (again!), so sequences like 
+    "\r\r\r\n" appear in output. It is not too good. 
+ 
+    Additional mess comes from message catalog: Our catalog source en_US.mc file (generated by 
+    message-converter.pl) contains only "\n" characters, but en_US_msg_1033.bin file (produced by 
+    mc.exe) may contain "\r\n" or just "\n". This mess goes from en_US_msg_1033.bin file to 
+    message catalog, libompui.dll. For example, message 
+ 
+        Error 
+ 
+    (there is "\n" at the end) is compiled by mc.exe to "Error\r\n", while 
+ 
+        OMP: Error %1!d!: %2!s!\n 
+ 
+    (there is "\n" at the end as well) is compiled to "OMP: Error %1!d!: %2!s!\r\n\n". 
+ 
+    Thus, stripping all "\r" normalizes string and returns it to canonical form, so printf() will 
+    produce correct end-of-line sequences. 
+ 
+    ___strip_crs() serves for this purpose: it removes all the occurrences of "\r" in-place and 
+    returns new length of string. 
+*/ 
+static 
+int 
+___strip_crs( 
+    char * str 
+) { 
+    int in  = 0;  // Input character index. 
+    int out = 0;  // Output character index. 
+    for ( ; ; ) { 
+        if ( str[ in ] != '\r' ) { 
+            str[ out ] = str[ in ]; 
+            ++ out; 
+        }; // if 
+        if ( str[ in ] == 0 ) { 
+            break; 
+        }; // if 
+        ++ in; 
+    }; // forever 
+    return out - 1; 
+} // func __strip_crs 
+ 
+ 
+static 
+char const * 
+___catgets( 
+    kmp_i18n_id_t  id 
+) { 
+ 
+    char *    result = NULL; 
+    PVOID     addr   = NULL; 
+    wchar_t * wmsg   = NULL; 
+    DWORD     wlen   = 0; 
+    char *    msg    = NULL; 
+    int       len    = 0; 
+    int       rc; 
+ 
+    KMP_DEBUG_ASSERT( cat != KMP_I18N_NULLCAT ); 
+    wlen =    // wlen does *not* include terminating null. 
+        FormatMessageW( 
+            FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_HMODULE | 
+                FORMAT_MESSAGE_IGNORE_INSERTS, 
+            cat, 
+            id, 
+            0,             // LangId 
+            (LPWSTR) & addr, 
+            0,             // Size in elements, not in bytes. 
+            NULL 
+        ); 
+    if ( wlen <= 0 ) { 
+        goto end; 
+    }; // if 
+    wmsg = (wchar_t *) addr;  // Warning: wmsg may be not nul-terminated! 
+ 
+    // Calculate length of multibyte message. 
+    len =     // Since wlen does not include terminating null, len does not include it also. 
+        WideCharToMultiByte( 
+            code_page, 
+            0,                // Flags. 
+            wmsg, wlen,       // Wide buffer and size. 
+            NULL, 0,          // Buffer and size. 
+            NULL, NULL        // Default char and used default char. 
+        ); 
+    if ( len <= 0 ) { 
+        goto end; 
+    }; // if 
+ 
+    // Allocate memory. 
+    msg = (char *) KMP_INTERNAL_MALLOC( len + 1 ); 
+ 
+    // Convert wide message to multibyte one. 
+    rc = 
+        WideCharToMultiByte( 
+            code_page, 
+            0,                // Flags. 
+            wmsg, wlen,       // Wide buffer and size. 
+            msg, len,         // Buffer and size. 
+            NULL, NULL        // Default char and used default char. 
+        ); 
+    if ( rc <= 0 || rc > len ) { 
+        goto end; 
+    }; // if 
+    KMP_DEBUG_ASSERT( rc == len ); 
+    len = rc; 
+    msg[ len ] = 0;           // Put terminating null to the end. 
+ 
+    // Stripping all "\r" before stripping last end-of-line simplifies the task. 
+    len = ___strip_crs( msg ); 
+ 
+    // Every message in catalog is terminated with "\n". Strip it. 
+    if ( len >= 1 && msg[ len - 1 ] == '\n' ) { 
+        -- len; 
+        msg[ len ] = 0; 
+    }; // if 
+ 
+    // Everything looks ok. 
+    result = msg; 
+    msg    = NULL; 
+ 
+    end: 
+ 
+    if ( msg != NULL ) { 
+        KMP_INTERNAL_FREE( msg ); 
+    }; // if 
+    if ( wmsg != NULL ) { 
+        LocalFree( wmsg ); 
+    }; // if 
+ 
+    return result; 
+ 
+} // ___catgets 
+ 
+ 
+char const * 
+__kmp_i18n_catgets( 
+    kmp_i18n_id_t  id 
+) { 
+ 
+    int section = get_section( id ); 
+    int number  = get_number( id ); 
+    char const * message = NULL; 
+ 
+    if ( 1 <= section && section <= __kmp_i18n_default_table.size ) { 
+        if ( 1 <= number && number <= __kmp_i18n_default_table.sect[ section ].size ) { 
+            if ( status == KMP_I18N_CLOSED ) { 
+                __kmp_i18n_catopen(); 
+            }; // if 
+            if ( cat != KMP_I18N_NULLCAT ) { 
+                if ( table.size == 0 ) { 
+                    table.sect = (kmp_i18n_section_t *) 
+                        KMP_INTERNAL_CALLOC( 
+                            ( __kmp_i18n_default_table.size + 2 ), 
+                            sizeof( kmp_i18n_section_t ) 
+                        ); 
+                    table.size = __kmp_i18n_default_table.size; 
+                }; // if 
+                if ( table.sect[ section ].size == 0 ) { 
+                    table.sect[ section ].str = (const char **) 
+                        KMP_INTERNAL_CALLOC( 
+                            __kmp_i18n_default_table.sect[ section ].size + 2, 
+                            sizeof( char const * ) 
+                        ); 
+                    table.sect[ section ].size = __kmp_i18n_default_table.sect[ section ].size; 
+                }; // if 
+                if ( table.sect[ section ].str[ number ] == NULL ) { 
+                    table.sect[ section ].str[ number ] = ___catgets( id ); 
+                }; // if 
+                message = table.sect[ section ].str[ number ]; 
+            }; // if 
+            if ( message == NULL ) { 
+                // Catalog is not opened or message is not found, return default message. 
+                message = __kmp_i18n_default_table.sect[ section ].str[ number ]; 
+            }; // if 
+        }; // if 
+    }; // if 
+    if ( message == NULL ) { 
+        message = no_message_available; 
+    }; // if 
+    return message; 
+ 
+} // func __kmp_i18n_catgets 
+ 
+ 
+#endif // KMP_OS_WINDOWS 
+ 
+// ------------------------------------------------------------------------------------------------- 
+ 
+#ifndef KMP_I18N_OK 
+    #error I18n support is not implemented for this OS. 
+#endif // KMP_I18N_OK 
+ 
+// ------------------------------------------------------------------------------------------------- 
+ 
+void 
+__kmp_i18n_dump_catalog( 
+    kmp_str_buf_t * buffer 
+) { 
+ 
+    struct kmp_i18n_id_range_t { 
+        kmp_i18n_id_t  first; 
+        kmp_i18n_id_t  last; 
+    }; // struct kmp_i18n_id_range_t 
+ 
+    static struct kmp_i18n_id_range_t ranges[] = { 
+        { kmp_i18n_prp_first, kmp_i18n_prp_last }, 
+        { kmp_i18n_str_first, kmp_i18n_str_last }, 
+        { kmp_i18n_fmt_first, kmp_i18n_fmt_last }, 
+        { kmp_i18n_msg_first, kmp_i18n_msg_last }, 
+        { kmp_i18n_hnt_first, kmp_i18n_hnt_last } 
+    }; // ranges 
+ 
+    int           num_of_ranges = sizeof( ranges ) / sizeof( struct kmp_i18n_id_range_t ); 
+    int           range; 
+    kmp_i18n_id_t id; 
+ 
+    for ( range = 0; range < num_of_ranges; ++ range ) { 
+        __kmp_str_buf_print( buffer, "*** Set #%d ***\n", range + 1 ); 
+        for ( id = (kmp_i18n_id_t)( ranges[ range ].first + 1 ); 
+              id < ranges[ range ].last; 
+              id = (kmp_i18n_id_t)( id + 1 ) ) { 
+             __kmp_str_buf_print( buffer, "%d: <<%s>>\n", id, __kmp_i18n_catgets( id ) ); 
+        }; // for id 
+    }; // for range 
+ 
+    __kmp_printf( "%s", buffer->str ); 
+ 
+} // __kmp_i18n_dump_catalog 
+ 
+// ------------------------------------------------------------------------------------------------- 
+ 
+kmp_msg_t 
+__kmp_msg_format( 
+    kmp_i18n_id_t id, 
+    ... 
+) { 
+ 
+    kmp_msg_t      msg; 
+    va_list        args; 
+    kmp_str_buf_t  buffer; 
+    __kmp_str_buf_init( & buffer ); 
+ 
+    va_start( args, id ); 
+    #if KMP_OS_UNIX 
+        // On Linux* OS and OS X*, printf() family functions process parameter numbers, for example: 
+        // "%2$s %1$s". 
+        __kmp_str_buf_vprint( & buffer, __kmp_i18n_catgets( id ), args ); 
+    #elif KMP_OS_WINDOWS 
+        // On Winodws, printf() family functions does not recognize GNU style parameter numbers, 
+        // so we have to use FormatMessage() instead. It recognizes parameter numbers, e. g.: 
+        // "%2!s! "%1!s!". 
+        { 
+            LPTSTR str = NULL; 
+            int    len; 
+            FormatMessage( 
+                FORMAT_MESSAGE_FROM_STRING | FORMAT_MESSAGE_ALLOCATE_BUFFER, 
+                __kmp_i18n_catgets( id ), 
+                0, 0, 
+                (LPTSTR)( & str ), 
+                0, 
+                & args 
+            ); 
+            len = ___strip_crs( str ); 
+            __kmp_str_buf_cat( & buffer, str, len ); 
+            LocalFree( str ); 
+        } 
+    #else 
+        #error 
+    #endif 
+    va_end( args ); 
+    __kmp_str_buf_detach( & buffer ); 
+ 
+    msg.type = (kmp_msg_type_t)( id >> 16 ); 
+    msg.num  = id & 0xFFFF; 
+    msg.str  = buffer.str; 
+    msg.len  = buffer.used; 
+ 
+    return msg; 
+ 
+} // __kmp_msg_format 
+ 
+// ------------------------------------------------------------------------------------------------- 
+ 
+static 
+char * 
+sys_error( 
+    int err 
+) { 
+ 
+    char * message = NULL; 
+ 
+    #if KMP_OS_WINDOWS 
+ 
+        LPVOID  buffer = NULL; 
+        int     len; 
+        DWORD   rc; 
+        rc = 
+            FormatMessage( 
+                FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM, 
+                NULL, 
+                err, 
+                MAKELANGID( LANG_NEUTRAL, SUBLANG_DEFAULT ), // Default language. 
+                (LPTSTR) & buffer, 
+                0, 
+                NULL 
+            ); 
+        if ( rc > 0 ) { 
+            // Message formatted. Copy it (so we can free it later with normal free(). 
+            message = __kmp_str_format( "%s", (char *) buffer ); 
+            len = ___strip_crs( message ); // Delete carriage returns if any. 
+            // Strip trailing newlines. 
+            while ( len > 0 && message[ len - 1 ] == '\n' ) { 
+                -- len; 
+            }; // while 
+            message[ len ] = 0; 
+        } else { 
+            // FormatMessage() failed to format system error message. GetLastError() would give us 
+            // error code, which we would convert to message... this it dangerous recursion, which 
+            // cannot clarify original error, so we will not even start it. 
+        }; // if 
+        if ( buffer != NULL ) { 
+            LocalFree( buffer ); 
+        }; // if 
+ 
+    #else // Non-Windows* OS: Linux* OS or OS X* 
+ 
+        /* 
+            There are 2 incompatible versions of strerror_r: 
+ 
+                char * strerror_r( int, char *, size_t );  // GNU version 
+                int    strerror_r( int, char *, size_t );  // XSI version 
+        */ 
+ 
+        #if KMP_OS_LINUX 
+ 
+            // GNU version of strerror_r. 
+ 
+            char   buffer[ 2048 ]; 
+            char * const err_msg = strerror_r( err, buffer, sizeof( buffer ) ); 
+                // Do not eliminate this assignment to temporary variable, otherwise compiler would 
+                // not issue warning if strerror_r() returns `int' instead of expected `char *'. 
+            message = __kmp_str_format( "%s", err_msg ); 
+ 
+        #else // OS X*, FreeBSD* etc. 
+ 
+            // XSI version of strerror_r. 
+ 
+            int    size   = 2048; 
+            // TODO: Add checking result of malloc(). 
+            char * buffer = (char *) KMP_INTERNAL_MALLOC( size ); 
+            int    rc; 
+            rc = strerror_r( err, buffer, size ); 
+            if ( rc == -1 ) { 
+                rc = errno;            // XSI version sets errno. 
+            }; // if 
+            while ( rc == ERANGE ) {   // ERANGE means the buffer is too small. 
+                KMP_INTERNAL_FREE( buffer ); 
+                size *= 2; 
+                buffer = (char *) KMP_INTERNAL_MALLOC( size ); 
+                rc = strerror_r( err, buffer, size ); 
+                if ( rc == -1 ) { 
+                    rc = errno;        // XSI version sets errno. 
+                }; // if 
+            }; // while 
+            if ( rc == 0 ) { 
+                message = buffer; 
+            } else { 
+                // Buffer is unused. Free it. 
+                KMP_INTERNAL_FREE( buffer ); 
+            }; // if 
+ 
+        #endif 
+ 
+    #endif /* KMP_OS_WINDOWS */ 
+ 
+    if ( message == NULL ) { 
+        // TODO: I18n this message. 
+        message = __kmp_str_format( "%s", "(No system error message available)" ); 
+    }; // if 
+    return message; 
+ 
+} // sys_error 
+ 
+// ------------------------------------------------------------------------------------------------- 
+ 
+kmp_msg_t 
+__kmp_msg_error_code( 
+    int  code 
+) { 
+ 
+    kmp_msg_t      msg; 
+    msg.type = kmp_mt_syserr; 
+    msg.num  = code; 
+    msg.str  = sys_error( code ); 
+    msg.len  = KMP_STRLEN( msg.str ); 
+    return msg; 
+ 
+} // __kmp_msg_error_code 
+ 
+// ------------------------------------------------------------------------------------------------- 
+ 
+kmp_msg_t 
+__kmp_msg_error_mesg( 
+    char const * mesg 
+) { 
+ 
+    kmp_msg_t      msg; 
+    msg.type = kmp_mt_syserr; 
+    msg.num  = 0; 
+    msg.str  = __kmp_str_format( "%s", mesg ); 
+    msg.len  = KMP_STRLEN( msg.str ); 
+    return msg; 
+ 
+} // __kmp_msg_error_mesg 
+ 
+// ------------------------------------------------------------------------------------------------- 
+ 
+void 
+__kmp_msg( 
+    kmp_msg_severity_t  severity, 
+    kmp_msg_t           message, 
+    ... 
+) { 
+ 
+    va_list        args; 
+    kmp_i18n_id_t  format;      // format identifier 
+    kmp_msg_t      fmsg;        // formatted message 
+    kmp_str_buf_t  buffer; 
+ 
+    if ( severity != kmp_ms_fatal && __kmp_generate_warnings == kmp_warnings_off ) 
+        return; // no reason to form a string in order to not print it 
+ 
+    __kmp_str_buf_init( & buffer ); 
+ 
+    // Format the primary message. 
+    switch ( severity ) { 
+        case kmp_ms_inform : { 
+            format = kmp_i18n_fmt_Info; 
+        } break; 
+        case kmp_ms_warning : { 
+            format = kmp_i18n_fmt_Warning; 
+        } break; 
+        case kmp_ms_fatal : { 
+            format = kmp_i18n_fmt_Fatal; 
+        } break; 
+        default : { 
+            KMP_DEBUG_ASSERT( 0 ); 
+        }; 
+    }; // switch 
+    fmsg = __kmp_msg_format( format, message.num, message.str ); 
+    KMP_INTERNAL_FREE( (void *) message.str ); 
+    __kmp_str_buf_cat( & buffer, fmsg.str, fmsg.len ); 
+    KMP_INTERNAL_FREE( (void *) fmsg.str ); 
+ 
+    // Format other messages. 
+    va_start( args, message ); 
+    for ( ; ; ) { 
+        message = va_arg( args, kmp_msg_t ); 
+        if ( message.type == kmp_mt_dummy && message.str == NULL ) { 
+            break; 
+        }; // if 
+        if ( message.type == kmp_mt_dummy && message.str == __kmp_msg_empty.str ) { 
+            continue; 
+        }; // if 
+        switch ( message.type ) { 
+            case kmp_mt_hint : { 
+                format = kmp_i18n_fmt_Hint; 
+            } break; 
+            case kmp_mt_syserr : { 
+                format = kmp_i18n_fmt_SysErr; 
+            } break; 
+            default : { 
+                KMP_DEBUG_ASSERT( 0 ); 
+            }; 
+        }; // switch 
+        fmsg = __kmp_msg_format( format, message.num, message.str ); 
+        KMP_INTERNAL_FREE( (void *) message.str ); 
+        __kmp_str_buf_cat( & buffer, fmsg.str, fmsg.len ); 
+        KMP_INTERNAL_FREE( (void *) fmsg.str ); 
+    }; // forever 
+    va_end( args ); 
+ 
+    // Print formatted messages. 
+    // This lock prevents multiple fatal errors on the same problem. 
+    // __kmp_acquire_bootstrap_lock( & lock );    // GEH - This lock causing tests to hang on OS X*. 
+    __kmp_printf( "%s", buffer.str ); 
+    __kmp_str_buf_free( & buffer ); 
+ 
+    if ( severity == kmp_ms_fatal ) { 
+        #if KMP_OS_WINDOWS 
+        __kmp_thread_sleep( 500 );   /* Delay to give message a chance to appear before reaping */ 
+        #endif 
+        __kmp_abort_process(); 
+    }; // if 
+ 
+    // __kmp_release_bootstrap_lock( & lock );  // GEH - this lock causing tests to hang on OS X*. 
+ 
+} // __kmp_msg 
+ 
+// ------------------------------------------------------------------------------------------------- 
+ 
+// end of file //