From 86ac820c6848e242a9fc5cd0d6e53457f79ff62d Mon Sep 17 00:00:00 2001 From: Benjamin Vedder Date: Tue, 13 Jun 2023 06:34:35 +0200 Subject: [PATCH] Squashed 'lispBM/lispBM/' changes from 02887bfd..9b0d5f30 9b0d5f30 fix bug in lift_array_flash found by Benjamin git-subtree-dir: lispBM/lispBM git-subtree-split: 9b0d5f30250b74b7483a0d5e2c6339c6035e08b8 --- src/eval_cps.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/eval_cps.c b/src/eval_cps.c index 18fc4369..307785b4 100644 --- a/src/eval_cps.c +++ b/src/eval_cps.c @@ -420,7 +420,7 @@ static void lift_array_flash(lbm_value flash_cell, char *data, lbm_uint num_elt) flash_array_header.data = (lbm_uint*)data; lbm_uint flash_array_header_ptr; handle_flash_status(lbm_write_const_raw((lbm_uint*)&flash_array_header, - sizeof(lbm_array_header_t), + sizeof(lbm_array_header_t) / sizeof(lbm_uint), &flash_array_header_ptr)); handle_flash_status(write_const_car(flash_cell, flash_array_header_ptr)); handle_flash_status(write_const_cdr(flash_cell, ENC_SYM_ARRAY_TYPE));