modules/core/src/system.cpp

   1 /*M///////////////////////////////////////////////////////////////////////////////////////
   2 //
   3 //  IMPORTANT: READ BEFORE DOWNLOADING, COPYING, INSTALLING OR USING.
   4 //
   5 //  By downloading, copying, installing or using the software you agree to this license.
   6 //  If you do not agree to this license, do not download, install,
   7 //  copy or use the software.
   8 //
   9 //
  10 //                           License Agreement
  11 //                For Open Source Computer Vision Library
  12 //
  13 // Copyright (C) 2000-2008, Intel Corporation, all rights reserved.
  14 // Copyright (C) 2009, Willow Garage Inc., all rights reserved.
  15 // Copyright (C) 2015, Itseez Inc., all rights reserved.
  16 // Third party copyrights are property of their respective owners.
  17 //
  18 // Redistribution and use in source and binary forms, with or without modification,
  19 // are permitted provided that the following conditions are met:
  20 //
  21 //   * Redistribution's of source code must retain the above copyright notice,
  22 //     this list of conditions and the following disclaimer.
  23 //
  24 //   * Redistribution's in binary form must reproduce the above copyright notice,
  25 //     this list of conditions and the following disclaimer in the documentation
  26 //     and/or other materials provided with the distribution.
  27 //
  28 //   * The name of the copyright holders may not be used to endorse or promote products
  29 //     derived from this software without specific prior written permission.
  30 //
  31 // This software is provided by the copyright holders and contributors "as is" and
  32 // any express or implied warranties, including, but not limited to, the implied
  33 // warranties of merchantability and fitness for a particular purpose are disclaimed.
  34 // In no event shall the Intel Corporation or contributors be liable for any direct,
  35 // indirect, incidental, special, exemplary, or consequential damages
  36 // (including, but not limited to, procurement of substitute goods or services;
  37 // loss of use, data, or profits; or business interruption) however caused
  38 // and on any theory of liability, whether in contract, strict liability,
  39 // or tort (including negligence or otherwise) arising in any way out of
  40 // the use of this software, even if advised of the possibility of such damage.
  41 //
  42 //M*/
  43
  44 #include "precomp.hpp"
  45 #include <iostream>
  46
  47 #include <opencv2/core/utils/configuration.private.hpp>
  48 #include <opencv2/core/utils/trace.private.hpp>
  49
  50 namespace cv {
  51
  52 static Mutex* __initialization_mutex = NULL;
  53 Mutex& getInitializationMutex()
  54 {
  55     if (__initialization_mutex == NULL)
  56         __initialization_mutex = new Mutex();
  57     return *__initialization_mutex;
  58 }
  59 // force initialization (single-threaded environment)
  60 Mutex* __initialization_mutex_initializer = &getInitializationMutex();
  61
  62 } // namespace cv
  63
  64 #ifdef _MSC_VER
  65 # if _MSC_VER >= 1700
  66 #  pragma warning(disable:4447) // Disable warning 'main' signature found without threading model
  67 # endif
  68 #endif
  69
  70 #if defined __ANDROID__ || defined __linux__ || defined __FreeBSD__ || defined __HAIKU__
  71 #  include <unistd.h>
  72 #  include <fcntl.h>
  73 #  include <elf.h>
  74 #if defined __ANDROID__ || defined __linux__
  75 #  include <linux/auxvec.h>
  76 #endif
  77 #endif
  78
  79 #if defined __ANDROID__ && defined HAVE_CPUFEATURES
  80 #  include <cpu-features.h>
  81 #endif
  82
  83 #ifndef __VSX__
  84 # if defined __PPC64__ && defined __linux__
  85 #   include "sys/auxv.h"
  86 #   ifndef AT_HWCAP2
  87 #     define AT_HWCAP2 26
  88 #   endif
  89 #   ifndef PPC_FEATURE2_ARCH_2_07
  90 #     define PPC_FEATURE2_ARCH_2_07 0x80000000
  91 #   endif
  92 # endif
  93 #endif
  94
  95 #if defined _WIN32 || defined WINCE
  96 #ifndef _WIN32_WINNT           // This is needed for the declaration of TryEnterCriticalSection in winbase.h with Visual Studio 2005 (and older?)
  97   #define _WIN32_WINNT 0x0400  // http://msdn.microsoft.com/en-us/library/ms686857(VS.85).aspx
  98 #endif
  99 #include <windows.h>
 100 #if (_WIN32_WINNT >= 0x0602)
 101   #include <synchapi.h>
 102 #endif
 103 #undef small
 104 #undef min
 105 #undef max
 106 #undef abs
 107 #include <tchar.h>
 108 #if defined _MSC_VER
 109   #if _MSC_VER >= 1400
 110     #include <intrin.h>
 111   #elif defined _M_IX86
 112     static void __cpuid(int* cpuid_data, int)
 113     {
 114         __asm
 115         {
 116             push ebx
 117             push edi
 118             mov edi, cpuid_data
 119             mov eax, 1
 120             cpuid
 121             mov [edi], eax
 122             mov [edi + 4], ebx
 123             mov [edi + 8], ecx
 124             mov [edi + 12], edx
 125             pop edi
 126             pop ebx
 127         }
 128     }
 129     static void __cpuidex(int* cpuid_data, int, int)
 130     {
 131         __asm
 132         {
 133             push edi
 134             mov edi, cpuid_data
 135             mov eax, 7
 136             mov ecx, 0
 137             cpuid
 138             mov [edi], eax
 139             mov [edi + 4], ebx
 140             mov [edi + 8], ecx
 141             mov [edi + 12], edx
 142             pop edi
 143         }
 144     }
 145   #endif
 146 #endif
 147
 148 #ifdef WINRT
 149 #include <wrl/client.h>
 150 #ifndef __cplusplus_winrt
 151 #include <windows.storage.h>
 152 #pragma comment(lib, "runtimeobject.lib")
 153 #endif
 154
 155 std::wstring GetTempPathWinRT()
 156 {
 157 #ifdef __cplusplus_winrt
 158     return std::wstring(Windows::Storage::ApplicationData::Current->TemporaryFolder->Path->Data());
 159 #else
 160     Microsoft::WRL::ComPtr<ABI::Windows::Storage::IApplicationDataStatics> appdataFactory;
 161     Microsoft::WRL::ComPtr<ABI::Windows::Storage::IApplicationData> appdataRef;
 162     Microsoft::WRL::ComPtr<ABI::Windows::Storage::IStorageFolder> storagefolderRef;
 163     Microsoft::WRL::ComPtr<ABI::Windows::Storage::IStorageItem> storageitemRef;
 164     HSTRING str;
 165     HSTRING_HEADER hstrHead;
 166     std::wstring wstr;
 167     if (FAILED(WindowsCreateStringReference(RuntimeClass_Windows_Storage_ApplicationData,
 168                                             (UINT32)wcslen(RuntimeClass_Windows_Storage_ApplicationData), &hstrHead, &str)))
 169         return wstr;
 170     if (FAILED(RoGetActivationFactory(str, IID_PPV_ARGS(appdataFactory.ReleaseAndGetAddressOf()))))
 171         return wstr;
 172     if (FAILED(appdataFactory->get_Current(appdataRef.ReleaseAndGetAddressOf())))
 173         return wstr;
 174     if (FAILED(appdataRef->get_TemporaryFolder(storagefolderRef.ReleaseAndGetAddressOf())))
 175         return wstr;
 176     if (FAILED(storagefolderRef.As(&storageitemRef)))
 177         return wstr;
 178     str = NULL;
 179     if (FAILED(storageitemRef->get_Path(&str)))
 180         return wstr;
 181     wstr = WindowsGetStringRawBuffer(str, NULL);
 182     WindowsDeleteString(str);
 183     return wstr;
 184 #endif
 185 }
 186
 187 std::wstring GetTempFileNameWinRT(std::wstring prefix)
 188 {
 189     wchar_t guidStr[40];
 190     GUID g;
 191     CoCreateGuid(&g);
 192     wchar_t* mask = L"%08x_%04x_%04x_%02x%02x_%02x%02x%02x%02x%02x%02x";
 193     swprintf(&guidStr[0], sizeof(guidStr)/sizeof(wchar_t), mask,
 194              g.Data1, g.Data2, g.Data3, UINT(g.Data4[0]), UINT(g.Data4[1]),
 195              UINT(g.Data4[2]), UINT(g.Data4[3]), UINT(g.Data4[4]),
 196              UINT(g.Data4[5]), UINT(g.Data4[6]), UINT(g.Data4[7]));
 197
 198     return prefix.append(std::wstring(guidStr));
 199 }
 200
 201 #endif
 202 #else
 203 #include <pthread.h>
 204 #include <sys/time.h>
 205 #include <time.h>
 206
 207 #if defined __MACH__ && defined __APPLE__
 208 #include <mach/mach.h>
 209 #include <mach/mach_time.h>
 210 #endif
 211
 212 #endif
 213
 214 #ifdef _OPENMP
 215 #include "omp.h"
 216 #endif
 217
 218 #if defined __linux__ || defined __APPLE__ || defined __EMSCRIPTEN__ || defined __FreeBSD__ || defined __GLIBC__ || defined __HAIKU__
 219 #include <unistd.h>
 220 #include <stdio.h>
 221 #include <sys/types.h>
 222 #if defined __ANDROID__
 223 #include <sys/sysconf.h>
 224 #endif
 225 #endif
 226
 227 #ifdef __ANDROID__
 228 # include <android/log.h>
 229 #endif
 230
 231 namespace cv
 232 {
 233
 234 Exception::Exception() { code = 0; line = 0; }
 235
 236 Exception::Exception(int _code, const String& _err, const String& _func, const String& _file, int _line)
 237 : code(_code), err(_err), func(_func), file(_file), line(_line)
 238 {
 239     formatMessage();
 240 }
 241
 242 Exception::~Exception() throw() {}
 243
 244 /*!
 245  \return the error description and the context as a text string.
 246  */
 247 const char* Exception::what() const throw() { return msg.c_str(); }
 248
 249 void Exception::formatMessage()
 250 {
 251     if( func.size() > 0 )
 252         msg = format("OpenCV(%s) %s:%d: error: (%d) %s in function %s\n", CV_VERSION, file.c_str(), line, code, err.c_str(), func.c_str());
 253     else
 254         msg = format("OpenCV(%s) %s:%d: error: (%d) %s\n", CV_VERSION, file.c_str(), line, code, err.c_str());
 255 }
 256
 257 static const char* g_hwFeatureNames[CV_HARDWARE_MAX_FEATURE] = { NULL };
 258
 259 static const char* getHWFeatureName(int id)
 260 {
 261     return (id < CV_HARDWARE_MAX_FEATURE) ? g_hwFeatureNames[id] : NULL;
 262 }
 263 static const char* getHWFeatureNameSafe(int id)
 264 {
 265     const char* name = getHWFeatureName(id);
 266     return name ? name : "Unknown feature";
 267 }
 268
 269 struct HWFeatures
 270 {
 271     enum { MAX_FEATURE = CV_HARDWARE_MAX_FEATURE };
 272
 273     HWFeatures(bool run_initialize = false)
 274     {
 275         memset( have, 0, sizeof(have[0]) * MAX_FEATURE );
 276         if (run_initialize)
 277             initialize();
 278     }
 279
 280     static void initializeNames()
 281     {
 282         for (int i = 0; i < CV_HARDWARE_MAX_FEATURE; i++)
 283         {
 284             g_hwFeatureNames[i] = 0;
 285         }
 286         g_hwFeatureNames[CPU_MMX] = "MMX";
 287         g_hwFeatureNames[CPU_SSE] = "SSE";
 288         g_hwFeatureNames[CPU_SSE2] = "SSE2";
 289         g_hwFeatureNames[CPU_SSE3] = "SSE3";
 290         g_hwFeatureNames[CPU_SSSE3] = "SSSE3";
 291         g_hwFeatureNames[CPU_SSE4_1] = "SSE4.1";
 292         g_hwFeatureNames[CPU_SSE4_2] = "SSE4.2";
 293         g_hwFeatureNames[CPU_POPCNT] = "POPCNT";
 294         g_hwFeatureNames[CPU_FP16] = "FP16";
 295         g_hwFeatureNames[CPU_AVX] = "AVX";
 296         g_hwFeatureNames[CPU_AVX2] = "AVX2";
 297         g_hwFeatureNames[CPU_FMA3] = "FMA3";
 298
 299         g_hwFeatureNames[CPU_AVX_512F] = "AVX512F";
 300         g_hwFeatureNames[CPU_AVX_512BW] = "AVX512BW";
 301         g_hwFeatureNames[CPU_AVX_512CD] = "AVX512CD";
 302         g_hwFeatureNames[CPU_AVX_512DQ] = "AVX512DQ";
 303         g_hwFeatureNames[CPU_AVX_512ER] = "AVX512ER";
 304         g_hwFeatureNames[CPU_AVX_512IFMA] = "AVX512IFMA";
 305         g_hwFeatureNames[CPU_AVX_512PF] = "AVX512PF";
 306         g_hwFeatureNames[CPU_AVX_512VBMI] = "AVX512VBMI";
 307         g_hwFeatureNames[CPU_AVX_512VL] = "AVX512VL";
 308
 309         g_hwFeatureNames[CPU_NEON] = "NEON";
 310
 311         g_hwFeatureNames[CPU_VSX] = "VSX";
 312
 313         g_hwFeatureNames[CPU_AVX512_SKX] = "AVX512-SKX";
 314     }
 315
 316     void initialize(void)
 317     {
 318 #ifndef WINRT
 319         if (getenv("OPENCV_DUMP_CONFIG"))
 320         {
 321             fprintf(stderr, "\nOpenCV build configuration is:\n%s\n",
 322                 cv::getBuildInformation().c_str());
 323         }
 324 #endif
 325
 326         initializeNames();
 327
 328         int cpuid_data[4] = { 0, 0, 0, 0 };
 329         int cpuid_data_ex[4] = { 0, 0, 0, 0 };
 330
 331     #if defined _MSC_VER && (defined _M_IX86 || defined _M_X64)
 332     #define OPENCV_HAVE_X86_CPUID 1
 333         __cpuid(cpuid_data, 1);
 334     #elif defined __GNUC__ && (defined __i386__ || defined __x86_64__)
 335     #define OPENCV_HAVE_X86_CPUID 1
 336         #ifdef __x86_64__
 337         asm __volatile__
 338         (
 339          "movl $1, %%eax\n\t"
 340          "cpuid\n\t"
 341          :[eax]"=a"(cpuid_data[0]),[ebx]"=b"(cpuid_data[1]),[ecx]"=c"(cpuid_data[2]),[edx]"=d"(cpuid_data[3])
 342          :
 343          : "cc"
 344         );
 345         #else
 346         asm volatile
 347         (
 348          "pushl %%ebx\n\t"
 349          "movl $1,%%eax\n\t"
 350          "cpuid\n\t"
 351          "popl %%ebx\n\t"
 352          : "=a"(cpuid_data[0]), "=c"(cpuid_data[2]), "=d"(cpuid_data[3])
 353          :
 354          : "cc"
 355         );
 356         #endif
 357     #endif
 358
 359     #ifdef OPENCV_HAVE_X86_CPUID
 360         int x86_family = (cpuid_data[0] >> 8) & 15;
 361         if( x86_family >= 6 )
 362         {
 363             have[CV_CPU_MMX]    = (cpuid_data[3] & (1<<23)) != 0;
 364             have[CV_CPU_SSE]    = (cpuid_data[3] & (1<<25)) != 0;
 365             have[CV_CPU_SSE2]   = (cpuid_data[3] & (1<<26)) != 0;
 366             have[CV_CPU_SSE3]   = (cpuid_data[2] & (1<<0)) != 0;
 367             have[CV_CPU_SSSE3]  = (cpuid_data[2] & (1<<9)) != 0;
 368             have[CV_CPU_FMA3]   = (cpuid_data[2] & (1<<12)) != 0;
 369             have[CV_CPU_SSE4_1] = (cpuid_data[2] & (1<<19)) != 0;
 370             have[CV_CPU_SSE4_2] = (cpuid_data[2] & (1<<20)) != 0;
 371             have[CV_CPU_POPCNT] = (cpuid_data[2] & (1<<23)) != 0;
 372             have[CV_CPU_AVX]    = (cpuid_data[2] & (1<<28)) != 0;
 373             have[CV_CPU_FP16]   = (cpuid_data[2] & (1<<29)) != 0;
 374
 375             // make the second call to the cpuid command in order to get
 376             // information about extended features like AVX2
 377         #if defined _MSC_VER && (defined _M_IX86 || defined _M_X64)
 378         #define OPENCV_HAVE_X86_CPUID_EX 1
 379             __cpuidex(cpuid_data_ex, 7, 0);
 380         #elif defined __GNUC__ && (defined __i386__ || defined __x86_64__)
 381         #define OPENCV_HAVE_X86_CPUID_EX 1
 382             #ifdef __x86_64__
 383             asm __volatile__
 384             (
 385              "movl $7, %%eax\n\t"
 386              "movl $0, %%ecx\n\t"
 387              "cpuid\n\t"
 388              :[eax]"=a"(cpuid_data_ex[0]),[ebx]"=b"(cpuid_data_ex[1]),[ecx]"=c"(cpuid_data_ex[2]),[edx]"=d"(cpuid_data_ex[3])
 389              :
 390              : "cc"
 391             );
 392             #else
 393             asm volatile
 394             (
 395              "pushl %%ebx\n\t"
 396              "movl $7,%%eax\n\t"
 397              "movl $0,%%ecx\n\t"
 398              "cpuid\n\t"
 399              "movl %%ebx, %0\n\t"
 400              "popl %%ebx\n\t"
 401              : "=r"(cpuid_data_ex[1]), "=c"(cpuid_data_ex[2])
 402              :
 403              : "cc"
 404             );
 405             #endif
 406         #endif
 407
 408         #ifdef OPENCV_HAVE_X86_CPUID_EX
 409             have[CV_CPU_AVX2]   = (cpuid_data_ex[1] & (1<<5)) != 0;
 410
 411             have[CV_CPU_AVX_512F]       = (cpuid_data_ex[1] & (1<<16)) != 0;
 412             have[CV_CPU_AVX_512DQ]      = (cpuid_data_ex[1] & (1<<17)) != 0;
 413             have[CV_CPU_AVX_512IFMA512] = (cpuid_data_ex[1] & (1<<21)) != 0;
 414             have[CV_CPU_AVX_512PF]      = (cpuid_data_ex[1] & (1<<26)) != 0;
 415             have[CV_CPU_AVX_512ER]      = (cpuid_data_ex[1] & (1<<27)) != 0;
 416             have[CV_CPU_AVX_512CD]      = (cpuid_data_ex[1] & (1<<28)) != 0;
 417             have[CV_CPU_AVX_512BW]      = (cpuid_data_ex[1] & (1<<30)) != 0;
 418             have[CV_CPU_AVX_512VL]      = (cpuid_data_ex[1] & (1<<31)) != 0;
 419             have[CV_CPU_AVX_512VBMI]    = (cpuid_data_ex[2] & (1<<1)) != 0;
 420         #else
 421             CV_UNUSED(cpuid_data_ex);
 422         #endif
 423
 424             bool have_AVX_OS_support = true;
 425             bool have_AVX512_OS_support = true;
 426             if (!(cpuid_data[2] & (1<<27)))
 427                 have_AVX_OS_support = false; // OS uses XSAVE_XRSTORE and CPU support AVX
 428             else
 429             {
 430                 int xcr0 = 0;
 431             #ifdef _XCR_XFEATURE_ENABLED_MASK // requires immintrin.h
 432                 xcr0 = (int)_xgetbv(_XCR_XFEATURE_ENABLED_MASK);
 433             #elif defined __GNUC__ && (defined __i386__ || defined __x86_64__)
 434                 __asm__ ("xgetbv" : "=a" (xcr0) : "c" (0) : "%edx" );
 435             #endif
 436                 if ((xcr0 & 0x6) != 0x6)
 437                     have_AVX_OS_support = false; // YMM registers
 438                 if ((xcr0 & 0xe6) != 0xe6)
 439                     have_AVX512_OS_support = false; // ZMM registers
 440             }
 441
 442             if (!have_AVX_OS_support)
 443             {
 444                 have[CV_CPU_AVX] = false;
 445                 have[CV_CPU_FP16] = false;
 446                 have[CV_CPU_AVX2] = false;
 447                 have[CV_CPU_FMA3] = false;
 448             }
 449             if (!have_AVX_OS_support || !have_AVX512_OS_support)
 450             {
 451                 have[CV_CPU_AVX_512F] = false;
 452                 have[CV_CPU_AVX_512BW] = false;
 453                 have[CV_CPU_AVX_512CD] = false;
 454                 have[CV_CPU_AVX_512DQ] = false;
 455                 have[CV_CPU_AVX_512ER] = false;
 456                 have[CV_CPU_AVX_512IFMA512] = false;
 457                 have[CV_CPU_AVX_512PF] = false;
 458                 have[CV_CPU_AVX_512VBMI] = false;
 459                 have[CV_CPU_AVX_512VL] = false;
 460             }
 461
 462             if (have[CV_CPU_AVX_512F])
 463             {
 464                 have[CV_CPU_AVX512_SKX] = have[CV_CPU_AVX_512F] & have[CV_CPU_AVX_512CD] & have[CV_CPU_AVX_512BW] & have[CV_CPU_AVX_512DQ] & have[CV_CPU_AVX_512VL];
 465             }
 466         }
 467     #else
 468         CV_UNUSED(cpuid_data);
 469         CV_UNUSED(cpuid_data_ex);
 470     #endif // OPENCV_HAVE_X86_CPUID
 471
 472     #if defined __ANDROID__ || defined __linux__
 473     #ifdef __aarch64__
 474         have[CV_CPU_NEON] = true;
 475         have[CV_CPU_FP16] = true;
 476     #elif defined __arm__ && defined __ANDROID__
 477       #if defined HAVE_CPUFEATURES
 478         __android_log_print(ANDROID_LOG_INFO, "OpenCV", "calling android_getCpuFeatures() ...");
 479         uint64_t features = android_getCpuFeatures();
 480         __android_log_print(ANDROID_LOG_INFO, "OpenCV", "calling android_getCpuFeatures() ... Done (%llx)", features);
 481         have[CV_CPU_NEON] = (features & ANDROID_CPU_ARM_FEATURE_NEON) != 0;
 482         have[CV_CPU_FP16] = (features & ANDROID_CPU_ARM_FEATURE_VFP_FP16) != 0;
 483       #else
 484         __android_log_print(ANDROID_LOG_INFO, "OpenCV", "cpufeatures library is not avaialble for CPU detection");
 485         #if CV_NEON
 486         __android_log_print(ANDROID_LOG_INFO, "OpenCV", "- NEON instructions is enabled via build flags");
 487         have[CV_CPU_NEON] = true;
 488         #else
 489         __android_log_print(ANDROID_LOG_INFO, "OpenCV", "- NEON instructions is NOT enabled via build flags");
 490         #endif
 491         #if CV_FP16
 492         __android_log_print(ANDROID_LOG_INFO, "OpenCV", "- FP16 instructions is enabled via build flags");
 493         have[CV_CPU_FP16] = true;
 494         #else
 495         __android_log_print(ANDROID_LOG_INFO, "OpenCV", "- FP16 instructions is NOT enabled via build flags");
 496         #endif
 497       #endif
 498     #elif defined __arm__
 499         int cpufile = open("/proc/self/auxv", O_RDONLY);
 500
 501         if (cpufile >= 0)
 502         {
 503             Elf32_auxv_t auxv;
 504             const size_t size_auxv_t = sizeof(auxv);
 505
 506             while ((size_t)read(cpufile, &auxv, size_auxv_t) == size_auxv_t)
 507             {
 508                 if (auxv.a_type == AT_HWCAP)
 509                 {
 510                     have[CV_CPU_NEON] = (auxv.a_un.a_val & 4096) != 0;
 511                     have[CV_CPU_FP16] = (auxv.a_un.a_val & 2) != 0;
 512                     break;
 513                 }
 514             }
 515
 516             close(cpufile);
 517         }
 518     #endif
 519     #elif (defined __clang__ || defined __APPLE__)
 520     #if (defined __ARM_NEON__ || (defined __ARM_NEON && defined __aarch64__))
 521         have[CV_CPU_NEON] = true;
 522     #endif
 523     #if (defined __ARM_FP  && (((__ARM_FP & 0x2) != 0) && defined __ARM_NEON__))
 524         have[CV_CPU_FP16] = true;
 525     #endif
 526     #endif
 527
 528     #ifdef __VSX__
 529         have[CV_CPU_VSX] = true;
 530     #elif (defined __PPC64__ && defined __linux__)
 531         uint64 hwcaps = getauxval(AT_HWCAP);
 532         uint64 hwcap2 = getauxval(AT_HWCAP2);
 533         have[CV_CPU_VSX] = (hwcaps & PPC_FEATURE_PPC_LE && hwcaps & PPC_FEATURE_HAS_VSX && hwcap2 & PPC_FEATURE2_ARCH_2_07);
 534     #else
 535         have[CV_CPU_VSX] = false;
 536     #endif
 537
 538         int baseline_features[] = { CV_CPU_BASELINE_FEATURES };
 539         if (!checkFeatures(baseline_features, sizeof(baseline_features) / sizeof(baseline_features[0])))
 540         {
 541             fprintf(stderr, "\n"
 542                     "******************************************************************\n"
 543                     "* FATAL ERROR:                                                   *\n"
 544                     "* This OpenCV build doesn't support current CPU/HW configuration *\n"
 545                     "*                                                                *\n"
 546                     "* Use OPENCV_DUMP_CONFIG=1 environment variable for details      *\n"
 547                     "******************************************************************\n");
 548             fprintf(stderr, "\nRequired baseline features:\n");
 549             checkFeatures(baseline_features, sizeof(baseline_features) / sizeof(baseline_features[0]), true);
 550             CV_ErrorNoReturn(cv::Error::StsAssert, "Missing support for required CPU baseline features. Check OpenCV build configuration and required CPU/HW setup.");
 551         }
 552
 553         readSettings(baseline_features, sizeof(baseline_features) / sizeof(baseline_features[0]));
 554     }
 555
 556     bool checkFeatures(const int* features, int count, bool dump = false)
 557     {
 558         bool result = true;
 559         for (int i = 0; i < count; i++)
 560         {
 561             int feature = features[i];
 562             if (feature)
 563             {
 564                 if (have[feature])
 565                 {
 566                     if (dump) fprintf(stderr, "%s - OK\n", getHWFeatureNameSafe(feature));
 567                 }
 568                 else
 569                 {
 570                     result = false;
 571                     if (dump) fprintf(stderr, "%s - NOT AVAILABLE\n", getHWFeatureNameSafe(feature));
 572                 }
 573             }
 574         }
 575         return result;
 576     }
 577
 578     static inline bool isSymbolSeparator(char c)
 579     {
 580         return c == ',' || c == ';' || c == '-';
 581     }
 582
 583     void readSettings(const int* baseline_features, int baseline_count)
 584     {
 585         bool dump = true;
 586         const char* disabled_features =
 587 #ifndef WINRT
 588                 getenv("OPENCV_CPU_DISABLE");
 589 #else
 590                 NULL;
 591 #endif
 592         if (disabled_features && disabled_features[0] != 0)
 593         {
 594             const char* start = disabled_features;
 595             for (;;)
 596             {
 597                 while (start[0] != 0 && isSymbolSeparator(start[0]))
 598                 {
 599                     start++;
 600                 }
 601                 if (start[0] == 0)
 602                     break;
 603                 const char* end = start;
 604                 while (end[0] != 0 && !isSymbolSeparator(end[0]))
 605                 {
 606                     end++;
 607                 }
 608                 if (end == start)
 609                     continue;
 610                 cv::String feature(start, end);
 611                 start = end;
 612
 613                 CV_Assert(feature.size() > 0);
 614
 615                 bool found = false;
 616                 for (int i = 0; i < CV_HARDWARE_MAX_FEATURE; i++)
 617                 {
 618                     if (!g_hwFeatureNames[i]) continue;
 619                     size_t len = strlen(g_hwFeatureNames[i]);
 620                     if (len != feature.size()) continue;
 621                     if (feature.compare(g_hwFeatureNames[i]) == 0)
 622                     {
 623                         bool isBaseline = false;
 624                         for (int k = 0; k < baseline_count; k++)
 625                         {
 626                             if (baseline_features[k] == i)
 627                             {
 628                                 isBaseline = true;
 629                                 break;
 630                             }
 631                         }
 632                         if (isBaseline)
 633                         {
 634                             if (dump) fprintf(stderr, "OPENCV: Trying to disable baseline CPU feature: '%s'. This has very limited effect, because code optimizations for this feature are executed unconditionally in the most cases.\n", getHWFeatureNameSafe(i));
 635                         }
 636                         if (!have[i])
 637                         {
 638                             if (dump) fprintf(stderr, "OPENCV: Trying to disable unavailable CPU feature on the current platform: '%s'.\n", getHWFeatureNameSafe(i));
 639                         }
 640                         have[i] = false;
 641
 642                         found = true;
 643                         break;
 644                     }
 645                 }
 646                 if (!found)
 647                 {
 648                     if (dump) fprintf(stderr, "OPENCV: Trying to disable unknown CPU feature: '%s'.\n", feature.c_str());
 649                 }
 650             }
 651         }
 652     }
 653
 654     bool have[MAX_FEATURE+1];
 655 };
 656
 657 static HWFeatures  featuresEnabled(true), featuresDisabled = HWFeatures(false);
 658 static HWFeatures* currentFeatures = &featuresEnabled;
 659
 660 bool checkHardwareSupport(int feature)
 661 {
 662     CV_DbgAssert( 0 <= feature && feature <= CV_HARDWARE_MAX_FEATURE );
 663     return currentFeatures->have[feature];
 664 }
 665
 666
 667 volatile bool useOptimizedFlag = true;
 668
 669 void setUseOptimized( bool flag )
 670 {
 671     useOptimizedFlag = flag;
 672     currentFeatures = flag ? &featuresEnabled : &featuresDisabled;
 673
 674     ipp::setUseIPP(flag);
 675 #ifdef HAVE_OPENCL
 676     ocl::setUseOpenCL(flag);
 677 #endif
 678 #ifdef HAVE_TEGRA_OPTIMIZATION
 679     ::tegra::setUseTegra(flag);
 680 #endif
 681 }
 682
 683 bool useOptimized(void)
 684 {
 685     return useOptimizedFlag;
 686 }
 687
 688 int64 getTickCount(void)
 689 {
 690 #if defined _WIN32 || defined WINCE
 691     LARGE_INTEGER counter;
 692     QueryPerformanceCounter( &counter );
 693     return (int64)counter.QuadPart;
 694 #elif defined __linux || defined __linux__
 695     struct timespec tp;
 696     clock_gettime(CLOCK_MONOTONIC, &tp);
 697     return (int64)tp.tv_sec*1000000000 + tp.tv_nsec;
 698 #elif defined __MACH__ && defined __APPLE__
 699     return (int64)mach_absolute_time();
 700 #else
 701     struct timeval tv;
 702     struct timezone tz;
 703     gettimeofday( &tv, &tz );
 704     return (int64)tv.tv_sec*1000000 + tv.tv_usec;
 705 #endif
 706 }
 707
 708 double getTickFrequency(void)
 709 {
 710 #if defined _WIN32 || defined WINCE
 711     LARGE_INTEGER freq;
 712     QueryPerformanceFrequency(&freq);
 713     return (double)freq.QuadPart;
 714 #elif defined __linux || defined __linux__
 715     return 1e9;
 716 #elif defined __MACH__ && defined __APPLE__
 717     static double freq = 0;
 718     if( freq == 0 )
 719     {
 720         mach_timebase_info_data_t sTimebaseInfo;
 721         mach_timebase_info(&sTimebaseInfo);
 722         freq = sTimebaseInfo.denom*1e9/sTimebaseInfo.numer;
 723     }
 724     return freq;
 725 #else
 726     return 1e6;
 727 #endif
 728 }
 729
 730 #if defined __GNUC__ && (defined __i386__ || defined __x86_64__ || defined __ppc__)
 731 #if defined(__i386__)
 732
 733 int64 getCPUTickCount(void)
 734 {
 735     int64 x;
 736     __asm__ volatile (".byte 0x0f, 0x31" : "=A" (x));
 737     return x;
 738 }
 739 #elif defined(__x86_64__)
 740
 741 int64 getCPUTickCount(void)
 742 {
 743     unsigned hi, lo;
 744     __asm__ __volatile__ ("rdtsc" : "=a"(lo), "=d"(hi));
 745     return (int64)lo | ((int64)hi << 32);
 746 }
 747
 748 #elif defined(__ppc__)
 749
 750 int64 getCPUTickCount(void)
 751 {
 752     int64 result = 0;
 753     unsigned upper, lower, tmp;
 754     __asm__ volatile(
 755                      "0:                  \n"
 756                      "\tmftbu   %0           \n"
 757                      "\tmftb    %1           \n"
 758                      "\tmftbu   %2           \n"
 759                      "\tcmpw    %2,%0        \n"
 760                      "\tbne     0b         \n"
 761                      : "=r"(upper),"=r"(lower),"=r"(tmp)
 762                      );
 763     return lower | ((int64)upper << 32);
 764 }
 765
 766 #else
 767
 768 #error "RDTSC not defined"
 769
 770 #endif
 771
 772 #elif defined _MSC_VER && defined _WIN32 && defined _M_IX86
 773
 774 int64 getCPUTickCount(void)
 775 {
 776     __asm _emit 0x0f;
 777     __asm _emit 0x31;
 778 }
 779
 780 #else
 781
 782 //#ifdef HAVE_IPP
 783 //int64 getCPUTickCount(void)
 784 //{
 785 //    return ippGetCpuClocks();
 786 //}
 787 //#else
 788 int64 getCPUTickCount(void)
 789 {
 790     return getTickCount();
 791 }
 792 //#endif
 793
 794 #endif
 795
 796 const String& getBuildInformation()
 797 {
 798     static String build_info =
 799 #include "version_string.inc"
 800     ;
 801     return build_info;
 802 }
 803
 804 String format( const char* fmt, ... )
 805 {
 806     AutoBuffer<char, 1024> buf;
 807
 808     for ( ; ; )
 809     {
 810         va_list va;
 811         va_start(va, fmt);
 812         int bsize = static_cast<int>(buf.size());
 813         int len = cv_vsnprintf((char *)buf, bsize, fmt, va);
 814         va_end(va);
 815
 816         CV_Assert(len >= 0 && "Check format string for errors");
 817         if (len >= bsize)
 818         {
 819             buf.resize(len + 1);
 820             continue;
 821         }
 822         buf[bsize - 1] = 0;
 823         return String((char *)buf, len);
 824     }
 825 }
 826
 827 String tempfile( const char* suffix )
 828 {
 829     String fname;
 830 #ifndef WINRT
 831     const char *temp_dir = getenv("OPENCV_TEMP_PATH");
 832 #endif
 833
 834 #if defined _WIN32
 835 #ifdef WINRT
 836     RoInitialize(RO_INIT_MULTITHREADED);
 837     std::wstring temp_dir = GetTempPathWinRT();
 838
 839     std::wstring temp_file = GetTempFileNameWinRT(L"ocv");
 840     if (temp_file.empty())
 841         return String();
 842
 843     temp_file = temp_dir.append(std::wstring(L"\\")).append(temp_file);
 844     DeleteFileW(temp_file.c_str());
 845
 846     char aname[MAX_PATH];
 847     size_t copied = wcstombs(aname, temp_file.c_str(), MAX_PATH);
 848     CV_Assert((copied != MAX_PATH) && (copied != (size_t)-1));
 849     fname = String(aname);
 850     RoUninitialize();
 851 #else
 852     char temp_dir2[MAX_PATH] = { 0 };
 853     char temp_file[MAX_PATH] = { 0 };
 854
 855     if (temp_dir == 0 || temp_dir[0] == 0)
 856     {
 857         ::GetTempPathA(sizeof(temp_dir2), temp_dir2);
 858         temp_dir = temp_dir2;
 859     }
 860     if(0 == ::GetTempFileNameA(temp_dir, "ocv", 0, temp_file))
 861         return String();
 862
 863     DeleteFileA(temp_file);
 864
 865     fname = temp_file;
 866 #endif
 867 # else
 868 #  ifdef __ANDROID__
 869     //char defaultTemplate[] = "/mnt/sdcard/__opencv_temp.XXXXXX";
 870     char defaultTemplate[] = "/data/local/tmp/__opencv_temp.XXXXXX";
 871 #  else
 872     char defaultTemplate[] = "/tmp/__opencv_temp.XXXXXX";
 873 #  endif
 874
 875     if (temp_dir == 0 || temp_dir[0] == 0)
 876         fname = defaultTemplate;
 877     else
 878     {
 879         fname = temp_dir;
 880         char ech = fname[fname.size() - 1];
 881         if(ech != '/' && ech != '\\')
 882             fname = fname + "/";
 883         fname = fname + "__opencv_temp.XXXXXX";
 884     }
 885
 886     const int fd = mkstemp((char*)fname.c_str());
 887     if (fd == -1) return String();
 888
 889     close(fd);
 890     remove(fname.c_str());
 891 # endif
 892
 893     if (suffix)
 894     {
 895         if (suffix[0] != '.')
 896             return fname + "." + suffix;
 897         else
 898             return fname + suffix;
 899     }
 900     return fname;
 901 }
 902
 903 static ErrorCallback customErrorCallback = 0;
 904 static void* customErrorCallbackData = 0;
 905 static bool breakOnError = false;
 906
 907 bool setBreakOnError(bool value)
 908 {
 909     bool prevVal = breakOnError;
 910     breakOnError = value;
 911     return prevVal;
 912 }
 913
 914 int cv_snprintf(char* buf, int len, const char* fmt, ...)
 915 {
 916     va_list va;
 917     va_start(va, fmt);
 918     int res = cv_vsnprintf(buf, len, fmt, va);
 919     va_end(va);
 920     return res;
 921 }
 922
 923 int cv_vsnprintf(char* buf, int len, const char* fmt, va_list args)
 924 {
 925 #if defined _MSC_VER
 926     if (len <= 0) return len == 0 ? 1024 : -1;
 927     int res = _vsnprintf_s(buf, len, _TRUNCATE, fmt, args);
 928     // ensure null terminating on VS
 929     if (res >= 0 && res < len)
 930     {
 931         buf[res] = 0;
 932         return res;
 933     }
 934     else
 935     {
 936         buf[len - 1] = 0; // truncate happened
 937         return res >= len ? res : (len * 2);
 938     }
 939 #else
 940     return vsnprintf(buf, len, fmt, args);
 941 #endif
 942 }
 943
 944 void error( const Exception& exc )
 945 {
 946     if (customErrorCallback != 0)
 947         customErrorCallback(exc.code, exc.func.c_str(), exc.err.c_str(),
 948                             exc.file.c_str(), exc.line, customErrorCallbackData);
 949     else
 950     {
 951         const char* errorStr = cvErrorStr(exc.code);
 952         char buf[1 << 12];
 953
 954         cv_snprintf(buf, sizeof(buf),
 955             "OpenCV(%s) Error: %s (%s) in %s, file %s, line %d",
 956             CV_VERSION,
 957             errorStr, exc.err.c_str(), exc.func.size() > 0 ?
 958             exc.func.c_str() : "unknown function", exc.file.c_str(), exc.line);
 959         fprintf( stderr, "%s\n", buf );
 960         fflush( stderr );
 961 #  ifdef __ANDROID__
 962         __android_log_print(ANDROID_LOG_ERROR, "cv::error()", "%s", buf);
 963 #  endif
 964     }
 965
 966     if(breakOnError)
 967     {
 968         static volatile int* p = 0;
 969         *p = 0;
 970     }
 971
 972     CV_THROW(exc);
 973 }
 974
 975 void error(int _code, const String& _err, const char* _func, const char* _file, int _line)
 976 {
 977     error(cv::Exception(_code, _err, _func, _file, _line));
 978 }
 979
 980
 981 ErrorCallback
 982 redirectError( ErrorCallback errCallback, void* userdata, void** prevUserdata)
 983 {
 984     if( prevUserdata )
 985         *prevUserdata = customErrorCallbackData;
 986
 987     ErrorCallback prevCallback = customErrorCallback;
 988
 989     customErrorCallback     = errCallback;
 990     customErrorCallbackData = userdata;
 991
 992     return prevCallback;
 993 }
 994
 995 }
 996
 997 CV_IMPL int cvCheckHardwareSupport(int feature)
 998 {
 999     CV_DbgAssert( 0 <= feature && feature <= CV_HARDWARE_MAX_FEATURE );
1000     return cv::currentFeatures->have[feature];
1001 }
1002
1003 CV_IMPL int cvUseOptimized( int flag )
1004 {
1005     int prevMode = cv::useOptimizedFlag;
1006     cv::setUseOptimized( flag != 0 );
1007     return prevMode;
1008 }
1009
1010 CV_IMPL int64  cvGetTickCount(void)
1011 {
1012     return cv::getTickCount();
1013 }
1014
1015 CV_IMPL double cvGetTickFrequency(void)
1016 {
1017     return cv::getTickFrequency()*1e-6;
1018 }
1019
1020 CV_IMPL CvErrorCallback
1021 cvRedirectError( CvErrorCallback errCallback, void* userdata, void** prevUserdata)
1022 {
1023     return cv::redirectError(errCallback, userdata, prevUserdata);
1024 }
1025
1026 CV_IMPL int cvNulDevReport( int, const char*, const char*,
1027                             const char*, int, void* )
1028 {
1029     return 0;
1030 }
1031
1032 CV_IMPL int cvStdErrReport( int, const char*, const char*,
1033                             const char*, int, void* )
1034 {
1035     return 0;
1036 }
1037
1038 CV_IMPL int cvGuiBoxReport( int, const char*, const char*,
1039                             const char*, int, void* )
1040 {
1041     return 0;
1042 }
1043
1044 CV_IMPL int cvGetErrInfo( const char**, const char**, const char**, int* )
1045 {
1046     return 0;
1047 }
1048
1049
1050 CV_IMPL const char* cvErrorStr( int status )
1051 {
1052     static char buf[256];
1053
1054     switch (status)
1055     {
1056     case CV_StsOk :                  return "No Error";
1057     case CV_StsBackTrace :           return "Backtrace";
1058     case CV_StsError :               return "Unspecified error";
1059     case CV_StsInternal :            return "Internal error";
1060     case CV_StsNoMem :               return "Insufficient memory";
1061     case CV_StsBadArg :              return "Bad argument";
1062     case CV_StsNoConv :              return "Iterations do not converge";
1063     case CV_StsAutoTrace :           return "Autotrace call";
1064     case CV_StsBadSize :             return "Incorrect size of input array";
1065     case CV_StsNullPtr :             return "Null pointer";
1066     case CV_StsDivByZero :           return "Division by zero occurred";
1067     case CV_BadStep :                return "Image step is wrong";
1068     case CV_StsInplaceNotSupported : return "Inplace operation is not supported";
1069     case CV_StsObjectNotFound :      return "Requested object was not found";
1070     case CV_BadDepth :               return "Input image depth is not supported by function";
1071     case CV_StsUnmatchedFormats :    return "Formats of input arguments do not match";
1072     case CV_StsUnmatchedSizes :      return "Sizes of input arguments do not match";
1073     case CV_StsOutOfRange :          return "One of arguments\' values is out of range";
1074     case CV_StsUnsupportedFormat :   return "Unsupported format or combination of formats";
1075     case CV_BadCOI :                 return "Input COI is not supported";
1076     case CV_BadNumChannels :         return "Bad number of channels";
1077     case CV_StsBadFlag :             return "Bad flag (parameter or structure field)";
1078     case CV_StsBadPoint :            return "Bad parameter of type CvPoint";
1079     case CV_StsBadMask :             return "Bad type of mask argument";
1080     case CV_StsParseError :          return "Parsing error";
1081     case CV_StsNotImplemented :      return "The function/feature is not implemented";
1082     case CV_StsBadMemBlock :         return "Memory block has been corrupted";
1083     case CV_StsAssert :              return "Assertion failed";
1084     case CV_GpuNotSupported :        return "No CUDA support";
1085     case CV_GpuApiCallError :        return "Gpu API call";
1086     case CV_OpenGlNotSupported :     return "No OpenGL support";
1087     case CV_OpenGlApiCallError :     return "OpenGL API call";
1088     };
1089
1090     sprintf(buf, "Unknown %s code %d", status >= 0 ? "status":"error", status);
1091     return buf;
1092 }
1093
1094 CV_IMPL int cvGetErrMode(void)
1095 {
1096     return 0;
1097 }
1098
1099 CV_IMPL int cvSetErrMode(int)
1100 {
1101     return 0;
1102 }
1103
1104 CV_IMPL int cvGetErrStatus(void)
1105 {
1106     return 0;
1107 }
1108
1109 CV_IMPL void cvSetErrStatus(int)
1110 {
1111 }
1112
1113
1114 CV_IMPL void cvError( int code, const char* func_name,
1115                       const char* err_msg,
1116                       const char* file_name, int line )
1117 {
1118     cv::error(cv::Exception(code, err_msg, func_name, file_name, line));
1119 }
1120
1121 /* function, which converts int to int */
1122 CV_IMPL int
1123 cvErrorFromIppStatus( int status )
1124 {
1125     switch (status)
1126     {
1127     case CV_BADSIZE_ERR:               return CV_StsBadSize;
1128     case CV_BADMEMBLOCK_ERR:           return CV_StsBadMemBlock;
1129     case CV_NULLPTR_ERR:               return CV_StsNullPtr;
1130     case CV_DIV_BY_ZERO_ERR:           return CV_StsDivByZero;
1131     case CV_BADSTEP_ERR:               return CV_BadStep;
1132     case CV_OUTOFMEM_ERR:              return CV_StsNoMem;
1133     case CV_BADARG_ERR:                return CV_StsBadArg;
1134     case CV_NOTDEFINED_ERR:            return CV_StsError;
1135     case CV_INPLACE_NOT_SUPPORTED_ERR: return CV_StsInplaceNotSupported;
1136     case CV_NOTFOUND_ERR:              return CV_StsObjectNotFound;
1137     case CV_BADCONVERGENCE_ERR:        return CV_StsNoConv;
1138     case CV_BADDEPTH_ERR:              return CV_BadDepth;
1139     case CV_UNMATCHED_FORMATS_ERR:     return CV_StsUnmatchedFormats;
1140     case CV_UNSUPPORTED_COI_ERR:       return CV_BadCOI;
1141     case CV_UNSUPPORTED_CHANNELS_ERR:  return CV_BadNumChannels;
1142     case CV_BADFLAG_ERR:               return CV_StsBadFlag;
1143     case CV_BADRANGE_ERR:              return CV_StsBadArg;
1144     case CV_BADCOEF_ERR:               return CV_StsBadArg;
1145     case CV_BADFACTOR_ERR:             return CV_StsBadArg;
1146     case CV_BADPOINT_ERR:              return CV_StsBadPoint;
1147
1148     default:
1149       return CV_StsError;
1150     }
1151 }
1152
1153 namespace cv {
1154 bool __termination = false;
1155 }
1156
1157 namespace cv
1158 {
1159
1160 #if defined _WIN32 || defined WINCE
1161
1162 struct Mutex::Impl
1163 {
1164     Impl()
1165     {
1166 #if (_WIN32_WINNT >= 0x0600)
1167         ::InitializeCriticalSectionEx(&cs, 1000, 0);
1168 #else
1169         ::InitializeCriticalSection(&cs);
1170 #endif
1171         refcount = 1;
1172     }
1173     ~Impl() { DeleteCriticalSection(&cs); }
1174
1175     void lock() { EnterCriticalSection(&cs); }
1176     bool trylock() { return TryEnterCriticalSection(&cs) != 0; }
1177     void unlock() { LeaveCriticalSection(&cs); }
1178
1179     CRITICAL_SECTION cs;
1180     int refcount;
1181 };
1182
1183 #else
1184
1185 struct Mutex::Impl
1186 {
1187     Impl()
1188     {
1189         pthread_mutexattr_t attr;
1190         pthread_mutexattr_init(&attr);
1191         pthread_mutexattr_settype(&attr, PTHREAD_MUTEX_RECURSIVE);
1192         pthread_mutex_init(&mt, &attr);
1193         pthread_mutexattr_destroy(&attr);
1194
1195         refcount = 1;
1196     }
1197     ~Impl() { pthread_mutex_destroy(&mt); }
1198
1199     void lock() { pthread_mutex_lock(&mt); }
1200     bool trylock() { return pthread_mutex_trylock(&mt) == 0; }
1201     void unlock() { pthread_mutex_unlock(&mt); }
1202
1203     pthread_mutex_t mt;
1204     int refcount;
1205 };
1206
1207 #endif
1208
1209 Mutex::Mutex()
1210 {
1211     impl = new Mutex::Impl;
1212 }
1213
1214 Mutex::~Mutex()
1215 {
1216     if( CV_XADD(&impl->refcount, -1) == 1 )
1217         delete impl;
1218     impl = 0;
1219 }
1220
1221 Mutex::Mutex(const Mutex& m)
1222 {
1223     impl = m.impl;
1224     CV_XADD(&impl->refcount, 1);
1225 }
1226
1227 Mutex& Mutex::operator = (const Mutex& m)
1228 {
1229     if (this != &m)
1230     {
1231         CV_XADD(&m.impl->refcount, 1);
1232         if( CV_XADD(&impl->refcount, -1) == 1 )
1233             delete impl;
1234         impl = m.impl;
1235     }
1236     return *this;
1237 }
1238
1239 void Mutex::lock() { impl->lock(); }
1240 void Mutex::unlock() { impl->unlock(); }
1241 bool Mutex::trylock() { return impl->trylock(); }
1242
1243
1244 //////////////////////////////// thread-local storage ////////////////////////////////
1245
1246 #ifdef _WIN32
1247 #ifdef _MSC_VER
1248 #pragma warning(disable:4505) // unreferenced local function has been removed
1249 #endif
1250 #ifndef TLS_OUT_OF_INDEXES
1251 #define TLS_OUT_OF_INDEXES ((DWORD)0xFFFFFFFF)
1252 #endif
1253 #endif
1254
1255 // TLS platform abstraction layer
1256 class TlsAbstraction
1257 {
1258 public:
1259     TlsAbstraction();
1260     ~TlsAbstraction();
1261     void* GetData() const;
1262     void  SetData(void *pData);
1263
1264 private:
1265 #ifdef _WIN32
1266 #ifndef WINRT
1267     DWORD tlsKey;
1268 #endif
1269 #else // _WIN32
1270     pthread_key_t  tlsKey;
1271 #endif
1272 };
1273
1274 #ifdef _WIN32
1275 #ifdef WINRT
1276 static __declspec( thread ) void* tlsData = NULL; // using C++11 thread attribute for local thread data
1277 TlsAbstraction::TlsAbstraction() {}
1278 TlsAbstraction::~TlsAbstraction() {}
1279 void* TlsAbstraction::GetData() const
1280 {
1281     return tlsData;
1282 }
1283 void  TlsAbstraction::SetData(void *pData)
1284 {
1285     tlsData = pData;
1286 }
1287 #else //WINRT
1288 TlsAbstraction::TlsAbstraction()
1289 {
1290     tlsKey = TlsAlloc();
1291     CV_Assert(tlsKey != TLS_OUT_OF_INDEXES);
1292 }
1293 TlsAbstraction::~TlsAbstraction()
1294 {
1295     TlsFree(tlsKey);
1296 }
1297 void* TlsAbstraction::GetData() const
1298 {
1299     return TlsGetValue(tlsKey);
1300 }
1301 void  TlsAbstraction::SetData(void *pData)
1302 {
1303     CV_Assert(TlsSetValue(tlsKey, pData) == TRUE);
1304 }
1305 #endif
1306 #else // _WIN32
1307 TlsAbstraction::TlsAbstraction()
1308 {
1309     CV_Assert(pthread_key_create(&tlsKey, NULL) == 0);
1310 }
1311 TlsAbstraction::~TlsAbstraction()
1312 {
1313     CV_Assert(pthread_key_delete(tlsKey) == 0);
1314 }
1315 void* TlsAbstraction::GetData() const
1316 {
1317     return pthread_getspecific(tlsKey);
1318 }
1319 void  TlsAbstraction::SetData(void *pData)
1320 {
1321     CV_Assert(pthread_setspecific(tlsKey, pData) == 0);
1322 }
1323 #endif
1324
1325 // Per-thread data structure
1326 struct ThreadData
1327 {
1328     ThreadData()
1329     {
1330         idx = 0;
1331         slots.reserve(32);
1332     }
1333
1334     std::vector<void*> slots; // Data array for a thread
1335     size_t idx;               // Thread index in TLS storage. This is not OS thread ID!
1336 };
1337
1338 // Main TLS storage class
1339 class TlsStorage
1340 {
1341 public:
1342     TlsStorage() :
1343         tlsSlotsSize(0)
1344     {
1345         tlsSlots.reserve(32);
1346         threads.reserve(32);
1347     }
1348     ~TlsStorage()
1349     {
1350         for(size_t i = 0; i < threads.size(); i++)
1351         {
1352             if(threads[i])
1353             {
1354                 /* Current architecture doesn't allow proper global objects release, so this check can cause crashes
1355
1356                 // Check if all slots were properly cleared
1357                 for(size_t j = 0; j < threads[i]->slots.size(); j++)
1358                 {
1359                     CV_Assert(threads[i]->slots[j] == 0);
1360                 }
1361                 */
1362                 delete threads[i];
1363             }
1364         }
1365         threads.clear();
1366     }
1367
1368     void releaseThread()
1369     {
1370         AutoLock guard(mtxGlobalAccess);
1371         ThreadData *pTD = (ThreadData*)tls.GetData();
1372         for(size_t i = 0; i < threads.size(); i++)
1373         {
1374             if(pTD == threads[i])
1375             {
1376                 threads[i] = 0;
1377                 break;
1378             }
1379         }
1380         tls.SetData(0);
1381         delete pTD;
1382     }
1383
1384     // Reserve TLS storage index
1385     size_t reserveSlot()
1386     {
1387         AutoLock guard(mtxGlobalAccess);
1388         CV_Assert(tlsSlotsSize == tlsSlots.size());
1389
1390         // Find unused slots
1391         for(size_t slot = 0; slot < tlsSlotsSize; slot++)
1392         {
1393             if(!tlsSlots[slot])
1394             {
1395                 tlsSlots[slot] = 1;
1396                 return slot;
1397             }
1398         }
1399
1400         // Create new slot
1401         tlsSlots.push_back(1); tlsSlotsSize++;
1402         return tlsSlotsSize - 1;
1403     }
1404
1405     // Release TLS storage index and pass associated data to caller
1406     void releaseSlot(size_t slotIdx, std::vector<void*> &dataVec, bool keepSlot = false)
1407     {
1408         AutoLock guard(mtxGlobalAccess);
1409         CV_Assert(tlsSlotsSize == tlsSlots.size());
1410         CV_Assert(tlsSlotsSize > slotIdx);
1411
1412         for(size_t i = 0; i < threads.size(); i++)
1413         {
1414             if(threads[i])
1415             {
1416                 std::vector<void*>& thread_slots = threads[i]->slots;
1417                 if (thread_slots.size() > slotIdx && thread_slots[slotIdx])
1418                 {
1419                     dataVec.push_back(thread_slots[slotIdx]);
1420                     thread_slots[slotIdx] = NULL;
1421                 }
1422             }
1423         }
1424
1425         if (!keepSlot)
1426             tlsSlots[slotIdx] = 0;
1427     }
1428
1429     // Get data by TLS storage index
1430     void* getData(size_t slotIdx) const
1431     {
1432 #ifndef CV_THREAD_SANITIZER
1433         CV_Assert(tlsSlotsSize > slotIdx);
1434 #endif
1435
1436         ThreadData* threadData = (ThreadData*)tls.GetData();
1437         if(threadData && threadData->slots.size() > slotIdx)
1438             return threadData->slots[slotIdx];
1439
1440         return NULL;
1441     }
1442
1443     // Gather data from threads by TLS storage index
1444     void gather(size_t slotIdx, std::vector<void*> &dataVec)
1445     {
1446         AutoLock guard(mtxGlobalAccess);
1447         CV_Assert(tlsSlotsSize == tlsSlots.size());
1448         CV_Assert(tlsSlotsSize > slotIdx);
1449
1450         for(size_t i = 0; i < threads.size(); i++)
1451         {
1452             if(threads[i])
1453             {
1454                 std::vector<void*>& thread_slots = threads[i]->slots;
1455                 if (thread_slots.size() > slotIdx && thread_slots[slotIdx])
1456                     dataVec.push_back(thread_slots[slotIdx]);
1457             }
1458         }
1459     }
1460
1461     // Set data to storage index
1462     void setData(size_t slotIdx, void* pData)
1463     {
1464 #ifndef CV_THREAD_SANITIZER
1465         CV_Assert(tlsSlotsSize > slotIdx);
1466 #endif
1467
1468         ThreadData* threadData = (ThreadData*)tls.GetData();
1469         if(!threadData)
1470         {
1471             threadData = new ThreadData;
1472             tls.SetData((void*)threadData);
1473             {
1474                 AutoLock guard(mtxGlobalAccess);
1475                 threadData->idx = threads.size();
1476                 threads.push_back(threadData);
1477             }
1478         }
1479
1480         if(slotIdx >= threadData->slots.size())
1481         {
1482             AutoLock guard(mtxGlobalAccess); // keep synchronization with gather() calls
1483             threadData->slots.resize(slotIdx + 1, NULL);
1484         }
1485         threadData->slots[slotIdx] = pData;
1486     }
1487
1488 private:
1489     TlsAbstraction tls; // TLS abstraction layer instance
1490
1491     Mutex  mtxGlobalAccess;           // Shared objects operation guard
1492     size_t tlsSlotsSize;              // equal to tlsSlots.size() in synchronized sections
1493                                       // without synchronization this counter doesn't desrease - it is used for slotIdx sanity checks
1494     std::vector<int> tlsSlots;        // TLS keys state
1495     std::vector<ThreadData*> threads; // Array for all allocated data. Thread data pointers are placed here to allow data cleanup
1496 };
1497
1498 // Create global TLS storage object
1499 static TlsStorage &getTlsStorage()
1500 {
1501     CV_SINGLETON_LAZY_INIT_REF(TlsStorage, new TlsStorage())
1502 }
1503
1504 TLSDataContainer::TLSDataContainer()
1505 {
1506     key_ = (int)getTlsStorage().reserveSlot(); // Reserve key from TLS storage
1507 }
1508
1509 TLSDataContainer::~TLSDataContainer()
1510 {
1511     CV_Assert(key_ == -1); // Key must be released in child object
1512 }
1513
1514 void TLSDataContainer::gatherData(std::vector<void*> &data) const
1515 {
1516     getTlsStorage().gather(key_, data);
1517 }
1518
1519 void TLSDataContainer::release()
1520 {
1521     std::vector<void*> data;
1522     data.reserve(32);
1523     getTlsStorage().releaseSlot(key_, data); // Release key and get stored data for proper destruction
1524     key_ = -1;
1525     for(size_t i = 0; i < data.size(); i++)  // Delete all associated data
1526         deleteDataInstance(data[i]);
1527 }
1528
1529 void TLSDataContainer::cleanup()
1530 {
1531     std::vector<void*> data;
1532     data.reserve(32);
1533     getTlsStorage().releaseSlot(key_, data, true); // Extract stored data with removal from TLS tables
1534     for(size_t i = 0; i < data.size(); i++)  // Delete all associated data
1535         deleteDataInstance(data[i]);
1536 }
1537
1538 void* TLSDataContainer::getData() const
1539 {
1540     CV_Assert(key_ != -1 && "Can't fetch data from terminated TLS container.");
1541     void* pData = getTlsStorage().getData(key_); // Check if data was already allocated
1542     if(!pData)
1543     {
1544         // Create new data instance and save it to TLS storage
1545         pData = createDataInstance();
1546         getTlsStorage().setData(key_, pData);
1547     }
1548     return pData;
1549 }
1550
1551 TLSData<CoreTLSData>& getCoreTlsData()
1552 {
1553     CV_SINGLETON_LAZY_INIT_REF(TLSData<CoreTLSData>, new TLSData<CoreTLSData>())
1554 }
1555
1556 #if defined CVAPI_EXPORTS && defined _WIN32 && !defined WINCE
1557 #ifdef WINRT
1558     #pragma warning(disable:4447) // Disable warning 'main' signature found without threading model
1559 #endif
1560
1561 extern "C"
1562 BOOL WINAPI DllMain(HINSTANCE, DWORD fdwReason, LPVOID lpReserved);
1563
1564 extern "C"
1565 BOOL WINAPI DllMain(HINSTANCE, DWORD fdwReason, LPVOID lpReserved)
1566 {
1567     if (fdwReason == DLL_THREAD_DETACH || fdwReason == DLL_PROCESS_DETACH)
1568     {
1569         if (lpReserved != NULL) // called after ExitProcess() call
1570         {
1571             cv::__termination = true;
1572         }
1573         else
1574         {
1575             // Not allowed to free resources if lpReserved is non-null
1576             // http://msdn.microsoft.com/en-us/library/windows/desktop/ms682583.aspx
1577             cv::getTlsStorage().releaseThread();
1578         }
1579     }
1580     return TRUE;
1581 }
1582 #endif
1583
1584
1585 namespace {
1586 static int g_threadNum = 0;
1587 class ThreadID {
1588 public:
1589     const int id;
1590     ThreadID() :
1591         id(CV_XADD(&g_threadNum, 1))
1592     {
1593 #ifdef OPENCV_WITH_ITT
1594         __itt_thread_set_name(cv::format("OpenCVThread-%03d", id).c_str());
1595 #endif
1596     }
1597 };
1598
1599 static TLSData<ThreadID>& getThreadIDTLS()
1600 {
1601     CV_SINGLETON_LAZY_INIT_REF(TLSData<ThreadID>, new TLSData<ThreadID>());
1602 }
1603
1604 } // namespace
1605 int utils::getThreadID() { return getThreadIDTLS().get()->id; }
1606
1607 bool utils::getConfigurationParameterBool(const char* name, bool defaultValue)
1608 {
1609 #ifdef NO_GETENV
1610     const char* envValue = NULL;
1611 #else
1612     const char* envValue = getenv(name);
1613 #endif
1614     if (envValue == NULL)
1615     {
1616         return defaultValue;
1617     }
1618     cv::String value = envValue;
1619     if (value == "1" || value == "True" || value == "true" || value == "TRUE")
1620     {
1621         return true;
1622     }
1623     if (value == "0" || value == "False" || value == "false" || value == "FALSE")
1624     {
1625         return false;
1626     }
1627     CV_ErrorNoReturn(cv::Error::StsBadArg, cv::format("Invalid value for %s parameter: %s", name, value.c_str()));
1628 }
1629
1630
1631 size_t utils::getConfigurationParameterSizeT(const char* name, size_t defaultValue)
1632 {
1633 #ifdef NO_GETENV
1634     const char* envValue = NULL;
1635 #else
1636     const char* envValue = getenv(name);
1637 #endif
1638     if (envValue == NULL)
1639     {
1640         return defaultValue;
1641     }
1642     cv::String value = envValue;
1643     size_t pos = 0;
1644     for (; pos < value.size(); pos++)
1645     {
1646         if (!isdigit(value[pos]))
1647             break;
1648     }
1649     cv::String valueStr = value.substr(0, pos);
1650     cv::String suffixStr = value.substr(pos, value.length() - pos);
1651     int v = atoi(valueStr.c_str());
1652     if (suffixStr.length() == 0)
1653         return v;
1654     else if (suffixStr == "MB" || suffixStr == "Mb" || suffixStr == "mb")
1655         return v * 1024 * 1024;
1656     else if (suffixStr == "KB" || suffixStr == "Kb" || suffixStr == "kb")
1657         return v * 1024;
1658     CV_ErrorNoReturn(cv::Error::StsBadArg, cv::format("Invalid value for %s parameter: %s", name, value.c_str()));
1659 }
1660
1661 cv::String utils::getConfigurationParameterString(const char* name, const char* defaultValue)
1662 {
1663 #ifdef NO_GETENV
1664     const char* envValue = NULL;
1665 #else
1666     const char* envValue = getenv(name);
1667 #endif
1668     if (envValue == NULL)
1669     {
1670         return defaultValue;
1671     }
1672     cv::String value = envValue;
1673     return value;
1674 }
1675
1676
1677 #ifdef CV_COLLECT_IMPL_DATA
1678 ImplCollector& getImplData()
1679 {
1680     CV_SINGLETON_LAZY_INIT_REF(ImplCollector, new ImplCollector())
1681 }
1682
1683 void setImpl(int flags)
1684 {
1685     cv::AutoLock lock(getImplData().mutex);
1686
1687     getImplData().implFlags = flags;
1688     getImplData().implCode.clear();
1689     getImplData().implFun.clear();
1690 }
1691
1692 void addImpl(int flag, const char* func)
1693 {
1694     cv::AutoLock lock(getImplData().mutex);
1695
1696     getImplData().implFlags |= flag;
1697     if(func) // use lazy collection if name was not specified
1698     {
1699         size_t index = getImplData().implCode.size();
1700         if(!index || (getImplData().implCode[index-1] != flag || getImplData().implFun[index-1].compare(func))) // avoid duplicates
1701         {
1702             getImplData().implCode.push_back(flag);
1703             getImplData().implFun.push_back(func);
1704         }
1705     }
1706 }
1707
1708 int getImpl(std::vector<int> &impl, std::vector<String> &funName)
1709 {
1710     cv::AutoLock lock(getImplData().mutex);
1711
1712     impl    = getImplData().implCode;
1713     funName = getImplData().implFun;
1714     return getImplData().implFlags; // return actual flags for lazy collection
1715 }
1716
1717 bool useCollection()
1718 {
1719     return getImplData().useCollection;
1720 }
1721
1722 void setUseCollection(bool flag)
1723 {
1724     cv::AutoLock lock(getImplData().mutex);
1725
1726     getImplData().useCollection = flag;
1727 }
1728 #endif
1729
1730 namespace instr
1731 {
1732 bool useInstrumentation()
1733 {
1734 #ifdef ENABLE_INSTRUMENTATION
1735     return getInstrumentStruct().useInstr;
1736 #else
1737     return false;
1738 #endif
1739 }
1740
1741 void setUseInstrumentation(bool flag)
1742 {
1743 #ifdef ENABLE_INSTRUMENTATION
1744     getInstrumentStruct().useInstr = flag;
1745 #else
1746     CV_UNUSED(flag);
1747 #endif
1748 }
1749
1750 InstrNode* getTrace()
1751 {
1752 #ifdef ENABLE_INSTRUMENTATION
1753     return &getInstrumentStruct().rootNode;
1754 #else
1755     return NULL;
1756 #endif
1757 }
1758
1759 void resetTrace()
1760 {
1761 #ifdef ENABLE_INSTRUMENTATION
1762     getInstrumentStruct().rootNode.removeChilds();
1763     getInstrumentTLSStruct().pCurrentNode = &getInstrumentStruct().rootNode;
1764 #endif
1765 }
1766
1767 void setFlags(FLAGS modeFlags)
1768 {
1769 #ifdef ENABLE_INSTRUMENTATION
1770     getInstrumentStruct().flags = modeFlags;
1771 #else
1772     CV_UNUSED(modeFlags);
1773 #endif
1774 }
1775 FLAGS getFlags()
1776 {
1777 #ifdef ENABLE_INSTRUMENTATION
1778     return (FLAGS)getInstrumentStruct().flags;
1779 #else
1780     return (FLAGS)0;
1781 #endif
1782 }
1783
1784 NodeData::NodeData(const char* funName, const char* fileName, int lineNum, void* retAddress, bool alwaysExpand, cv::instr::TYPE instrType, cv::instr::IMPL implType)
1785 {
1786     m_funName       = funName;
1787     m_instrType     = instrType;
1788     m_implType      = implType;
1789     m_fileName      = fileName;
1790     m_lineNum       = lineNum;
1791     m_retAddress    = retAddress;
1792     m_alwaysExpand  = alwaysExpand;
1793
1794     m_threads    = 1;
1795     m_counter    = 0;
1796     m_ticksTotal = 0;
1797
1798     m_funError  = false;
1799 }
1800 NodeData::NodeData(NodeData &ref)
1801 {
1802     *this = ref;
1803 }
1804 NodeData& NodeData::operator=(const NodeData &right)
1805 {
1806     this->m_funName      = right.m_funName;
1807     this->m_instrType    = right.m_instrType;
1808     this->m_implType     = right.m_implType;
1809     this->m_fileName     = right.m_fileName;
1810     this->m_lineNum      = right.m_lineNum;
1811     this->m_retAddress   = right.m_retAddress;
1812     this->m_alwaysExpand = right.m_alwaysExpand;
1813
1814     this->m_threads     = right.m_threads;
1815     this->m_counter     = right.m_counter;
1816     this->m_ticksTotal  = right.m_ticksTotal;
1817
1818     this->m_funError    = right.m_funError;
1819
1820     return *this;
1821 }
1822 NodeData::~NodeData()
1823 {
1824 }
1825 bool operator==(const NodeData& left, const NodeData& right)
1826 {
1827     if(left.m_lineNum == right.m_lineNum && left.m_funName == right.m_funName && left.m_fileName == right.m_fileName)
1828     {
1829         if(left.m_retAddress == right.m_retAddress || !(cv::instr::getFlags()&cv::instr::FLAGS_EXPAND_SAME_NAMES || left.m_alwaysExpand))
1830             return true;
1831     }
1832     return false;
1833 }
1834
1835 #ifdef ENABLE_INSTRUMENTATION
1836 InstrStruct& getInstrumentStruct()
1837 {
1838     static InstrStruct instr;
1839     return instr;
1840 }
1841
1842 InstrTLSStruct& getInstrumentTLSStruct()
1843 {
1844     return *getInstrumentStruct().tlsStruct.get();
1845 }
1846
1847 InstrNode* getCurrentNode()
1848 {
1849     return getInstrumentTLSStruct().pCurrentNode;
1850 }
1851
1852 IntrumentationRegion::IntrumentationRegion(const char* funName, const char* fileName, int lineNum, void *retAddress, bool alwaysExpand, TYPE instrType, IMPL implType)
1853 {
1854     m_disabled    = false;
1855     m_regionTicks = 0;
1856
1857     InstrStruct *pStruct = &getInstrumentStruct();
1858     if(pStruct->useInstr)
1859     {
1860         InstrTLSStruct *pTLS = &getInstrumentTLSStruct();
1861
1862         // Disable in case of failure
1863         if(!pTLS->pCurrentNode)
1864         {
1865             m_disabled = true;
1866             return;
1867         }
1868
1869         int depth = pTLS->pCurrentNode->getDepth();
1870         if(pStruct->maxDepth && pStruct->maxDepth <= depth)
1871         {
1872             m_disabled = true;
1873             return;
1874         }
1875
1876         NodeData payload(funName, fileName, lineNum, retAddress, alwaysExpand, instrType, implType);
1877         Node<NodeData>* pChild = NULL;
1878
1879         if(pStruct->flags&FLAGS_MAPPING)
1880         {
1881             // Critical section
1882             cv::AutoLock guard(pStruct->mutexCreate); // Guard from concurrent child creation
1883             pChild = pTLS->pCurrentNode->findChild(payload);
1884             if(!pChild)
1885             {
1886                 pChild = new Node<NodeData>(payload);
1887                 pTLS->pCurrentNode->addChild(pChild);
1888             }
1889         }
1890         else
1891         {
1892             pChild = pTLS->pCurrentNode->findChild(payload);
1893             if(!pChild)
1894             {
1895                 m_disabled = true;
1896                 return;
1897             }
1898         }
1899         pTLS->pCurrentNode = pChild;
1900
1901         m_regionTicks = getTickCount();
1902     }
1903 }
1904
1905 IntrumentationRegion::~IntrumentationRegion()
1906 {
1907     InstrStruct *pStruct = &getInstrumentStruct();
1908     if(pStruct->useInstr)
1909     {
1910         if(!m_disabled)
1911         {
1912             InstrTLSStruct *pTLS = &getInstrumentTLSStruct();
1913
1914             if (pTLS->pCurrentNode->m_payload.m_implType == cv::instr::IMPL_OPENCL &&
1915                 (pTLS->pCurrentNode->m_payload.m_instrType == cv::instr::TYPE_FUN ||
1916                     pTLS->pCurrentNode->m_payload.m_instrType == cv::instr::TYPE_WRAPPER))
1917             {
1918                 cv::ocl::finish(); // TODO Support "async" OpenCL instrumentation
1919             }
1920
1921             uint64 ticks = (getTickCount() - m_regionTicks);
1922             {
1923                 cv::AutoLock guard(pStruct->mutexCount); // Concurrent ticks accumulation
1924                 pTLS->pCurrentNode->m_payload.m_counter++;
1925                 pTLS->pCurrentNode->m_payload.m_ticksTotal += ticks;
1926                 pTLS->pCurrentNode->m_payload.m_tls.get()->m_ticksTotal += ticks;
1927             }
1928
1929             pTLS->pCurrentNode = pTLS->pCurrentNode->m_pParent;
1930         }
1931     }
1932 }
1933 #endif
1934 }
1935
1936 namespace ipp
1937 {
1938
1939 #ifdef HAVE_IPP
1940 struct IPPInitSingleton
1941 {
1942 public:
1943     IPPInitSingleton()
1944     {
1945         useIPP         = true;
1946         useIPP_NE      = false;
1947         ippStatus      = 0;
1948         funcname       = NULL;
1949         filename       = NULL;
1950         linen          = 0;
1951         cpuFeatures    = 0;
1952         ippFeatures    = 0;
1953         ippTopFeatures = 0;
1954         pIppLibInfo    = NULL;
1955
1956         ippStatus = ippGetCpuFeatures(&cpuFeatures, NULL);
1957         if(ippStatus < 0)
1958         {
1959             std::cerr << "ERROR: IPP cannot detect CPU features, IPP was disabled " << std::endl;
1960             useIPP = false;
1961             return;
1962         }
1963         ippFeatures = cpuFeatures;
1964
1965         const char* pIppEnv = getenv("OPENCV_IPP");
1966         cv::String env = pIppEnv;
1967         if(env.size())
1968         {
1969 #if IPP_VERSION_X100 >= 201703
1970             const Ipp64u minorFeatures = ippCPUID_MOVBE|ippCPUID_AES|ippCPUID_CLMUL|ippCPUID_ABR|ippCPUID_RDRAND|ippCPUID_F16C|
1971                 ippCPUID_ADCOX|ippCPUID_RDSEED|ippCPUID_PREFETCHW|ippCPUID_SHA|ippCPUID_MPX|ippCPUID_AVX512CD|ippCPUID_AVX512ER|
1972                 ippCPUID_AVX512PF|ippCPUID_AVX512BW|ippCPUID_AVX512DQ|ippCPUID_AVX512VL|ippCPUID_AVX512VBMI;
1973 #elif IPP_VERSION_X100 >= 201700
1974             const Ipp64u minorFeatures = ippCPUID_MOVBE|ippCPUID_AES|ippCPUID_CLMUL|ippCPUID_ABR|ippCPUID_RDRAND|ippCPUID_F16C|
1975                 ippCPUID_ADCOX|ippCPUID_RDSEED|ippCPUID_PREFETCHW|ippCPUID_SHA|ippCPUID_AVX512CD|ippCPUID_AVX512ER|
1976                 ippCPUID_AVX512PF|ippCPUID_AVX512BW|ippCPUID_AVX512DQ|ippCPUID_AVX512VL|ippCPUID_AVX512VBMI;
1977 #else
1978             const Ipp64u minorFeatures = 0;
1979 #endif
1980
1981             env = env.toLowerCase();
1982             if(env.substr(0, 2) == "ne")
1983             {
1984                 useIPP_NE = true;
1985                 env = env.substr(3, env.size());
1986             }
1987
1988             if(env == "disabled")
1989             {
1990                 std::cerr << "WARNING: IPP was disabled by OPENCV_IPP environment variable" << std::endl;
1991                 useIPP = false;
1992             }
1993             else if(env == "sse42")
1994                 ippFeatures = minorFeatures|ippCPUID_SSE2|ippCPUID_SSE3|ippCPUID_SSSE3|ippCPUID_SSE41|ippCPUID_SSE42;
1995             else if(env == "avx2")
1996                 ippFeatures = minorFeatures|ippCPUID_SSE2|ippCPUID_SSE3|ippCPUID_SSSE3|ippCPUID_SSE41|ippCPUID_SSE42|ippCPUID_AVX|ippCPUID_AVX2;
1997 #if IPP_VERSION_X100 >= 201700
1998 #if defined (_M_AMD64) || defined (__x86_64__)
1999             else if(env == "avx512")
2000                 ippFeatures = minorFeatures|ippCPUID_SSE2|ippCPUID_SSE3|ippCPUID_SSSE3|ippCPUID_SSE41|ippCPUID_SSE42|ippCPUID_AVX|ippCPUID_AVX2|ippCPUID_AVX512F;
2001 #endif
2002 #endif
2003             else
2004                 std::cerr << "ERROR: Improper value of OPENCV_IPP: " << env.c_str() << ". Correct values are: disabled, sse42, avx2, avx512 (Intel64 only)" << std::endl;
2005
2006             // Trim unsupported features
2007             ippFeatures &= cpuFeatures;
2008         }
2009
2010         // Disable AVX1 since we don't track regressions for it. SSE42 will be used instead
2011         if(cpuFeatures&ippCPUID_AVX && !(cpuFeatures&ippCPUID_AVX2))
2012             ippFeatures &= ~((Ipp64u)ippCPUID_AVX);
2013
2014         // IPP integrations in OpenCV support only SSE4.2, AVX2 and AVX-512 optimizations.
2015         if(!(
2016 #if IPP_VERSION_X100 >= 201700
2017             cpuFeatures&ippCPUID_AVX512F ||
2018 #endif
2019             cpuFeatures&ippCPUID_AVX2 ||
2020             cpuFeatures&ippCPUID_SSE42
2021             ))
2022         {
2023             useIPP = false;
2024             return;
2025         }
2026
2027         if(ippFeatures == cpuFeatures)
2028             IPP_INITIALIZER(0)
2029         else
2030             IPP_INITIALIZER(ippFeatures)
2031         ippFeatures = ippGetEnabledCpuFeatures();
2032
2033         // Detect top level optimizations to make comparison easier for optimizations dependent conditions
2034 #if IPP_VERSION_X100 >= 201700
2035         if(ippFeatures&ippCPUID_AVX512F)
2036         {
2037             if((ippFeatures&ippCPUID_AVX512_SKX) == ippCPUID_AVX512_SKX)
2038                 ippTopFeatures = ippCPUID_AVX512_SKX;
2039             else if((ippFeatures&ippCPUID_AVX512_KNL) == ippCPUID_AVX512_KNL)
2040                 ippTopFeatures = ippCPUID_AVX512_KNL;
2041             else
2042                 ippTopFeatures = ippCPUID_AVX512F; // Unknown AVX512 configuration
2043         }
2044         else
2045 #endif
2046         if(ippFeatures&ippCPUID_AVX2)
2047             ippTopFeatures = ippCPUID_AVX2;
2048         else if(ippFeatures&ippCPUID_SSE42)
2049             ippTopFeatures = ippCPUID_SSE42;
2050
2051         pIppLibInfo = ippiGetLibVersion();
2052     }
2053
2054 public:
2055     bool        useIPP;
2056     bool        useIPP_NE;
2057
2058     int         ippStatus;  // 0 - all is ok, -1 - IPP functions failed
2059     const char *funcname;
2060     const char *filename;
2061     int         linen;
2062     Ipp64u      ippFeatures;
2063     Ipp64u      cpuFeatures;
2064     Ipp64u      ippTopFeatures;
2065     const IppLibraryVersion *pIppLibInfo;
2066 };
2067
2068 static IPPInitSingleton& getIPPSingleton()
2069 {
2070     CV_SINGLETON_LAZY_INIT_REF(IPPInitSingleton, new IPPInitSingleton())
2071 }
2072 #endif
2073
2074 #if OPENCV_ABI_COMPATIBILITY > 300
2075 unsigned long long getIppFeatures()
2076 #else
2077 int getIppFeatures()
2078 #endif
2079 {
2080 #ifdef HAVE_IPP
2081 #if OPENCV_ABI_COMPATIBILITY > 300
2082     return getIPPSingleton().ippFeatures;
2083 #else
2084     return (int)getIPPSingleton().ippFeatures;
2085 #endif
2086 #else
2087     return 0;
2088 #endif
2089 }
2090
2091 unsigned long long getIppTopFeatures();
2092
2093 unsigned long long getIppTopFeatures()
2094 {
2095 #ifdef HAVE_IPP
2096     return getIPPSingleton().ippTopFeatures;
2097 #else
2098     return 0;
2099 #endif
2100 }
2101
2102 void setIppStatus(int status, const char * const _funcname, const char * const _filename, int _line)
2103 {
2104 #ifdef HAVE_IPP
2105     getIPPSingleton().ippStatus = status;
2106     getIPPSingleton().funcname = _funcname;
2107     getIPPSingleton().filename = _filename;
2108     getIPPSingleton().linen = _line;
2109 #else
2110     CV_UNUSED(status); CV_UNUSED(_funcname); CV_UNUSED(_filename); CV_UNUSED(_line);
2111 #endif
2112 }
2113
2114 int getIppStatus()
2115 {
2116 #ifdef HAVE_IPP
2117     return getIPPSingleton().ippStatus;
2118 #else
2119     return 0;
2120 #endif
2121 }
2122
2123 String getIppErrorLocation()
2124 {
2125 #ifdef HAVE_IPP
2126     return format("%s:%d %s", getIPPSingleton().filename ? getIPPSingleton().filename : "", getIPPSingleton().linen, getIPPSingleton().funcname ? getIPPSingleton().funcname : "");
2127 #else
2128     return String();
2129 #endif
2130 }
2131
2132 String getIppVersion()
2133 {
2134 #ifdef HAVE_IPP
2135     const IppLibraryVersion *pInfo = getIPPSingleton().pIppLibInfo;
2136     if(pInfo)
2137         return format("%s %s %s", pInfo->Name, pInfo->Version, pInfo->BuildDate);
2138     else
2139         return String("error");
2140 #else
2141     return String("disabled");
2142 #endif
2143 }
2144
2145 bool useIPP()
2146 {
2147 #ifdef HAVE_IPP
2148     CoreTLSData* data = getCoreTlsData().get();
2149     if(data->useIPP < 0)
2150     {
2151         data->useIPP = getIPPSingleton().useIPP;
2152     }
2153     return (data->useIPP > 0);
2154 #else
2155     return false;
2156 #endif
2157 }
2158
2159 void setUseIPP(bool flag)
2160 {
2161     CoreTLSData* data = getCoreTlsData().get();
2162 #ifdef HAVE_IPP
2163     data->useIPP = (getIPPSingleton().useIPP)?flag:false;
2164 #else
2165     (void)flag;
2166     data->useIPP = false;
2167 #endif
2168 }
2169
2170 bool useIPP_NE()
2171 {
2172 #ifdef HAVE_IPP
2173     CoreTLSData* data = getCoreTlsData().get();
2174     if(data->useIPP_NE < 0)
2175     {
2176         data->useIPP_NE = getIPPSingleton().useIPP_NE;
2177     }
2178     return (data->useIPP_NE > 0);
2179 #else
2180     return false;
2181 #endif
2182 }
2183
2184 void setUseIPP_NE(bool flag)
2185 {
2186     CoreTLSData* data = getCoreTlsData().get();
2187 #ifdef HAVE_IPP
2188     data->useIPP_NE = (getIPPSingleton().useIPP_NE)?flag:false;
2189 #else
2190     (void)flag;
2191     data->useIPP_NE = false;
2192 #endif
2193 }
2194
2195 } // namespace ipp
2196
2197 } // namespace cv
2198
2199 #ifdef HAVE_TEGRA_OPTIMIZATION
2200
2201 namespace tegra {
2202
2203 bool useTegra()
2204 {
2205     cv::CoreTLSData* data = cv::getCoreTlsData().get();
2206
2207     if (data->useTegra < 0)
2208     {
2209         const char* pTegraEnv = getenv("OPENCV_TEGRA");
2210         if (pTegraEnv && (cv::String(pTegraEnv) == "disabled"))
2211             data->useTegra = false;
2212         else
2213             data->useTegra = true;
2214     }
2215
2216     return (data->useTegra > 0);
2217 }
2218
2219 void setUseTegra(bool flag)
2220 {
2221     cv::CoreTLSData* data = cv::getCoreTlsData().get();
2222     data->useTegra = flag;
2223 }
2224
2225 } // namespace tegra
2226
2227 #endif
2228
2229 /* End of file. */