altos/lisp: Add casts to keep the latest GCC from whinging

[fw/altos] / src / lisp / ao_lisp_mem.c

diff --git a/src/lisp/ao_lisp_mem.c b/src/lisp/ao_lisp_mem.c
index 5bf6e1e4b14d064560cd29b07dbee7ab86146d14..d067ea07ef14cbd87511a83e687bd5a8ed8c1b9b 100644 (file)
--- a/src/lisp/ao_lisp_mem.c
+++ b/src/lisp/ao_lisp_mem.c
@@ -169,15 +169,15 @@ static const struct ao_lisp_root  ao_lisp_root[] = {
        },
        {
                .type = NULL,
-               .addr = (void **) &save_poly[0]
+               .addr = (void **) (void *) &save_poly[0]
        },
        {
                .type = NULL,
-               .addr = (void **) &save_poly[1]
+               .addr = (void **) (void *) &save_poly[1]
        },
        {
                .type = NULL,
-               .addr = (void **) &save_poly[2]
+               .addr = (void **) (void *) &save_poly[2]
        },
        {
                .type = &ao_lisp_atom_type,
@@ -197,7 +197,7 @@ static const struct ao_lisp_root    ao_lisp_root[] = {
        },
        {
                .type = NULL,
-               .addr = (void **) &ao_lisp_v,
+               .addr = (void **) (void *) &ao_lisp_v,
        },
        {
                .type = &ao_lisp_cons_type,