#include <stddef.h>
#include <stdint.h>
#include <stdio.h>
-#include <stdnoreturn.h>
#include "lisp.h"
#include "dynlib.h"
static void module_assert_thread (void);
static void module_assert_runtime (struct emacs_runtime *);
static void module_assert_env (emacs_env *);
-static noreturn void module_abort (const char *format, ...) ATTRIBUTE_FORMAT_PRINTF(1, 2);
-static emacs_env *initialize_environment (emacs_env *, struct emacs_env_private *);
+static _Noreturn void module_abort (const char *format, ...)
+ ATTRIBUTE_FORMAT_PRINTF(1, 2);
+static emacs_env *initialize_environment (emacs_env *,
+ struct emacs_env_private *);
static void finalize_environment (emacs_env *);
static void finalize_environment_unwind (void *);
static void finalize_runtime_unwind (void *);
static void module_handle_signal (emacs_env *, Lisp_Object);
static void module_handle_throw (emacs_env *, Lisp_Object);
-static void module_non_local_exit_signal_1 (emacs_env *, Lisp_Object, Lisp_Object);
-static void module_non_local_exit_throw_1 (emacs_env *, Lisp_Object, Lisp_Object);
+static void module_non_local_exit_signal_1 (emacs_env *,
+ Lisp_Object, Lisp_Object);
+static void module_non_local_exit_throw_1 (emacs_env *,
+ Lisp_Object, Lisp_Object);
static void module_out_of_memory (emacs_env *);
static void module_reset_handlerlist (struct handler *const *);
++count;
prev = globals;
}
- module_abort ("Global value was not found in list of %" pD "d globals",
+ module_abort ("Global value was not found in list of %"pD"d globals",
count);
}
}
return;
++count;
}
- module_abort ("Runtime pointer not found in list of %" pD "d runtimes",
+ module_abort ("Runtime pointer not found in list of %"pD"d runtimes",
count);
}
return;
++count;
}
- module_abort ("Environment pointer not found in list of %" pD "d environments",
+ module_abort ("Environment pointer not found in list of %"pD"d environments",
count);
}
}
++num_environments;
}
- module_abort ("Emacs value not found in %" pD "d values of %" pD "d environments",
+ module_abort (("Emacs value not found in %"pD"d values "
+ "of %"pD"d environments"),
num_values, num_environments);
}
}
}
-static noreturn void
+static _Noreturn void
ATTRIBUTE_FORMAT_PRINTF(1, 2)
module_abort (const char *format, ...)
{