st/pass_strategy_synthesis
1
0
Fork 0
mirror of https://github.com/ProgramSnail/pass_strategy_synthesis.git synced 2026-06-11 03:38:15 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

struct: new model in synthesizer (not compilling for now but necessery parts are implemented)

Browse source
This commit is contained in:
ProgramSnail 2026-05-13 18:46:01 +00:00
parent 5f55e3ecee
commit a56a8ffebc
2 changed files with 311 additions and 65 deletions
Download patch file Download diff file Expand all files Collapse all files

5
model_with_structures/analyzer.ml
View file

@ -237,8 +237,6 @@ struct
(* - value update *)
(* TODO: change and modify are different *)
let rec valchange (mem : mem) (v : value) (p : revpath) (b : value) : mem * value = match p, v with
| VarRP, _ -> (mem, b)
| DerefRP p, RefV id -> let (mem', v') = valchange mem (mem_get mem id) p b in
@ -336,7 +334,6 @@ struct
(* - call values spoil *)
(* TODO: check assignment type matches types separately later ?? *)
(* TODO: check all cases *)
let is_correct_tags (r : read_cap) (w : write_cap)
(m : mode) (c : copy_cap) : bool =
(snd m != Out || c == Rf) &&
@ -509,7 +506,7 @@ struct
| TupleT _ -> raise @@ Eval_error "write: tuple type"
| _ -> raise @@ Eval_error "write: type")
| ReadS p -> (match pathtype types p with
| UnitT (r, _) ->
| UnitT (_, _) ->
(* NOTE: not required *)
(* if r == NRd *)
(* then raise @@ Eval_error "read: not read tag" *)