blob: 70c87eb1f6921b1cdf9202afac9bcc1137302e5d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
# define TGSOURCE "frexp.c"
#include <math.h>
#include "nonstd/tgmath.h"
#include "errno.h"
/** extract mantissa and exponent **/
TYPE TGFN(frexp)(TYPE value, int *exp)
{
if (0) {
errno = ERANGE; /* The result cannot be represented */
/* RETURN(CONSTANT(HUGE_VAL), A range error occurred); */
return TGHUGE;
}
/* RETURN(a value in range [1/2``,'' 1``)'', TODO: explain this); */
/* RETURN(LITERAL(0), ARGUMENT(x) is LITERAL(0)); */
(void)exp;
return value;
}
/***
break floating-point numbers into a normalized fraction and an integral power
of 2.
The normalized fraction is a value in the range [1/2, 1) or 0.
The integral exponent of 2 is stored in the TYPE(int) pointed to by
ARGUMENT(exp).
Multiplying the normalized fraction by 2 to the power ARGUMENT(*exp).
***/
/*
IMPLEMENTATION(The value returned on a domain error, CONSTANT(HUGE_VAL))
LINK(m)
*/
/*
STDC(1)
*/
|
