17cc577a4SJonathan Peyton /* 2*de4749b7SJonathan 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. 287cc577a4SJonathan Peyton char const __kmp_version_ftncdecl[] = KMP_VERSION_PREFIX "Fortran __cdecl OMP support: " 297cc577a4SJonathan Peyton #ifdef KMP_FTN_ENTRIES 307cc577a4SJonathan Peyton "yes"; 317cc577a4SJonathan Peyton # define FTN_STDCALL /* no stdcall */ 327cc577a4SJonathan Peyton # include "kmp_ftn_os.h" 337cc577a4SJonathan Peyton # include "kmp_ftn_entry.h" 347cc577a4SJonathan Peyton #else 357cc577a4SJonathan Peyton "no"; 367cc577a4SJonathan Peyton #endif /* KMP_FTN_ENTRIES */ 37