17cc577a4SJonathan Peyton /*
2de4749b7SJonathan Peyton  * kmp_ftn_cdecl.cpp -- Fortran __cdecl linkage support for OpenMP.
37cc577a4SJonathan Peyton  */
47cc577a4SJonathan Peyton 
57cc577a4SJonathan Peyton //===----------------------------------------------------------------------===//
67cc577a4SJonathan Peyton //
77cc577a4SJonathan Peyton //                     The LLVM Compiler Infrastructure
87cc577a4SJonathan Peyton //
97cc577a4SJonathan Peyton // This file is dual licensed under the MIT and the University of Illinois Open
107cc577a4SJonathan Peyton // Source Licenses. See LICENSE.txt for details.
117cc577a4SJonathan Peyton //
127cc577a4SJonathan Peyton //===----------------------------------------------------------------------===//
137cc577a4SJonathan Peyton 
147cc577a4SJonathan Peyton #include "kmp.h"
157cc577a4SJonathan Peyton #include "kmp_affinity.h"
167cc577a4SJonathan Peyton 
177cc577a4SJonathan Peyton #if KMP_OS_WINDOWS
18*8b3842fcSJonathan Peyton #if defined KMP_WIN_CDECL || !KMP_DYNAMIC_LIB
197cc577a4SJonathan Peyton #define KMP_FTN_ENTRIES KMP_FTN_UPPER
207cc577a4SJonathan Peyton #endif
217cc577a4SJonathan Peyton #elif KMP_OS_UNIX
227cc577a4SJonathan Peyton #define KMP_FTN_ENTRIES KMP_FTN_PLAIN
237cc577a4SJonathan Peyton #endif
247cc577a4SJonathan Peyton 
257cc577a4SJonathan Peyton // Note: This string is not printed when KMP_VERSION=1.
263041982dSJonathan Peyton char const __kmp_version_ftncdecl[] =
273041982dSJonathan Peyton     KMP_VERSION_PREFIX "Fortran __cdecl OMP support: "
287cc577a4SJonathan Peyton #ifdef KMP_FTN_ENTRIES
297cc577a4SJonathan Peyton                        "yes";
307cc577a4SJonathan Peyton #define FTN_STDCALL /* no stdcall */
317cc577a4SJonathan Peyton #include "kmp_ftn_os.h"
327cc577a4SJonathan Peyton #include "kmp_ftn_entry.h"
337cc577a4SJonathan Peyton #else
347cc577a4SJonathan Peyton                        "no";
357cc577a4SJonathan Peyton #endif /* KMP_FTN_ENTRIES */
36