diff options
Diffstat (limited to 'risc-v/riscv_extras.lem')
| -rw-r--r-- | risc-v/riscv_extras.lem | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/risc-v/riscv_extras.lem b/risc-v/riscv_extras.lem index 30043779..4ca5f9b7 100644 --- a/risc-v/riscv_extras.lem +++ b/risc-v/riscv_extras.lem @@ -31,7 +31,7 @@ let memory_parameter_transformer_option_address _mode v = end -let read_memory_functions : memory_reads = +let riscv_read_memory_functions : memory_reads = [ ("MEMr", (MR Read_plain memory_parameter_transformer)); ("MEMr_acquire", (MR Read_RISCV_acquire memory_parameter_transformer)); ("MEMr_strong_acquire", (MR Read_RISCV_strong_acquire memory_parameter_transformer)); @@ -41,10 +41,10 @@ let read_memory_functions : memory_reads = (MR Read_RISCV_reserved_acquire memory_parameter_transformer)); ] -let memory_writes : memory_writes = +let riscv_memory_writes : memory_writes = [] -let memory_eas : memory_write_eas = +let riscv_memory_eas : memory_write_eas = [ ("MEMea", (MEA Write_plain memory_parameter_transformer)); ("MEMea_release", (MEA Write_RISCV_release memory_parameter_transformer)); ("MEMea_strong_release", (MEA Write_RISCV_strong_release memory_parameter_transformer)); @@ -55,7 +55,7 @@ let memory_eas : memory_write_eas = memory_parameter_transformer)); ] -let memory_vals : memory_write_vals = +let riscv_memory_vals : memory_write_vals = [ ("MEMval", (MV memory_parameter_transformer_option_address Nothing)); ("MEMval_release", (MV memory_parameter_transformer_option_address Nothing)); ("MEMval_strong_release", (MV memory_parameter_transformer_option_address Nothing)); @@ -66,14 +66,14 @@ let memory_vals : memory_write_vals = ] -let speculate_conditional_success : excl_res = +let riscv_speculate_conditional_success : excl_res = let f = fun (IState interp context) b -> let bool_res = Interp_ast.V_lit (L_aux (if b then L_one else L_zero) Interp_ast.Unknown) in IState (Interp.add_answer_to_stack interp bool_res) context in Just ("speculate_conditional_success", (ER (Just f))) -let barrier_functions = +let riscv_barrier_functions = [ ("MEM_fence_rw_rw", Barrier_RISCV_rw_rw); ("MEM_fence_r_rw", Barrier_RISCV_r_rw); ("MEM_fence_r_r", Barrier_RISCV_r_r); |