46#define FCALLSC_QUALIFIER PPM_DSO_INTERNAL
49# pragma GCC diagnostic push
50# pragma GCC diagnostic ignored "-Wreserved-id-macro"
52#define CF_USE_ALLOCA 1
55# pragma GCC diagnostic pop
68#if defined (__xlC__) && defined (_AIX)
71 comm_c = (MPI_Initialized(&flag) == MPI_SUCCESS && flag)?
72 MPI_Comm_f2c(*comm_f):
SymPrefix(default_comm);
83abort_f(
MPI_Fint *comm_f,
const char *msg,
84 const char *source,
int line)
88abort_f(
MPI_Fint *comm_f,
const char *msg,
89 const char *source,
int line)
94#if defined (__xlC__) && defined (_AIX)
97 if (MPI_Initialized(&flag) == MPI_SUCCESS && flag)
98 comm_c = MPI_Comm_f2c(*comm_f);
102 SymPrefix(abort)(comm_c, msg, source, line);
106#define CFattributes __attribute__((noreturn))
108 PVOID, STRING, STRING, INT)
112 const char *source,
int line)
117 const char *source,
int line)
120 abort_f(comm_f, msg, source, line);
124 PVOID, PVOID, STRING, STRING, INT)
131 const char source[],
int line)
135SymPrefix(set_abort_handler_f)(void (*abort_handler)(void));
138#define ROUTINE_1 (void (*)(void))
143abort_default_f(
MPI_Fint *comm_f,
const char *msg,
const char *source,
148abort_default_f(
MPI_Fint *comm_f,
const char *msg,
const char *source,
153 MPI_Comm comm_c = (MPI_Initialized(&flag) == MPI_SUCCESS && flag)?
154 MPI_Comm_f2c(*comm_f):
SymPrefix(default_comm);
161#undef FCALLSC_QUALIFIER
162#define FCALLSC_QUALIFIER
169#define CFattributes __attribute__((noreturn))
172 PVOID,STRING,STRING,INT)
180#define CFC_(UN,LN) (UN)
182#define CFextern typedef
184PROTOCCALLSFSUB4(*
SymPrefix(fortran_abort_func),,PVOID,STRING,STRING,INT)
190SymPrefix(set_abort_handler_f)(void (*abort_handler)(void))
193 = (
SymPrefix(fortran_abort_func))abort_handler;
199 const char source[],
int line)
204#if defined (__xlC__) && defined (_AIX)
207 comm_f = (MPI_Initialized(&flag) == MPI_SUCCESS && flag)?
213 char *msg_arg = (
char *)(
void *)msg, *source_arg = (
char *)(
void *)source;
214#undef CPPPROTOCLSFSUB14
215#define CPPPROTOCLSFSUB14(UN,LN,T1,T2,T3,T4,T5,T6,T7,T8,T9,TA,TB,TC,TD,TE)
216 CCALLSFSUB4(*
SymPrefix(fortran_abort_fp),,PVOID,STRING,STRING,INT,
217 &comm_f, msg_arg, source_arg, line);
void SymPrefix abort_default(MPI_Comm comm, const char *msg, const char *source, int line)
void SymPrefix set_default_comm(MPI_Comm comm)
void SymPrefix restore_default_abort_handler(void)
FCALLSCSUB4(abort_f, SYMPREFIX(ABORT), symprefix(abort), PVOID, STRING, STRING, INT)
static void SymPrefix set_default_comm_f(MPI_Fint *comm_f)
static void SymPrefix abort_handler_wrapper(MPI_Comm comm, const char msg[], const char source[], int line)
FCALLSCSUB1(SymPrefix(set_default_comm_f), SYMPREFIX(SET_DEFAULT_COMM), symprefix(set_default_comm), PVOID)
FCALLSCSUB5(pure_abort_f, SYMPREFIX(ABORT_PURE), symprefix(abort_pure), PVOID, PVOID, STRING, STRING, INT)
FCALLSCSUB0(SymPrefix(restore_default_abort_handler), SYMPREFIX(RESTORE_DEFAULT_ABORT_HNDL), symprefix(restore_default_abort_hndl))
#define SymPrefix(symbol)
#define symprefix(symbol)
#define SYMPREFIX(symbol)