projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/lisp: split set/def. Add def support to lambdas
[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 890eba1baf1ac44a19b6e13063fcd9c83f6f317e..3a704380d715ac53b08c7532e1edda482ff64728 100644
(file)
--- 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_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)
/* 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;
}
addr = ao_lisp_pool + ao_lisp_top;
ao_lisp_top += size;
+ MDBG_MOVE("alloc %d size %d\n", MDBG_OFFSET(addr), size);
return addr;
}
return addr;
}