Mercurial > emacs
comparison src/floatfns.c @ 3407:d00aaf536bfd
[!FLOAT_CHECK_ERRNO] (IN_FLOAT): New definition.
(Flog): Fix argument of `log'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 01 Jun 1993 20:29:48 +0000 |
| parents | 4b3770f84aa7 |
| children | 1950b2238ecc |
comparison
equal
deleted
inserted
replaced
| 3406:829998469d86 | 3407:d00aaf536bfd |
|---|---|
| 152 case ERANGE: range_error (float_error_fn_name, float_error_arg); \ | 152 case ERANGE: range_error (float_error_fn_name, float_error_arg); \ |
| 153 default: arith_error (float_error_fn_name, float_error_arg); \ | 153 default: arith_error (float_error_fn_name, float_error_arg); \ |
| 154 } \ | 154 } \ |
| 155 } while (0) | 155 } while (0) |
| 156 #else | 156 #else |
| 157 #define IN_FLOAT(d, name, num) (in_float = 1, (d), in_float = 0) | |
| 157 #define IN_FLOAT2(d, name, num, num2) (in_float = 1, (d), in_float = 0) | 158 #define IN_FLOAT2(d, name, num, num2) (in_float = 1, (d), in_float = 0) |
| 158 #endif | 159 #endif |
| 159 | 160 |
| 160 #define arith_error(op,arg) \ | 161 #define arith_error(op,arg) \ |
| 161 Fsignal (Qarith_error, Fcons (build_string ((op)), Fcons ((arg), Qnil))) | 162 Fsignal (Qarith_error, Fcons (build_string ((op)), Fcons ((arg), Qnil))) |
| 469 domain_error2 ("log", arg, base); | 470 domain_error2 ("log", arg, base); |
| 470 #endif | 471 #endif |
| 471 if (b == 10.0) | 472 if (b == 10.0) |
| 472 IN_FLOAT2 (d = log10 (d), "log", arg, base); | 473 IN_FLOAT2 (d = log10 (d), "log", arg, base); |
| 473 else | 474 else |
| 474 IN_FLOAT2 (d = log (arg) / log (b), "log", arg, base); | 475 IN_FLOAT2 (d = log (d) / log (b), "log", arg, base); |
| 475 } | 476 } |
| 476 return make_float (d); | 477 return make_float (d); |
| 477 } | 478 } |
| 478 | 479 |
| 479 DEFUN ("log10", Flog10, Slog10, 1, 1, 0, | 480 DEFUN ("log10", Flog10, Slog10, 1, 1, 0, |