sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bytecmp: represent bytecodes as a lisp vector

Browse source 
Previously they were passed as an index array, now they are a simple
vector (the cl_object).
This commit is contained in:
Daniel Kochmański 2020-12-18 17:28:44 +01:00 • committed by Marius Gerbershagen
parent 4460a8c7f1
commit c18b6d6967
1 changed files with 9 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/c/compiler.d
View file

@ -2420,29 +2420,25 @@ execute_each_form(cl_env_ptr env, cl_object body)
return FLAG_VALUES; return FLAG_VALUES;
} }
static cl_index * static cl_object
save_bytecodes(cl_env_ptr env, cl_index start, cl_index end) save_bytecodes(cl_env_ptr env, cl_index start, cl_index end)
{ {
#ifdef GBC_BOEHM
cl_index l = end - start; cl_index l = end - start;
cl_index *bytecodes = ecl_alloc_atomic((l + 1) * sizeof(cl_index)); cl_object bytecodes = ecl_alloc_simple_vector(l, ecl_aet_index);
cl_index *p = bytecodes; cl_index *p;
for (*(p++) = l; end > start; end--, p++) { for (p = bytecodes->vector.self.index; end > start; end--, p++) {
*p = (cl_index)ECL_STACK_POP_UNSAFE(env); *p = (cl_index)ECL_STACK_POP_UNSAFE(env);
} }
return bytecodes; return bytecodes;
#else
#error "Pointer references outside of recognizable object"
#endif
} }
static void static void
restore_bytecodes(cl_env_ptr env, cl_index *bytecodes) restore_bytecodes(cl_env_ptr env, cl_object bytecodes)
{ {
cl_index *p = bytecodes; cl_index *p = bytecodes->vector.self.index;
cl_index l; cl_index l;
for (l = *p; l; l--) { for (l = bytecodes->vector.dim; l; l--) {
ECL_STACK_PUSH(env, (cl_object)p[l]); ECL_STACK_PUSH(env, (cl_object)p[l-1]);
} }
ecl_dealloc(bytecodes); ecl_dealloc(bytecodes);
} }
@ -2461,7 +2457,7 @@ compile_with_load_time_forms(cl_env_ptr env, cl_object form, int flags)
* code _before_ the actual forms; * code _before_ the actual forms;
*/ */
if (c_env->load_time_forms != ECL_NIL) { if (c_env->load_time_forms != ECL_NIL) {
cl_index *bytecodes = save_bytecodes(env, handle, current_pc(env)); cl_object bytecodes = save_bytecodes(env, handle, current_pc(env));
/* reverse the load time forms list to make sure the forms are /* reverse the load time forms list to make sure the forms are
* compiled in the right order */ * compiled in the right order */
cl_object p, forms_list = cl_nreverse(c_env->load_time_forms); cl_object p, forms_list = cl_nreverse(c_env->load_time_forms);