kmp_ftn_cdecl.cpp 1018 B

12345678910111213141516171819202122232425262728293031323334
  1. /*
  2. * kmp_ftn_cdecl.cpp -- Fortran __cdecl linkage support for OpenMP.
  3. */
  4. //===----------------------------------------------------------------------===//
  5. //
  6. // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
  7. // See https://llvm.org/LICENSE.txt for license information.
  8. // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
  9. //
  10. //===----------------------------------------------------------------------===//
  11. #include "kmp.h"
  12. #include "kmp_affinity.h"
  13. #if KMP_OS_WINDOWS
  14. #if defined KMP_WIN_CDECL || !KMP_DYNAMIC_LIB
  15. #define KMP_FTN_ENTRIES KMP_FTN_UPPER
  16. #endif
  17. #elif KMP_OS_UNIX
  18. #define KMP_FTN_ENTRIES KMP_FTN_PLAIN
  19. #endif
  20. // Note: This string is not printed when KMP_VERSION=1.
  21. char const __kmp_version_ftncdecl[] =
  22. KMP_VERSION_PREFIX "Fortran __cdecl OMP support: "
  23. #ifdef KMP_FTN_ENTRIES
  24. "yes";
  25. #define FTN_STDCALL /* no stdcall */
  26. #include "kmp_ftn_os.h"
  27. #include "kmp_ftn_entry.h"
  28. #else
  29. "no";
  30. #endif /* KMP_FTN_ENTRIES */