projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/lisp: Add 'big' ints -- 24 bits wide
[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 8c06e19898f93c2300e60711396063f1666eb50a..5115f46e28af8b989c3ca199f852298c4ae70cb6 100644
(file)
--- a/
src/lisp/ao_lisp_read.c
+++ b/
src/lisp/ao_lisp_read.c
@@
-245,7
+245,7
@@
lex_quoted(void)
#define AO_LISP_TOKEN_MAX 32
static char token_string[AO_LISP_TOKEN_MAX];
#define AO_LISP_TOKEN_MAX 32
static char token_string[AO_LISP_TOKEN_MAX];
-static int
token_int;
+static int
32_t
token_int;
static int token_len;
static inline void add_token(int c) {
static int token_len;
static inline void add_token(int c) {
@@
-497,7
+497,7
@@
ao_lisp_read(void)
v = AO_LISP_NIL;
break;
case NUM:
v = AO_LISP_NIL;
break;
case NUM:
- v = ao_lisp_int_poly(token_int);
+ v = ao_lisp_int
eger
_poly(token_int);
break;
case BOOL:
if (token_string[0] == 't')
break;
case BOOL:
if (token_string[0] == 't')