| … | |
… | |
| 249 | |
249 | |
| 250 | break; |
250 | break; |
| 251 | } |
251 | } |
| 252 | } |
252 | } |
| 253 | |
253 | |
|
|
254 | // this relies greatly on the quality of the pow () |
|
|
255 | // implementation of the platform, but a good |
|
|
256 | // implementation is hard to beat. |
| 254 | if (postdp) *expo -= eaccum; |
257 | if (postdp) *expo -= eaccum; |
| 255 | *accum += uaccum * pow (10., *expo); |
258 | *accum += uaccum * Perl_pow (10., *expo); |
| 256 | *expo += eaccum; |
259 | *expo += eaccum; |
| 257 | } |
260 | } |
| 258 | |
261 | |
| 259 | static NV |
262 | static NV |
| 260 | json_atof (const char *s) |
263 | json_atof (const char *s) |
