Import Upstream version 20180207
[hcoop/debian/mlton.git] / runtime / basis / Real / strtor.c
1 #include "platform.h"
2 #include "gdtoa/gdtoa.h"
3
4 Real32_t Real32_strtor (NullString8_t s, C_Int_t rounding) {
5 char *endptr;
6 Real32_t res;
7
8 gdtoa__strtorf ((const char*)s, &endptr, (int)rounding, &res);
9 assert (NULL != endptr);
10 return res;
11 }
12
13 Real64_t Real64_strtor (NullString8_t s, C_Int_t rounding) {
14 char *endptr;
15 Real64_t res;
16
17 gdtoa__strtord ((const char*)s, &endptr, (int)rounding, &res);
18 assert (NULL != endptr);
19 return res;
20 }