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

COND and PROG1 now operate using only REG0 and the stack

Browse source
This commit is contained in:
jjgarcia 2008-06-19 15:01:47 +00:00
parent 8fca58aec5
commit f5b4ff25af
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/compiler.d
View file

@ -991,13 +991,15 @@ c_cond(cl_object args, int flags) {
if (Null(clause)) {
c_values(cl_list(1,test), flags);
} else {
compile_form(test, (flags & FLAG_VALUES)? FLAG_VALUES: FLAG_REG0);
compile_form(test, FLAG_REG0);
if (flags & FLAG_VALUES) asm_op(OP_VALUEREG0);
label_nil = asm_jmp(OP_JNIL);
compile_body(clause, flags);
asm_complete(OP_JNIL, label_nil);
}
} else if (Null(clause)) {
compile_form(test, (flags & FLAG_VALUES)? FLAG_VALUES : FLAG_REG0);
compile_form(test, FLAG_REG0);
if (flags & FLAG_VALUES) asm_op(OP_VALUEREG0);
label_exit = asm_jmp(OP_JT);
c_cond(args, flags);
asm_complete(OP_JT, label_exit);
@ -1549,7 +1551,7 @@ c_prog1(cl_object args, int flags) {
flags = compile_form(form, flags);
compile_body(args, FLAG_IGNORE);
} else {
flags = FLAG_VALUES;
flags = FLAG_REG0;
compile_form(form, FLAG_PUSH);
compile_body(args, FLAG_IGNORE);
asm_op(OP_POP);

3
src/c/interpreter.d
View file

@ -1103,8 +1103,7 @@ ecl_interpret(cl_object env, cl_object bytecodes, void *pc)
Pops a singe value pushed by a OP_PUSH* operator.
*/
CASE(OP_POP); {
VALUES(0) = reg0 = cl_stack_pop();
NVALUES = 1;
reg0 = cl_stack_pop();
THREAD_NEXT;
}
/* OP_POPVALUES