17cc577a4SJonathan Peyton /*
2de4749b7SJonathan Peyton  * kmp_ftn_cdecl.cpp -- Fortran __cdecl linkage support for OpenMP.
37cc577a4SJonathan Peyton  */
47cc577a4SJonathan Peyton 
57cc577a4SJonathan Peyton //===----------------------------------------------------------------------===//
67cc577a4SJonathan Peyton //
7*57b08b09SChandler Carruth // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
8*57b08b09SChandler Carruth // See https://llvm.org/LICENSE.txt for license information.
9*57b08b09SChandler Carruth // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
107cc577a4SJonathan Peyton //
117cc577a4SJonathan Peyton //===----------------------------------------------------------------------===//
127cc577a4SJonathan Peyton 
137cc577a4SJonathan Peyton #include "kmp.h"
147cc577a4SJonathan Peyton #include "kmp_affinity.h"
157cc577a4SJonathan Peyton 
167cc577a4SJonathan Peyton #if KMP_OS_WINDOWS
178b3842fcSJonathan Peyton #if defined KMP_WIN_CDECL || !KMP_DYNAMIC_LIB
187cc577a4SJonathan Peyton #define KMP_FTN_ENTRIES KMP_FTN_UPPER
197cc577a4SJonathan Peyton #endif
207cc577a4SJonathan Peyton #elif KMP_OS_UNIX
217cc577a4SJonathan Peyton #define KMP_FTN_ENTRIES KMP_FTN_PLAIN
227cc577a4SJonathan Peyton #endif
237cc577a4SJonathan Peyton 
247cc577a4SJonathan Peyton // Note: This string is not printed when KMP_VERSION=1.
253041982dSJonathan Peyton char const __kmp_version_ftncdecl[] =
263041982dSJonathan Peyton     KMP_VERSION_PREFIX "Fortran __cdecl OMP support: "
277cc577a4SJonathan Peyton #ifdef KMP_FTN_ENTRIES
287cc577a4SJonathan Peyton                        "yes";
297cc577a4SJonathan Peyton #define FTN_STDCALL /* no stdcall */
307cc577a4SJonathan Peyton #include "kmp_ftn_os.h"
317cc577a4SJonathan Peyton #include "kmp_ftn_entry.h"
327cc577a4SJonathan Peyton #else
337cc577a4SJonathan Peyton                        "no";
347cc577a4SJonathan Peyton #endif /* KMP_FTN_ENTRIES */
35