altos/lisp: Fix stash usage across frame allocation

[fw/altos] / src / cortexelf-v1 / ao_lisp_os.h

diff --git a/src/cortexelf-v1/ao_lisp_os.h b/src/cortexelf-v1/ao_lisp_os.h
index d0c1f7b7a149dc71d26d81a74637262d90d66ddf..27ea7806e963b9790d848dafb459774fd8ce3daf 100644 (file)
--- a/src/cortexelf-v1/ao_lisp_os.h
+++ b/src/cortexelf-v1/ao_lisp_os.h
@@ -23,6 +23,12 @@
 #define AO_LISP_POOL_TOTAL             16384
 #define AO_LISP_SAVE                   1
 
+#ifndef __BYTE_ORDER
+#define        __LITTLE_ENDIAN 1234
+#define        __BIG_ENDIAN    4321
+#define __BYTE_ORDER   __LITTLE_ENDIAN
+#endif
+
 static inline int
 ao_lisp_getc() {
        static uint8_t  at_eol;
@@ -56,10 +62,18 @@ ao_lisp_os_led(int led)
        (void) led;
 }
 
+#define AO_LISP_JIFFIES_PER_SECOND     AO_HERTZ
+
 static inline void
 ao_lisp_os_delay(int delay)
 {
-       ao_delay(AO_MS_TO_TICKS(delay));
+       ao_delay(delay);
+}
+
+static inline int
+ao_lisp_os_jiffy(void)
+{
+       return ao_tick_count;
 }
 
 #endif