diff options
| author | Keith Packard <keithp@keithp.com> | 2017-11-18 20:38:15 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-11-18 20:49:52 -0800 |
| commit | 5f8f0ed5cd5d4b4f793c602ed09f9b4bdb98f7e8 (patch) | |
| tree | de2468ca80a3411735517ee39155d1cf30055ceb /src/lisp/ao_lisp_read.c | |
| parent | e745229311366a792110d78d8480a2bf83eef9a0 (diff) | |
altos/lisp: Add 'big' ints -- 24 bits wide
With the default ints being only 14 bits, having a larger type with
more precision seems useful. This is not exposed to the application.
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp_read.c')
| -rw-r--r-- | src/lisp/ao_lisp_read.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lisp/ao_lisp_read.c b/src/lisp/ao_lisp_read.c index 8c06e198..5115f46e 100644 --- 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]; -static int token_int; +static int32_t token_int; 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_int_poly(token_int); + v = ao_lisp_integer_poly(token_int); break; case BOOL: if (token_string[0] == 't') |