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

Remove an extra POP1 operand that was pushed after STEPCALL. This operand is no longer needed by the new implementation of the stepper.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-28 12:20:26 +02:00
parent 45487a621f
commit c90431dbdb
1 changed files with 0 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/c/compiler.d
View file

@ -912,7 +912,6 @@ c_call(cl_env_ptr env, cl_object args, int flags) {
* calls: OP_STEPFCALL. */
asm_function(env, name, (flags & FLAG_GLOBAL) | FLAG_REG0);
asm_op2(env, OP_STEPCALL, nargs);
asm_op(env, OP_POP1);
flags = FLAG_VALUES;
} else if (SYMBOLP(name) &&
((flags & FLAG_GLOBAL) || Null(c_tag_ref(env, name, @':function'))))