diff options
Diffstat (limited to 'final/runtime/src/kmp_ftn_cdecl.cpp')
-rw-r--r-- | final/runtime/src/kmp_ftn_cdecl.cpp | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/final/runtime/src/kmp_ftn_cdecl.cpp b/final/runtime/src/kmp_ftn_cdecl.cpp new file mode 100644 index 0000000..cf1d429 --- /dev/null +++ b/final/runtime/src/kmp_ftn_cdecl.cpp @@ -0,0 +1,34 @@ +/* + * kmp_ftn_cdecl.cpp -- Fortran __cdecl linkage support for OpenMP. + */ + +//===----------------------------------------------------------------------===// +// +// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. +// See https://llvm.org/LICENSE.txt for license information. +// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception +// +//===----------------------------------------------------------------------===// + +#include "kmp.h" +#include "kmp_affinity.h" + +#if KMP_OS_WINDOWS +#if defined KMP_WIN_CDECL || !KMP_DYNAMIC_LIB +#define KMP_FTN_ENTRIES KMP_FTN_UPPER +#endif +#elif KMP_OS_UNIX +#define KMP_FTN_ENTRIES KMP_FTN_PLAIN +#endif + +// Note: This string is not printed when KMP_VERSION=1. +char const __kmp_version_ftncdecl[] = + KMP_VERSION_PREFIX "Fortran __cdecl OMP support: " +#ifdef KMP_FTN_ENTRIES + "yes"; +#define FTN_STDCALL /* no stdcall */ +#include "kmp_ftn_os.h" +#include "kmp_ftn_entry.h" +#else + "no"; +#endif /* KMP_FTN_ENTRIES */ |