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: rev fix, fixes (test is still broken)

Browse source
This commit is contained in:
ProgramSnail 2026-05-10 16:56:15 +00:00
parent 123012f68f
commit 855a3d1ef9
2 changed files with 39 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

8
model_with_structures/synthesizer.ml
View file

@ -542,8 +542,7 @@ struct
v == TupleV vs &
tp == TupleT tps &
list_foldl2o valcopy_foldero (Std.pair mem []) vs tps (Std.pair mem' vs') &
== mem_with_vs' &
List.reverso vs' vs''
List.reverso vs' vs'' &
mem_with_id' == Std.pair mem' (TupleV vs'') }
}
@ -791,14 +790,15 @@ struct
valspoilo mem v' tp' u' m ctp' (Std.pair mem_sp v_sp) &
mem_seto mem_sp id' v_sp mem_set &
mem_with_v' == Std.pair mem_set (RefV id') } |
{ fresh tps, us, vs, mem_sp,vs_sp in
{ fresh tps, us, vs, mem_sp, vs_sp, vs_sp' in
tp == TupleT tps &
u == TupleT us &
v == TupleV vs &
list_foldl3o (valspoil_foldero m c)
(Std.pair mem []) tps us vs
(Std.pair mem_sp vs_sp) &
mem_with_v' == Std.pair mem_sp (TupleV vs_sp)
List.reverso vs_sp vs_sp' &
mem_with_v' == Std.pair mem_sp (TupleV vs_sp')
}
}