Commit 9de08fff authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Remove now redundant declarations.

parent 6b438e8f
......@@ -75,8 +75,6 @@ SymPrefix(set_default_comm_f)(MPI_Fint *comm_f)
SymPrefix(default_comm) = comm_c;
}
PROTOCCALLSFSUB1(SYMPREFIX(SET_DEFAULT_COMM),
symprefix(set_default_comm), PVOID)
FCALLSCSUB1(SymPrefix(set_default_comm_f), SYMPREFIX(SET_DEFAULT_COMM),
symprefix(set_default_comm), PVOID)
......@@ -117,8 +115,6 @@ abort_f(MPI_Fint *comm_f, const char *msg,
# pragma GCC diagnostic pop
# endif
#endif
PROTOCCALLSFSUB4(SYMPREFIX(ABORT), symprefix(abort),
PVOID, STRING, STRING, INT)
FCALLSCSUB4(abort_f, SYMPREFIX(ABORT), symprefix(abort),
PVOID, STRING, STRING, INT)
#ifndef __CF__KnR
......@@ -138,8 +134,6 @@ SymPrefix(set_abort_handler_f)(void (*abort_handler)(void));
#undef ROUTINE_1
#define ROUTINE_1 (void (*)(void))
PROTOCCALLSFSUB1(SYMPREFIX(SET_ABORT_HANDLER), symprefix(set_abort_handler),
ROUTINE)
FCALLSCSUB1(SymPrefix(set_abort_handler_f), SYMPREFIX(SET_ABORT_HANDLER),
symprefix(set_abort_handler), ROUTINE)
......@@ -168,8 +162,6 @@ abort_default_f(MPI_Fint *comm_f, const char *msg, const char *source,
/* since we rely on C99, explicitly set empty parameter list */
#undef PROTOCCALLSFSUB0
#define PROTOCCALLSFSUB0(UN,LN) _(VOID,_cfPU)(CFC_(UN,LN))(void);
PROTOCCALLSFSUB0(SYMPREFIX(RESTORE_DEFAULT_ABORT_HNDL),
symprefix(restore_default_abort_hndl))
FCALLSCSUB0(SymPrefix(restore_default_abort_handler),
SYMPREFIX(RESTORE_DEFAULT_ABORT_HNDL),
symprefix(restore_default_abort_hndl))
......@@ -188,8 +180,6 @@ FCALLSCSUB0(SymPrefix(restore_default_abort_handler),
# pragma GCC diagnostic pop
# endif
#endif
PROTOCCALLSFSUB4(SYMPREFIX(ABORT_DEFAULT), symprefix(abort_default),
PVOID,STRING,STRING,INT)
FCALLSCSUB4(abort_default_f,SYMPREFIX(ABORT_DEFAULT),
symprefix(abort_default),
PVOID,STRING,STRING,INT)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment