… | |
… | |
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) |