diff options
Diffstat (limited to 'src/lem_interp')
| -rw-r--r-- | src/lem_interp/interp.lem | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/lem_interp/interp.lem b/src/lem_interp/interp.lem index f8d85cec..18d53fc2 100644 --- a/src/lem_interp/interp.lem +++ b/src/lem_interp/interp.lem @@ -2187,6 +2187,13 @@ and create_write_message_or_update mode t_level value l_env l_mem is_top_level ( ((Action (Write_reg regform Nothing (update_vector_start start_pos reg_size value)) (Thunk_frame (E_aux (E_lit (L_aux L_unit l)) (l,intern_annot annot)) t_level l_env l_mem Top), l_mem,l_env),Nothing) + | (V_register regform,false,Just lexp_builder) -> + let start_pos = reg_start_pos regform in + let reg_size = reg_size regform in + ((Action (Write_reg regform Nothing (update_vector_start start_pos reg_size value)) + (Thunk_frame (E_aux (E_lit (L_aux L_unit l)) (l,intern_annot annot)) t_level l_env l_mem Top), + l_mem,l_env), + Just (next_builder lexp_builder)) | (V_track (V_register regform) _,false,Just lexp_builder) -> let start_pos = reg_start_pos regform in let reg_size = reg_size regform in |