Commit c584c0bb authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Improve type-safety for Fortran abort function wrapper.

parent cbc9433f
......@@ -176,13 +176,17 @@ FCALLSCSUB4(PPM_abort_default_f,PPM_ABORT_DEFAULT,ppm_abort_default,
#undef CFC_
#define CFC_(UN,LN) (UN)
#undef CFextern
#define CFextern typedef
PROTOCCALLSFSUB4(*PPM_fortran_abort_func,,PVOID,STRING,STRING,INT)
#undef CFextern
#define CFextern static
PROTOCCALLSFSUB4(*abort_ppm_fortran_fp,,PVOID,STRING,STRING,INT)
static PPM_fortran_abort_func abort_ppm_fortran_fp;
static void
set_abort_ppm_handler_f(void *abort_ppm_handler)
{
abort_ppm_fortran_fp = abort_ppm_handler;
abort_ppm_fortran_fp = (PPM_fortran_abort_func)abort_ppm_handler;
PPM_abort = abort_ppm_handler_wrapper;
}
......
Supports Markdown
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