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