m->p = p;
m->next = macro_stack;
macro_stack = m;
+ return 0;
}
void
free(m);
}
-#define DBG_MACRO 1
+#define DBG_MACRO 0
#if DBG_MACRO
int macro_scan_depth;
}
/* 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);
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)