1*7cc577a4SJonathan Peyton /* 2*7cc577a4SJonathan Peyton * kmp_ftn_cdecl.c -- Fortran __cdecl linkage support for OpenMP. 3*7cc577a4SJonathan Peyton */ 4*7cc577a4SJonathan Peyton 5*7cc577a4SJonathan Peyton 6*7cc577a4SJonathan Peyton //===----------------------------------------------------------------------===// 7*7cc577a4SJonathan Peyton // 8*7cc577a4SJonathan Peyton // The LLVM Compiler Infrastructure 9*7cc577a4SJonathan Peyton // 10*7cc577a4SJonathan Peyton // This file is dual licensed under the MIT and the University of Illinois Open 11*7cc577a4SJonathan Peyton // Source Licenses. See LICENSE.txt for details. 12*7cc577a4SJonathan Peyton // 13*7cc577a4SJonathan Peyton //===----------------------------------------------------------------------===// 14*7cc577a4SJonathan Peyton 15*7cc577a4SJonathan Peyton 16*7cc577a4SJonathan Peyton #include "kmp.h" 17*7cc577a4SJonathan Peyton #include "kmp_affinity.h" 18*7cc577a4SJonathan Peyton 19*7cc577a4SJonathan Peyton #if KMP_OS_WINDOWS 20*7cc577a4SJonathan Peyton # if defined KMP_WIN_CDECL || !defined KMP_DYNAMIC_LIB 21*7cc577a4SJonathan Peyton # define KMP_FTN_ENTRIES KMP_FTN_UPPER 22*7cc577a4SJonathan Peyton # endif 23*7cc577a4SJonathan Peyton #elif KMP_OS_UNIX 24*7cc577a4SJonathan Peyton # define KMP_FTN_ENTRIES KMP_FTN_PLAIN 25*7cc577a4SJonathan Peyton #endif 26*7cc577a4SJonathan Peyton 27*7cc577a4SJonathan Peyton // Note: This string is not printed when KMP_VERSION=1. 28*7cc577a4SJonathan Peyton char const __kmp_version_ftncdecl[] = KMP_VERSION_PREFIX "Fortran __cdecl OMP support: " 29*7cc577a4SJonathan Peyton #ifdef KMP_FTN_ENTRIES 30*7cc577a4SJonathan Peyton "yes"; 31*7cc577a4SJonathan Peyton # define FTN_STDCALL /* no stdcall */ 32*7cc577a4SJonathan Peyton # include "kmp_ftn_os.h" 33*7cc577a4SJonathan Peyton # include "kmp_ftn_entry.h" 34*7cc577a4SJonathan Peyton #else 35*7cc577a4SJonathan Peyton "no"; 36*7cc577a4SJonathan Peyton #endif /* KMP_FTN_ENTRIES */ 37