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