// NOTE: Function returns allocated memory, caller must free it! static char const * __kmp_pragma( int ct, ident_t const * ident ) { char const * cons = NULL; // Construct name. char * file = NULL; // File name. char * func = NULL; // Function (routine) name. char * line = NULL; // Line number. kmp_str_buf_t buffer; kmp_msg_t prgm; __kmp_str_buf_init( & buffer ); if ( 0 < ct && ct < cons_text_c_num ) { cons = cons_text_c[ ct ]; } else { KMP_DEBUG_ASSERT( 0 ); }; if ( ident != NULL && ident->psource != NULL ) { char * tail = NULL; __kmp_str_buf_print( & buffer, "%s", ident->psource ); // Copy source to buffer. // Split string in buffer to file, func, and line. tail = buffer.str; __kmp_str_split( tail, ';', NULL, & tail ); __kmp_str_split( tail, ';', & file, & tail ); __kmp_str_split( tail, ';', & func, & tail ); __kmp_str_split( tail, ';', & line, & tail ); }; // if prgm = __kmp_msg_format( kmp_i18n_fmt_Pragma, cons, file, func, line ); __kmp_str_buf_free( & buffer ); return prgm.str; } // __kmp_pragma
kmp_msg_t __kmp_msg_format( unsigned id_arg, ... ) { kmp_msg_t msg; va_list args; kmp_str_buf_t buffer; __kmp_str_buf_init( & buffer ); va_start( args, id_arg ); // We use unsigned for the ID argument and explicitly cast it here to the // right enumerator because variadic functions are not compatible with // default promotions. kmp_i18n_id_t id = (kmp_i18n_id_t)id_arg; #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 void dump_cons_stack( int gtid, struct cons_header * p ) { int i; int tos = p->stack_top; kmp_str_buf_t buffer; __kmp_str_buf_init( & buffer ); __kmp_str_buf_print( & buffer, "+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-\n" ); __kmp_str_buf_print( & buffer, "Begin construct stack with %d items for thread %d\n", tos, gtid ); __kmp_str_buf_print( & buffer, " stack_top=%d { P=%d, W=%d, S=%d }\n", tos, p->p_top, p->w_top, p->s_top ); for ( i = tos; i > 0; i-- ) { struct cons_data * c = & ( p->stack_data[ i ] ); __kmp_str_buf_print( & buffer, " stack_data[%2d] = { %s (%s) %d %p }\n", i, cons_text_c[ c->type ], get_src( c->ident ), c->prev, c->name ); }; // for i __kmp_str_buf_print( & buffer, "End construct stack for thread %d\n", gtid ); __kmp_str_buf_print( & buffer, "+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-\n" ); __kmp_debug_printf( "%s", buffer.str ); __kmp_str_buf_free( & buffer ); }
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
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_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