diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/src/data.c b/src/data.c index 72d7c8ccf9a..abcdd4dca0d 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -34,14 +34,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 34 | #include "font.h" | 34 | #include "font.h" |
| 35 | #include "keymap.h" | 35 | #include "keymap.h" |
| 36 | 36 | ||
| 37 | #include <float.h> | ||
| 38 | #if (FLT_RADIX == 2 && FLT_MANT_DIG == 24 \ | ||
| 39 | && FLT_MIN_EXP == -125 && FLT_MAX_EXP == 128) | ||
| 40 | #define IEEE_FLOATING_POINT 1 | ||
| 41 | #else | ||
| 42 | #define IEEE_FLOATING_POINT 0 | ||
| 43 | #endif | ||
| 44 | |||
| 45 | Lisp_Object Qnil, Qt, Qquote, Qlambda, Qunbound; | 37 | Lisp_Object Qnil, Qt, Qquote, Qlambda, Qunbound; |
| 46 | static Lisp_Object Qsubr; | 38 | static Lisp_Object Qsubr; |
| 47 | Lisp_Object Qerror_conditions, Qerror_message, Qtop_level; | 39 | Lisp_Object Qerror_conditions, Qerror_message, Qtop_level; |
| @@ -3179,32 +3171,3 @@ syms_of_data (void) | |||
| 3179 | Vmost_negative_fixnum = make_number (MOST_NEGATIVE_FIXNUM); | 3171 | Vmost_negative_fixnum = make_number (MOST_NEGATIVE_FIXNUM); |
| 3180 | XSYMBOL (intern_c_string ("most-negative-fixnum"))->constant = 1; | 3172 | XSYMBOL (intern_c_string ("most-negative-fixnum"))->constant = 1; |
| 3181 | } | 3173 | } |
| 3182 | |||
| 3183 | static _Noreturn void | ||
| 3184 | handle_arith_signal (int sig) | ||
| 3185 | { | ||
| 3186 | pthread_sigmask (SIG_SETMASK, &empty_mask, 0); | ||
| 3187 | xsignal0 (Qarith_error); | ||
| 3188 | } | ||
| 3189 | |||
| 3190 | static void | ||
| 3191 | deliver_arith_signal (int sig) | ||
| 3192 | { | ||
| 3193 | handle_on_main_thread (sig, handle_arith_signal); | ||
| 3194 | } | ||
| 3195 | |||
| 3196 | void | ||
| 3197 | init_data (void) | ||
| 3198 | { | ||
| 3199 | struct sigaction action; | ||
| 3200 | /* Don't do this if just dumping out. | ||
| 3201 | We don't want to call `signal' in this case | ||
| 3202 | so that we don't have trouble with dumping | ||
| 3203 | signal-delivering routines in an inconsistent state. */ | ||
| 3204 | #ifndef CANNOT_DUMP | ||
| 3205 | if (!initialized) | ||
| 3206 | return; | ||
| 3207 | #endif /* CANNOT_DUMP */ | ||
| 3208 | emacs_sigaction_init (&action, deliver_arith_signal); | ||
| 3209 | sigaction (SIGFPE, &action, 0); | ||
| 3210 | } | ||