Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
freebsd
GitHub Repository: freebsd/freebsd-src
Path: blob/main/contrib/llvm-project/openmp/runtime/src/kmp_ftn_cdecl.cpp
35258 views
1
/*
2
* kmp_ftn_cdecl.cpp -- Fortran __cdecl linkage support for OpenMP.
3
*/
4
5
//===----------------------------------------------------------------------===//
6
//
7
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
8
// See https://llvm.org/LICENSE.txt for license information.
9
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
10
//
11
//===----------------------------------------------------------------------===//
12
13
#include "kmp.h"
14
#include "kmp_affinity.h"
15
16
#if KMP_OS_WINDOWS
17
#if defined KMP_WIN_CDECL || !KMP_DYNAMIC_LIB
18
#define KMP_FTN_ENTRIES KMP_FTN_UPPER
19
#endif
20
#elif KMP_OS_UNIX
21
#define KMP_FTN_ENTRIES KMP_FTN_PLAIN
22
#endif
23
24
// Note: This string is not printed when KMP_VERSION=1.
25
char const __kmp_version_ftncdecl[] =
26
KMP_VERSION_PREFIX "Fortran __cdecl OMP support: "
27
#ifdef KMP_FTN_ENTRIES
28
"yes";
29
#define FTN_STDCALL /* no stdcall */
30
#include "kmp_ftn_os.h"
31
#include "kmp_ftn_entry.h"
32
#else
33
"no";
34
#endif /* KMP_FTN_ENTRIES */
35
36