diff options
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/floatfns.c b/src/floatfns.c index 64dc308c7dd..4c1548cfd8f 100644 --- a/src/floatfns.c +++ b/src/floatfns.c | |||
| @@ -192,8 +192,7 @@ static char *float_error_fn_name; | |||
| 192 | /* Extract a Lisp number as a `double', or signal an error. */ | 192 | /* Extract a Lisp number as a `double', or signal an error. */ |
| 193 | 193 | ||
| 194 | double | 194 | double |
| 195 | extract_float (num) | 195 | extract_float (Lisp_Object num) |
| 196 | Lisp_Object num; | ||
| 197 | { | 196 | { |
| 198 | CHECK_NUMBER_OR_FLOAT (num); | 197 | CHECK_NUMBER_OR_FLOAT (num); |
| 199 | 198 | ||
| @@ -985,8 +984,7 @@ float_error (signo) | |||
| 985 | 984 | ||
| 986 | #ifdef HAVE_MATHERR | 985 | #ifdef HAVE_MATHERR |
| 987 | int | 986 | int |
| 988 | matherr (x) | 987 | matherr (struct exception *x) |
| 989 | struct exception *x; | ||
| 990 | { | 988 | { |
| 991 | Lisp_Object args; | 989 | Lisp_Object args; |
| 992 | if (! in_float) | 990 | if (! in_float) |
| @@ -1014,7 +1012,7 @@ matherr (x) | |||
| 1014 | #endif /* HAVE_MATHERR */ | 1012 | #endif /* HAVE_MATHERR */ |
| 1015 | 1013 | ||
| 1016 | void | 1014 | void |
| 1017 | init_floatfns () | 1015 | init_floatfns (void) |
| 1018 | { | 1016 | { |
| 1019 | #ifdef FLOAT_CATCH_SIGILL | 1017 | #ifdef FLOAT_CATCH_SIGILL |
| 1020 | signal (SIGILL, float_error); | 1018 | signal (SIGILL, float_error); |
| @@ -1023,7 +1021,7 @@ init_floatfns () | |||
| 1023 | } | 1021 | } |
| 1024 | 1022 | ||
| 1025 | void | 1023 | void |
| 1026 | syms_of_floatfns () | 1024 | syms_of_floatfns (void) |
| 1027 | { | 1025 | { |
| 1028 | defsubr (&Sacos); | 1026 | defsubr (&Sacos); |
| 1029 | defsubr (&Sasin); | 1027 | defsubr (&Sasin); |