altos/test: Get lisp test building using Makefile-inc
[fw/altos] / src / test / ao_lisp_os.h
index 19bd4f64df3237b9a593ec1e470d2c037b4e4fe4..9ff2e1feb71cafb65ce1a8445b3dc49d8be731f8 100644 (file)
 #include <stdlib.h>
 #include <time.h>
 
+#define AO_LISP_POOL_TOTAL     3072
+#define AO_LISP_SAVE           1
+#define DBG_MEM_STATS          1
+
 extern int ao_lisp_getc(void);
 
+static inline void
+ao_lisp_os_flush() {
+       fflush(stdout);
+}
+
 static inline void
 ao_lisp_abort(void)
 {
@@ -39,6 +48,8 @@ ao_lisp_os_led(int led)
 static inline void
 ao_lisp_os_delay(int delay)
 {
+       if (!delay)
+               return;
        struct timespec ts = {
                .tv_sec = delay / 1000,
                .tv_nsec = (delay % 1000) * 1000000,