rusefi
/
bldc
mirror of https://github.com/rusefi/bldc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge commit '26cea34cf5a088c11bf6238f90c8dc374465c1ed'

This commit is contained in:
Benjamin Vedder 2023-06-18 21:24:45 +02:00
parent 5dc0a03c6e 26cea34cf5
commit f9f9390d0f
1 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lispBM/lispBM/src/eval_cps.c
View File

@ -614,26 +614,6 @@ static lbm_value allocate_closure(lbm_value params, lbm_value body, lbm_value en
return res;
}
static void allocate_cells(lbm_uint n, lbm_value *cell_buff) {
#ifdef LBM_ALWAYS_GC
gc();
#endif
if (lbm_heap_num_free() < n) {
gc();
if (lbm_heap_num_free() < n) {
error_ctx(ENC_SYM_MERROR);
}
}
lbm_value curr = lbm_heap_state.freelist;
for (lbm_uint i = 0; i < n; i ++) {
cell_buff[i] = curr;
curr = lbm_ref_cell(curr)->cdr;
}
lbm_heap_state.freelist = lbm_ref_cell(curr)->cdr;
lbm_heap_state.num_alloc+=n;
}
#define CLO_PARAMS 0
#define CLO_BODY 1
#define CLO_ENV 2