From e745229311366a792110d78d8480a2bf83eef9a0 Mon Sep 17 00:00:00 2001 From: Keith Packard Date: Fri, 17 Nov 2017 23:28:08 -0800 Subject: [PATCH] altos/cortexelf-v1: Make lisp compile again Signed-off-by: Keith Packard --- src/cortexelf-v1/Makefile | 1 + src/cortexelf-v1/ao_lisp_os.h | 10 +++++++++- src/cortexelf-v1/ao_pins.h | 2 ++ 3 files changed, 12 insertions(+), 1 deletion(-) diff --git a/src/cortexelf-v1/Makefile b/src/cortexelf-v1/Makefile index 8cc6ce31..be225e57 100644 --- a/src/cortexelf-v1/Makefile +++ b/src/cortexelf-v1/Makefile @@ -82,6 +82,7 @@ ALTOS_SRC = \ ao_lisp_atom.c \ ao_lisp_int.c \ ao_lisp_poly.c \ + ao_lisp_bool.c \ ao_lisp_builtin.c \ ao_lisp_read.c \ ao_lisp_rep.c \ diff --git a/src/cortexelf-v1/ao_lisp_os.h b/src/cortexelf-v1/ao_lisp_os.h index d0c1f7b7..50c9d40f 100644 --- a/src/cortexelf-v1/ao_lisp_os.h +++ b/src/cortexelf-v1/ao_lisp_os.h @@ -56,10 +56,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 diff --git a/src/cortexelf-v1/ao_pins.h b/src/cortexelf-v1/ao_pins.h index 258ffe31..c2bbf2d2 100644 --- a/src/cortexelf-v1/ao_pins.h +++ b/src/cortexelf-v1/ao_pins.h @@ -62,6 +62,8 @@ #define USE_SERIAL_2_STDIN 1 #define SERIAL_2_PA2_PA3 0 #define SERIAL_2_PD5_PD6 1 +#define USE_SERIAL_2_FLOW 0 +#define USE_SERIAL_2_SW_FLOW 0 #define HAS_SERIAL_3 0 #define USE_SERIAL_3_STDIN 0 -- 2.30.2