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

Introduce ECL_STACK_INDEX macro

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-02-25 19:11:28 +01:00
parent 80127a2f01
commit 8fe85d2e7c
8 changed files with 12 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/string.d
View file

@ -953,14 +953,14 @@ nstring_case(cl_narg narg, cl_object fun, ecl_casefun casefun, cl_va_list ARGS)
for (i = 0, l = 0; i < narg; i++) {
cl_object s = si_coerce_to_base_string(cl_va_arg(args));
if (s->base_string.fillp) {
ecl_stack_push(the_env, s);
ECL_STACK_PUSH(the_env, s);
l += s->base_string.fillp;
}
}
/* Do actual copying by recovering those strings */
output = cl_alloc_simple_base_string(l);
while (l) {
cl_object s = ecl_stack_pop(the_env);
cl_object s = ECL_STACK_POP_UNSAFE(the_env);
size_t bytes = s->base_string.fillp;
l -= bytes;
memcpy(output->base_string.self + l, s->base_string.self, bytes);