Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1906 | serge | 1 | #include |
2 | #include |
||
3 | |||
4 | double ldexp(double x, int expn) |
||
5 | { |
||
6 | double res; |
||
7 | if (!isfinite (x) || x == 0.0L) |
||
8 | return x; |
||
9 | |||
10 | __asm__ ("fscale" |
||
11 | : "=t" (res) |
||
12 | : "0" (x), "u" ((double) expn)); |
||
13 | |||
14 | // if (!isfinite (res) || res == 0.0L) |
||
15 | // errno = ERANGE; |
||
16 | |||
17 | return res; |
||
18 | } |
||
19 |