Mercurial > emacs
comparison src/floatfns.c @ 2128:28d83027277f
(Flogb): Fix use of IN_FLOAT.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 11 Mar 1993 07:22:49 +0000 |
| parents | 4077ef8ad483 |
| children | 6741f5f8ed54 |
comparison
equal
deleted
inserted
replaced
| 2127:adaf588e32a6 | 2128:28d83027277f |
|---|---|
| 624 error ("SYSV apparently doesn't have a logb function; what to do?"); | 624 error ("SYSV apparently doesn't have a logb function; what to do?"); |
| 625 #else | 625 #else |
| 626 Lisp_Object val; | 626 Lisp_Object val; |
| 627 double f = extract_float (num); | 627 double f = extract_float (num); |
| 628 | 628 |
| 629 IN_FLOAT (val = logb (f), num); | 629 IN_FLOAT (val = logb (f), "logb", num); |
| 630 XSET (val, Lisp_Int, val); | 630 XSET (val, Lisp_Int, val); |
| 631 return val; | 631 return val; |
| 632 #endif | 632 #endif |
| 633 } | 633 } |
| 634 | 634 |