diff options
| author | Joakim Verona | 2011-09-14 11:45:59 +0200 |
|---|---|---|
| committer | Joakim Verona | 2011-09-14 11:45:59 +0200 |
| commit | 8d07d23ecd32b9e9f07234313c2e712a8c42b524 (patch) | |
| tree | d5d925a00733d9a6d1f637b8f3dfdd40c33a2fe7 /src/floatfns.c | |
| parent | 8918dacdb34e848edcd894e32de5b7b4e2fa19ea (diff) | |
| parent | 46888499da0bb61ce47d339275d5a0c757a02eb2 (diff) | |
| download | emacs-8d07d23ecd32b9e9f07234313c2e712a8c42b524.tar.gz emacs-8d07d23ecd32b9e9f07234313c2e712a8c42b524.zip | |
upstream
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/floatfns.c b/src/floatfns.c index 81cf6bdb61f..2011b4d942d 100644 --- a/src/floatfns.c +++ b/src/floatfns.c | |||
| @@ -71,7 +71,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 71 | extern double logb (double); | 71 | extern double logb (double); |
| 72 | #endif /* not HPUX and HAVE_LOGB and no logb macro */ | 72 | #endif /* not HPUX and HAVE_LOGB and no logb macro */ |
| 73 | 73 | ||
| 74 | #if defined(DOMAIN) && defined(SING) && defined(OVERFLOW) | 74 | #if defined (DOMAIN) && defined (SING) && defined (OVERFLOW) |
| 75 | /* If those are defined, then this is probably a `matherr' machine. */ | 75 | /* If those are defined, then this is probably a `matherr' machine. */ |
| 76 | # ifndef HAVE_MATHERR | 76 | # ifndef HAVE_MATHERR |
| 77 | # define HAVE_MATHERR | 77 | # define HAVE_MATHERR |
| @@ -519,7 +519,7 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0, | |||
| 519 | if (f1 == 0.0 && f2 == 0.0) | 519 | if (f1 == 0.0 && f2 == 0.0) |
| 520 | f1 = 1.0; | 520 | f1 = 1.0; |
| 521 | #ifdef FLOAT_CHECK_DOMAIN | 521 | #ifdef FLOAT_CHECK_DOMAIN |
| 522 | else if ((f1 == 0.0 && f2 < 0.0) || (f1 < 0 && f2 != floor(f2))) | 522 | else if ((f1 == 0.0 && f2 < 0.0) || (f1 < 0 && f2 != floor (f2))) |
| 523 | domain_error2 ("expt", arg1, arg2); | 523 | domain_error2 ("expt", arg1, arg2); |
| 524 | #endif | 524 | #endif |
| 525 | IN_FLOAT2 (f3 = pow (f1, f2), "expt", arg1, arg2); | 525 | IN_FLOAT2 (f3 = pow (f1, f2), "expt", arg1, arg2); |