st/pass_strategy_synthesis
1
0
Fork 0
mirror of https://github.com/ProgramSnail/pass_strategy_synthesis.git synced 2026-04-29 09:14:35 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

file for abstract domain alternative model, fixes

Browse source
This commit is contained in:
ProgramSnail 2026-03-29 15:31:40 +00:00
parent 93e8f23c4a
commit 5fa95da8b7
5 changed files with 527 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

23
model_with_control_flow/analyzer.ml
View file

@ -60,8 +60,9 @@ struct
let state_combine (left : state) (right : state) : state = match left, right with
(lenv, lmem, lmem_len, lvisited), (renv, rmem, rmem_len, rvisited) ->
if lenv != renv || lmem_len != rmem_len || lvisited != rvisited then raise Incompatible_states
else (lenv, memory_combine lmem rmem, lmem_len, List.append lvisited rvisited) (* TODO: union visited lists instead ? *)
if lenv != renv || lmem_len != rmem_len then raise Incompatible_states
else (lenv, memory_combine lmem rmem, lmem_len, List.append lvisited rvisited)
(* TODO: union visited lists instead ? *)
(* --- *)
@ -517,6 +518,22 @@ struct
(* --- *)
(* TODO: combine statement tests *)
(* TODO: more Combine statement tests *)
let%expect_test "simple function call with value arg and choice, rw" =
eval_prog ([([wi_value], [Choice ([Write 0; Read 0], [Write 0]); Read 0])], ([wi_value], [Write 0; Call (0, [0]) ]));
Printf.printf "done!";
[%expect {| done! |}]
let%expect_test "simple function call with ref arg and choice, rw" =
try (eval_prog ([([ri_ref], [Choice ([Read 0], [Write 0])])], ([wi_value], [Write 0; Call (0, [0]) ]));
[%expect.unreachable])
with Incorrect_const_cast id -> Printf.printf "%i" id;
[%expect {| 0 |}]
let%expect_test "simple function call with ref arg and choice, rr" =
eval_prog ([([ri_ref], [Choice ([Read 0], [Read 0; Read 0])])], ([wi_value], [Write 0; Call (0, [0]) ]));
Printf.printf "done!";
[%expect {| done! |}]
end