1 /*
2  * kmp_version.c
3  */
4 
5 
6 //===----------------------------------------------------------------------===//
7 //
8 //                     The LLVM Compiler Infrastructure
9 //
10 // This file is dual licensed under the MIT and the University of Illinois Open
11 // Source Licenses. See LICENSE.txt for details.
12 //
13 //===----------------------------------------------------------------------===//
14 
15 
16 #include "kmp.h"
17 #include "kmp_io.h"
18 #include "kmp_version.h"
19 
20 // Replace with snapshot date YYYYMMDD for promotion build.
21 #define KMP_VERSION_BUILD    20140926
22 
23 // Helper macros to convert value of macro to string literal.
24 #define _stringer( x ) #x
25 #define stringer( x )  _stringer( x )
26 
27 // Detect compiler.
28 #if KMP_COMPILER_ICC
29     #if   __INTEL_COMPILER == 1010
30         #define KMP_COMPILER "Intel C++ Compiler 10.1"
31     #elif __INTEL_COMPILER == 1100
32         #define KMP_COMPILER "Intel C++ Compiler 11.0"
33     #elif __INTEL_COMPILER == 1110
34         #define KMP_COMPILER "Intel C++ Compiler 11.1"
35     #elif __INTEL_COMPILER == 1200
36         #define KMP_COMPILER "Intel C++ Compiler 12.0"
37     #elif __INTEL_COMPILER == 1210
38         #define KMP_COMPILER "Intel C++ Compiler 12.1"
39     #elif __INTEL_COMPILER == 1300
40         #define KMP_COMPILER "Intel C++ Compiler 13.0"
41     #elif __INTEL_COMPILER == 1310
42         #define KMP_COMPILER "Intel C++ Compiler 13.1"
43     #elif __INTEL_COMPILER == 1400
44         #define KMP_COMPILER "Intel C++ Compiler 14.0"
45     #elif __INTEL_COMPILER == 1410
46         #define KMP_COMPILER "Intel C++ Compiler 14.1"
47     #elif __INTEL_COMPILER == 1500
48         #define KMP_COMPILER "Intel C++ Compiler 15.0"
49     #elif __INTEL_COMPILER == 1600
50         #define KMP_COMPILER "Intel C++ Compiler 16.0"
51     #elif __INTEL_COMPILER == 1700
52         #define KMP_COMPILER "Intel C++ Compiler 17.0"
53     #elif __INTEL_COMPILER == 9998
54         #define KMP_COMPILER "Intel C++ Compiler mainline"
55     #elif __INTEL_COMPILER == 9999
56         #define KMP_COMPILER "Intel C++ Compiler mainline"
57     #endif
58 #elif KMP_COMPILER_CLANG
59     #define KMP_COMPILER "Clang " stringer( __clang_major__ ) "." stringer( __clang_minor__ )
60 #elif KMP_COMPILER_GCC
61     #define KMP_COMPILER "GCC " stringer( __GNUC__ ) "." stringer( __GNUC_MINOR__ )
62 #elif KMP_COMPILER_MSVC
63     #define KMP_COMPILER "MSVC " stringer( _MSC_FULL_VER )
64 #endif
65 #ifndef KMP_COMPILER
66     #warning "Unknown compiler"
67     #define KMP_COMPILER "unknown compiler"
68 #endif
69 
70 // Detect librray type (perf, stub).
71 #ifdef KMP_STUB
72     #define KMP_LIB_TYPE "stub"
73 #else
74     #define KMP_LIB_TYPE "performance"
75 #endif // KMP_LIB_TYPE
76 
77 // Detect link type (static, dynamic).
78 #ifdef KMP_DYNAMIC_LIB
79     #define KMP_LINK_TYPE "dynamic"
80 #else
81     #define KMP_LINK_TYPE "static"
82 #endif // KMP_LINK_TYPE
83 
84 // Finally, define strings.
85 #define KMP_LIBRARY   KMP_LIB_TYPE " library (" KMP_LINK_TYPE ")"
86 #define KMP_COPYRIGHT ""
87 
88 int const __kmp_version_major = KMP_VERSION_MAJOR;
89 int const __kmp_version_minor = KMP_VERSION_MINOR;
90 int const __kmp_version_build = KMP_VERSION_BUILD;
91 int const __kmp_openmp_version =
92     #if OMP_45_ENABLED
93         201511;
94     #elif OMP_40_ENABLED
95         201307;
96     #else
97         201107;
98     #endif
99 
100 /* Do NOT change the format of this string!  Intel(R) Thread Profiler checks for a
101    specific format some changes in the recognition routine there need to
102    be made before this is changed.
103 */
104 char const __kmp_copyright[] =
105     KMP_VERSION_PREFIX KMP_LIBRARY
106     " ver. " stringer( KMP_VERSION_MAJOR ) "." stringer( KMP_VERSION_MINOR )
107     "." stringer( KMP_VERSION_BUILD ) " "
108     KMP_COPYRIGHT;
109 
110 char const __kmp_version_copyright[]      = KMP_VERSION_PREFIX KMP_COPYRIGHT;
111 char const __kmp_version_lib_ver[]        = KMP_VERSION_PREFIX "version: " stringer( KMP_VERSION_MAJOR ) "." stringer( KMP_VERSION_MINOR ) "." stringer( KMP_VERSION_BUILD );
112 char const __kmp_version_lib_type[]       = KMP_VERSION_PREFIX "library type: " KMP_LIB_TYPE;
113 char const __kmp_version_link_type[]      = KMP_VERSION_PREFIX "link type: " KMP_LINK_TYPE;
114 char const __kmp_version_build_time[]     = KMP_VERSION_PREFIX "build time: " "no_timestamp";
115 #if KMP_MIC2
116     char const __kmp_version_target_env[] = KMP_VERSION_PREFIX "target environment: MIC2";
117 #endif
118 char const __kmp_version_build_compiler[] = KMP_VERSION_PREFIX "build compiler: " KMP_COMPILER;
119 
120 //
121 // Called at serial initialization time.
122 //
123 static int __kmp_version_1_printed = FALSE;
124 
125 void
126 __kmp_print_version_1( void )
127 {
128     if ( __kmp_version_1_printed ) {
129         return;
130     }; // if
131     __kmp_version_1_printed = TRUE;
132 
133     #ifndef KMP_STUB
134         kmp_str_buf_t buffer;
135         __kmp_str_buf_init( & buffer );
136         // Print version strings skipping initial magic.
137         __kmp_str_buf_print( & buffer, "%s\n", & __kmp_version_lib_ver[ KMP_VERSION_MAGIC_LEN ] );
138         __kmp_str_buf_print( & buffer, "%s\n", & __kmp_version_lib_type[ KMP_VERSION_MAGIC_LEN ] );
139         __kmp_str_buf_print( & buffer, "%s\n", & __kmp_version_link_type[ KMP_VERSION_MAGIC_LEN ] );
140         __kmp_str_buf_print( & buffer, "%s\n", & __kmp_version_build_time[ KMP_VERSION_MAGIC_LEN ] );
141       #if KMP_MIC
142         __kmp_str_buf_print( & buffer, "%s\n", & __kmp_version_target_env[ KMP_VERSION_MAGIC_LEN ] );
143       #endif
144         __kmp_str_buf_print( & buffer, "%s\n", & __kmp_version_build_compiler[ KMP_VERSION_MAGIC_LEN ] );
145         #if defined(KMP_GOMP_COMPAT)
146             __kmp_str_buf_print( & buffer, "%s\n", & __kmp_version_alt_comp[ KMP_VERSION_MAGIC_LEN ] );
147         #endif /* defined(KMP_GOMP_COMPAT) */
148         __kmp_str_buf_print( & buffer, "%s\n", & __kmp_version_omp_api[ KMP_VERSION_MAGIC_LEN ] );
149         __kmp_str_buf_print( & buffer, "%sdynamic error checking: %s\n", KMP_VERSION_PREF_STR, ( __kmp_env_consistency_check ? "yes" : "no" )  );
150         #ifdef KMP_DEBUG
151             for ( int i = bs_plain_barrier; i < bs_last_barrier; ++ i ) {
152                 __kmp_str_buf_print(
153                     & buffer,
154                     "%s%s barrier branch bits: gather=%u, release=%u\n",
155                     KMP_VERSION_PREF_STR,
156                     __kmp_barrier_type_name[ i ],
157                     __kmp_barrier_gather_branch_bits[ i ],
158                     __kmp_barrier_release_branch_bits[ i ]
159                 ); // __kmp_str_buf_print
160             }; // for i
161             for ( int i = bs_plain_barrier; i < bs_last_barrier; ++ i ) {
162                 __kmp_str_buf_print(
163                     & buffer,
164                     "%s%s barrier pattern: gather=%s, release=%s\n",
165                     KMP_VERSION_PREF_STR,
166                     __kmp_barrier_type_name[ i ],
167                     __kmp_barrier_pattern_name[ __kmp_barrier_gather_pattern[ i ] ],
168                     __kmp_barrier_pattern_name[ __kmp_barrier_release_pattern[ i ] ]
169                 ); // __kmp_str_buf_print
170             }; // for i
171             __kmp_str_buf_print( & buffer, "%s\n", & __kmp_version_lock[ KMP_VERSION_MAGIC_LEN ] );
172         #endif
173         __kmp_str_buf_print(
174             & buffer,
175             "%sthread affinity support: %s\n",
176             KMP_VERSION_PREF_STR,
177             #if KMP_AFFINITY_SUPPORTED
178                 (
179                     KMP_AFFINITY_CAPABLE()
180                     ?
181                     (
182                         __kmp_affinity_type == affinity_none
183                         ?
184                         "not used"
185                         :
186                         "yes"
187                     )
188                     :
189                     "no"
190                 )
191             #else
192                 "no"
193             #endif
194         );
195         __kmp_printf( "%s", buffer.str );
196         __kmp_str_buf_free( & buffer );
197         K_DIAG( 1, ( "KMP_VERSION is true\n" ) );
198     #endif // KMP_STUB
199 } // __kmp_print_version_1
200 
201 //
202 // Called at parallel initialization time.
203 //
204 static int __kmp_version_2_printed = FALSE;
205 
206 void
207 __kmp_print_version_2( void ) {
208     if ( __kmp_version_2_printed ) {
209         return;
210     }; // if
211     __kmp_version_2_printed = TRUE;
212 } // __kmp_print_version_2
213 
214 // end of file //
215