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

Bytecode objects created inside an eval-when had an invalid name.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-08-24 12:22:50 +02:00
parent b03bd60fd7
commit 2772bcbc46
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/compiler.d
View file

@ -161,6 +161,7 @@ asm_end(cl_index beginning) {
code_size = current_pc() - beginning;
data_size = ecl_length(ENV->constants);
bytecodes = cl_alloc_object(t_bytecodes);
bytecodes->bytecodes.name = @'si::bytecodes';
bytecodes->bytecodes.code_size = code_size;
bytecodes->bytecodes.data_size = data_size;
bytecodes->bytecodes.code = cl_alloc_atomic(code_size * sizeof(cl_opcode));
@ -2741,7 +2742,6 @@ si_make_lambda(cl_object name, cl_object rest)
compile_form(form, FLAG_VALUES);
asm_op(OP_EXIT);
bytecodes = asm_end(handle);
bytecodes->bytecodes.name = @'si::bytecodes';
bytecodes->bytecodes.definition = form;
} CL_UNWIND_PROTECT_EXIT {
/* Clear up */