-
-static _Noreturn void
-handle_arith_signal (int sig)
-{
- pthread_sigmask (SIG_SETMASK, &empty_mask, 0);
- xsignal0 (Qarith_error);
-}
-
-static void
-deliver_arith_signal (int sig)
-{
- handle_on_main_thread (sig, handle_arith_signal);
-}
-
-void
-init_data (void)
-{
- struct sigaction action;
- /* Don't do this if just dumping out.
- We don't want to call `signal' in this case
- so that we don't have trouble with dumping
- signal-delivering routines in an inconsistent state. */
-#ifndef CANNOT_DUMP
- if (!initialized)
- return;
-#endif /* CANNOT_DUMP */
- emacs_sigaction_init (&action, deliver_arith_signal);
- sigaction (SIGFPE, &action, 0);
-}