X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_make_const.c;h=0f243eb0731e8c5407ee0a2d74822a09b89c22fc;hp=416a95d91fa4ddfa4be7d624696bae2c661db4cf;hb=daa06c8dedc6dc1cf21936ee2769d9d25f0567bd;hpb=5c1fa73f159de9d9839e8619494c26931521d2d4

diff --git a/src/lisp/ao_lisp_make_const.c b/src/lisp/ao_lisp_make_const.c
index 416a95d9..0f243eb0 100644
--- a/src/lisp/ao_lisp_make_const.c
+++ b/src/lisp/ao_lisp_make_const.c
@@ -136,6 +136,7 @@ ao_lisp_macro_push(ao_poly p)
 	m->p = p;
 	m->next = macro_stack;
 	macro_stack = m;
+	return 0;
 }
 
 void
@@ -147,7 +148,7 @@ ao_lisp_macro_pop(void)
 	free(m);
 }
 
-#define DBG_MACRO 1
+#define DBG_MACRO 0
 #if DBG_MACRO
 int macro_scan_depth;
 
@@ -355,7 +356,7 @@ main(int argc, char **argv)
 	}
 
 	/* Reduce to referenced values */
-	ao_lisp_collect();
+	ao_lisp_collect(AO_LISP_COLLECT_FULL);
 
 	for (f = 0; f < ao_lisp_frame_num(ao_lisp_frame_global); f++) {
 		val = ao_has_macro(ao_lisp_frame_global->vals[f].val);
@@ -397,7 +398,7 @@ main(int argc, char **argv)
 		fprintf(out, "  0x%04x\n", ao_lisp_atom_poly(a));
 	}
 	fprintf(out, "#ifdef AO_LISP_CONST_BITS\n");
-	fprintf(out, "const uint8_t ao_lisp_const[] = {");
+	fprintf(out, "const uint8_t ao_lisp_const[AO_LISP_POOL_CONST] __attribute((aligned(4))) = {");
 	for (o = 0; o < ao_lisp_top; o++) {
 		uint8_t	c;
 		if ((o & 0xf) == 0)