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

Avoid using STACK_PUSH in loops

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-06-13 12:32:06 +02:00
parent 99cfc87f96
commit 49efe3b96f
1 changed files with 18 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/c/interpreter.d
View file

@ -518,8 +518,17 @@ close_around(cl_object fun, cl_object lex) {
#define STACK_POP(the_env) *(--(the_env->stack_top))
#define STACK_PUSH_N(the_env,n) { \
cl_index __aux = (n); \
while ((the_env->stack_limit - the_env->stack_top) <= __aux) { \
cl_stack_grow(); \
} \
the_env->stack_top += __aux; }
#define STACK_POP_N(the_env,n) (the_env->stack_top -= n)
#define STACK_REF(the_env,n) (the_env->stack_top[n])
/*
* INTERPRET-FUNCALL is one of the few ways to "exit" the interpreted
* environment and get into the C/lisp world. Since almost all data
@ -1122,20 +1131,21 @@ ecl_interpret(cl_object env, cl_object bytecodes, void *pc)
*/
PUSH_VALUES:
CASE(OP_PUSHVALUES); {
cl_index i;
for (i=0; i<the_env->nvalues; i++)
STACK_PUSH(the_env, the_env->values[i]);
STACK_PUSH(the_env, MAKE_FIXNUM(the_env->nvalues));
cl_index i = the_env->nvalues;
STACK_PUSH_N(the_env, i+1);
memcpy(&STACK_REF(the_env, -(i+1)), the_env->values, i * sizeof(cl_object));
STACK_REF(the_env, -1) = MAKE_FIXNUM(the_env->nvalues);
THREAD_NEXT;
}
/* OP_PUSHMOREVALUES
Adds more values to the ones pushed by OP_PUSHVALUES.
*/
CASE(OP_PUSHMOREVALUES); {
cl_index i, n = fix(STACK_POP(the_env));
for (i=0; i<the_env->nvalues; i++)
STACK_PUSH(the_env, the_env->values[i]);
STACK_PUSH(the_env, MAKE_FIXNUM(n + the_env->nvalues));
cl_index n = fix(STACK_REF(the_env,-1));
cl_index i = the_env->nvalues;
STACK_PUSH_N(the_env, i);
memcpy(&STACK_REF(the_env, -(i+1)), the_env->values, i * sizeof(cl_object));
STACK_REF(the_env, -1) = MAKE_FIXNUM(n + i);
THREAD_NEXT;
}
/* OP_POP