X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_mem.c;h=3a704380d715ac53b08c7532e1edda482ff64728;hb=c31744299e5a4342bbe26d3735ee2d8f09192ae9;hp=890eba1baf1ac44a19b6e13063fcd9c83f6f317e;hpb=98923ae1189f062b8b94120d47a56892db25493f;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_mem.c b/src/lisp/ao_lisp_mem.c
index 890eba1b..3a704380 100644
--- a/src/lisp/ao_lisp_mem.c
+++ b/src/lisp/ao_lisp_mem.c
@@ -501,6 +501,7 @@ ao_lisp_collect(uint8_t style)
 
 	MDBG_MOVE("collect %d\n", ao_lisp_collects[style]);
 #endif
+	MDBG_DO(ao_lisp_frame_write(ao_lisp_frame_poly(ao_lisp_frame_global)));
 
 	/* The first time through, we're doing a full collect */
 	if (ao_lisp_last_top == 0)
@@ -875,6 +876,7 @@ ao_lisp_alloc(int size)
 	}
 	addr = ao_lisp_pool + ao_lisp_top;
 	ao_lisp_top += size;
+	MDBG_MOVE("alloc %d size %d\n", MDBG_OFFSET(addr), size);
 	return addr;
 }