diff options
Diffstat (limited to 'test/isabelle/run_cheri.ml')
| -rw-r--r-- | test/isabelle/run_cheri.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/isabelle/run_cheri.ml b/test/isabelle/run_cheri.ml index 283e4283..c50d525d 100644 --- a/test/isabelle/run_cheri.ml +++ b/test/isabelle/run_cheri.ml @@ -64,7 +64,7 @@ let () = Arg.parse options (fun s -> opt_file_arguments := !opt_file_arguments @ [s]) usage_msg let (>>) = Sail2_state_monad.bindS -let liftS = Sail2_state_lifting.liftState (Cheri_types.get_regval, Cheri_types.set_regval) +(*let liftS = Sail2_state_lifting.liftState (Cheri_types.get_regval, Cheri_types.set_regval)*) let load_elf_segment seg = let open Elf_interpreted_segment in @@ -89,4 +89,4 @@ let _ = (* State_monad.prerr_results *) (Cheri_code.initial_state |> (Sail2_state.iterS load_elf_segment elf_segments >> (fun _ -> - liftS (Cheri.main ())))); + (Cheri_code.mainS ())))); |