Squashed 'lispBM/lispBM/' changes from ab11994e..60d7c83f

60d7c83f fix literal array size related typo

git-subtree-dir: lispBM/lispBM
git-subtree-split: 60d7c83f3b30c6a045d4cda639b523788ff0f322
This commit is contained in:
Benjamin Vedder 2022-09-05 22:02:08 +02:00
parent b9e666b3f3
commit 048b9469d3
1 changed files with 2 additions and 1 deletions

View File

@ -2467,7 +2467,8 @@ static inline void cont_read_start_array(eval_context_t *ctx) {
ctx->app_cont = true;
} else if (lbm_is_number(ctx->r)) {
lbm_value array;
if (!lbm_heap_allocate_array(&array, sizeof(lbm_uint) * initial_size, LBM_TYPE_CHAR)) {
initial_size = sizeof(lbm_uint) * initial_size;
if (!lbm_heap_allocate_array(&array, initial_size, LBM_TYPE_CHAR)) {
error_ctx(ENC_SYM_FATAL_ERROR);
return;
}