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
This commit is contained in:
Benjamin Vedder 2023-06-13 06:34:35 +02:00
parent f6eeba8336
commit 86ac820c68
1 changed files with 1 additions and 1 deletions

View File

@ -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));