mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 04:52:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

ecl-inl: add looping over stack frames

Browse source
This commit is contained in:
Daniel Kochmański 2025-05-28 11:08:27 +02:00
parent 71763174ef
commit 8fcac4bd9f
1 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/h/ecl-inl.h
View file

@ -102,6 +102,24 @@
#define end_loop_across_stack() }}
/*
* Loops over a stack frame.
*/
#define loop_across_frame_fifo(var, obj) { \
cl_object *__ecl_ptr = ECL_STACK_FRAME_PTR(obj); \
cl_object *__ecl_top = ECL_STACK_FRAME_TOP(obj); \
while(__ecl_ptr++ < __ecl_top) { \
cl_object var = *(__ecl_ptr-1); \
#define loop_across_frame_filo(var, obj) { \
cl_object *__ecl_ptr = ECL_STACK_FRAME_PTR(obj); \
cl_object *__ecl_top = ECL_STACK_FRAME_TOP(obj); \
while(__ecl_ptr < __ecl_top--) { \
cl_object var = *__ecl_top;
#define end_loop_across_frame() }}
/*
* Static constant definition.
*/