| … | |
… | |
| 260 | } |
260 | } |
| 261 | |
261 | |
| 262 | // this relies greatly on the quality of the pow () |
262 | // this relies greatly on the quality of the pow () |
| 263 | // implementation of the platform, but a good |
263 | // implementation of the platform, but a good |
| 264 | // implementation is hard to beat. |
264 | // implementation is hard to beat. |
|
|
265 | // (IEEE 754 conformant ones are required to be exact) |
| 265 | if (postdp) *expo -= eaccum; |
266 | if (postdp) *expo -= eaccum; |
| 266 | *accum += uaccum * Perl_pow (10., *expo); |
267 | *accum += uaccum * Perl_pow (10., *expo); |
| 267 | *expo += eaccum; |
268 | *expo += eaccum; |
| 268 | } |
269 | } |
| 269 | |
270 | |
