contrib/openmp/runtime/src/kmp_ftn_stdcall.cpp

   1 /*
   2  * kmp_ftn_stdcall.cpp -- Fortran __stdcall linkage support for OpenMP.
   3  */
   4
   5 //===----------------------------------------------------------------------===//
   6 //
   7 //                     The LLVM Compiler Infrastructure
   8 //
   9 // This file is dual licensed under the MIT and the University of Illinois Open
  10 // Source Licenses. See LICENSE.txt for details.
  11 //
  12 //===----------------------------------------------------------------------===//
  13
  14 #include "kmp.h"
  15
  16 // Note: This string is not printed when KMP_VERSION=1.
  17 char const __kmp_version_ftnstdcall[] =
  18     KMP_VERSION_PREFIX "Fortran __stdcall OMP support: "
  19 #ifdef USE_FTN_STDCALL
  20                        "yes";
  21 #else
  22                        "no";
  23 #endif
  24
  25 #ifdef USE_FTN_STDCALL
  26
  27 #define FTN_STDCALL KMP_STDCALL
  28 #define KMP_FTN_ENTRIES USE_FTN_STDCALL
  29
  30 #include "kmp_ftn_entry.h"
  31 #include "kmp_ftn_os.h"
  32
  33 #endif /* USE_FTN_STDCALL */