st/pass_strategy_synthesis
1
0
Fork 0
mirror of https://github.com/ProgramSnail/pass_strategy_synthesis.git synced 2026-06-10 19:28:16 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

struct: cosmetic fixes

Browse source
This commit is contained in:
ProgramSnail 2026-05-16 17:39:08 +00:00
parent 99669ba2f8
commit de71aea4e1
3 changed files with 15 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

2
model_with_structures/analyzer.ml
View file

@ -459,7 +459,7 @@ struct
| TupleV vs, TupleT ts -> ignore @@ List.map2 (tags_check mem) vs ts | TupleV vs, TupleT ts -> ignore @@ List.map2 (tags_check mem) vs ts
| _, _ -> raise @@ Typing_error "tags_check" | _, _ -> raise @@ Typing_error "tags_check"
(* - writable type *) (* - writability check *)
let rec is_all_type_writable (t : atype) : bool = let rec is_all_type_writable (t : atype) : bool =
match t with match t with

26
model_with_structures/model.typ
View file

@ -1471,21 +1471,10 @@ $s in stmt, f in X, x in X, a in X, p in path, pi in revpath$
#h(10pt) #h(10pt)
=== Writable Type === Writability Check
#let twrite = $attach(tack.r, br: #[`write`])$ #let twrite = $attach(tack.r, br: #[`write`])$
#align(center, prooftree(
vertical-spacing: 4pt,
rule(
name: [ writable unit type: MaybeWrite],
$twrite cl r, MaybeWrite cr$,
)
))
#h(10pt)
#align(center, prooftree( #align(center, prooftree(
vertical-spacing: 4pt, vertical-spacing: 4pt,
rule( rule(
@ -1500,7 +1489,18 @@ $s in stmt, f in X, x in X, a in X, p in path, pi in revpath$
#align(center, prooftree( #align(center, prooftree(
vertical-spacing: 4pt, vertical-spacing: 4pt,
rule( rule(
name: [ writable ref type], name: [ writable unit type: MaybeWrite],
$twrite cl r, MaybeWrite cr$,
)
))
#h(10pt)
#align(center, prooftree(
vertical-spacing: 4pt,
rule(
name: [ writable ref type],
$twrite t$, $twrite t$,
$twrite rf c space t$, $twrite rf c space t$,

2
model_with_structures/synthesizer.ml
View file

@ -1158,7 +1158,7 @@ struct
List.mapo (tags_checko mem) vs tps } List.mapo (tags_checko mem) vs tps }
} }
(* - writable type *) (* - writability check *)
let rec is_all_type_writableo tp = let rec is_all_type_writableo tp =
let open Type in let open Type in