mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-30 05:01:13 -07:00
Code Issues Projects Releases Packages Wiki Activity

bytevm: reshape OP_FRAME to resemble OP_TAGBODY and OP_PROTECT

Browse source 
This is a cosmetic change that makes unwinding look similar across operators.
This commit is contained in:
Daniel Kochmański 2025-05-01 10:45:28 +02:00
parent 8bc957d88f
commit 6babf49b1c
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/interpreter.d
View file

@ -1107,14 +1107,13 @@ ecl_interpret(cl_object frame, cl_object closure, cl_object bytecodes)
ECL_STACK_PUSH(the_env, tangle_lcl(lcl_env));
ECL_STACK_PUSH(the_env, (cl_object)exit);
ecl_frs_push(the_env,reg1);
if (__ecl_frs_push_result == 0) {
THREAD_NEXT;
} else {
if (__ecl_frs_push_result != 0) {
reg0 = the_env->values[0];
vector = (cl_opcode *)ECL_STACK_REF(the_env,-1); /* FIXME! */
unwind_lcl(lcl_env, ECL_STACK_REF(the_env, -2));
goto DO_EXIT_FRAME;
}
THREAD_NEXT;
}
/* OP_FRAMEID 0
OP_TAGBODY n{arg}