altos/lisp: Overflow int computations to float

[fw/altos] / src / lisp / ao_lisp.h

diff --git a/src/lisp/ao_lisp.h b/src/lisp/ao_lisp.h
index 1f3fb2b4020ebfec98e6c6391d17cfa761488d70..7cd8b5a5959ca29f3bcea8aeda154ba789325715 100644 (file)
--- a/src/lisp/ao_lisp.h
+++ b/src/lisp/ao_lisp.h
@@ -208,6 +208,8 @@ ao_lisp_bigint_int(uint32_t bi) {
 
 #define AO_LISP_MIN_INT                (-(1 << (15 - AO_LISP_TYPE_SHIFT)))
 #define AO_LISP_MAX_INT                ((1 << (15 - AO_LISP_TYPE_SHIFT)) - 1)
+#define AO_LISP_MIN_BIGINT     (-(1 << 24))
+#define AO_LISP_MAX_BIGINT     ((1 << 24) - 1)
 
 #define AO_LISP_NOT_INTEGER    0x7fffffff