Mercurial > emacs
comparison src/floatfns.c @ 4594:dc7eabff318b
(Flogb): Error at run time if not supported.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 13 Aug 1993 00:46:48 +0000 |
| parents | e8bd41ac77be |
| children | 1fc792473491 |
comparison
equal
deleted
inserted
replaced
| 4593:efead3ca0cd4 | 4594:dc7eabff318b |
|---|---|
| 645 | 645 |
| 646 IN_FLOAT (frexp (f, &exp), "logb", arg); | 646 IN_FLOAT (frexp (f, &exp), "logb", arg); |
| 647 XSET (val, Lisp_Int, exp-1); | 647 XSET (val, Lisp_Int, exp-1); |
| 648 } | 648 } |
| 649 #else | 649 #else |
| 650 Well, what *do* you have? | 650 /* Would someone like to write code to emulate logb? */ |
| 651 error ("`logb' not implemented on this operating system"); | |
| 651 #endif | 652 #endif |
| 652 #endif | 653 #endif |
| 653 | 654 |
| 654 return val; | 655 return val; |
| 655 } | 656 } |
