# | Line 1 | Line 1 | |
---|---|---|
1 | #ifndef lint | |
2 | < | static char SCCSid[] = "$SunId$ LBL"; |
2 | > | static const char RCSid[] = "$Id$"; |
3 | #endif | |
4 | ||
5 | double | |
6 | frexp(x, ip) /* call it paranoia, I've seen the lib version */ | |
7 | < | register double x; |
7 | > | double x; |
8 | int *ip; | |
9 | { | |
10 | int neg; | |
# | Line 21 | Line 21 | int *ip; | |
21 | x *= 2.0; | |
22 | else | |
23 | for (i = 0; x >= 1.0; i++) | |
24 | < | x /= 2.0; |
24 | > | x *= 0.5; |
25 | *ip = i; | |
26 | < | if (neg) |
27 | < | return(-x); |
28 | < | else |
29 | < | return(x); |
26 | > | return (neg ? -x : x); |
27 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |