projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
#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;
static inline int
ao_lisp_getc() {
static uint8_t at_eol;
@@
-56,10
+62,18
@@
ao_lisp_os_led(int led)
(void) led;
}
(void) led;
}
+#define AO_LISP_JIFFIES_PER_SECOND AO_HERTZ
+
static inline void
ao_lisp_os_delay(int delay)
{
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
}
#endif