projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/lisp: use strtof instead of atof
[fw/altos]
/
src
/
lisp
/
ao_lisp_read.c
diff --git
a/src/lisp/ao_lisp_read.c
b/src/lisp/ao_lisp_read.c
index 747963ab632b3cdba14d67930c8419b875c8c570..f3b627bbb70c83c1c14b732425e555c64a455594 100644
(file)
--- a/
src/lisp/ao_lisp_read.c
+++ b/
src/lisp/ao_lisp_read.c
@@
-15,6
+15,7
@@
#include "ao_lisp.h"
#include "ao_lisp_read.h"
#include <math.h>
#include "ao_lisp.h"
#include "ao_lisp_read.h"
#include <math.h>
+#include <stdlib.h>
static const uint16_t lex_classes[128] = {
IGNORE, /* ^@ */
static const uint16_t lex_classes[128] = {
IGNORE, /* ^@ */
@@
-445,7
+446,7
@@
_lex(void)
return NUM;
}
if (isfloat && hasdigit) {
return NUM;
}
if (isfloat && hasdigit) {
- token_float =
atof(token_string
);
+ token_float =
strtof(token_string, NULL
);
return FLOAT;
}
for (u = 0; u < NUM_NAMED_FLOATS; u++)
return FLOAT;
}
for (u = 0; u < NUM_NAMED_FLOATS; u++)
@@
-524,8
+525,7
@@
ao_lisp_read(void)
char *string;
int cons;
int read_state;
char *string;
int cons;
int read_state;
- ao_poly v;
-
+ ao_poly v = AO_LISP_NIL;
cons = 0;
read_state = 0;
cons = 0;
read_state = 0;