Skip to content
GitLab
Commit c6409c9f authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

admit formulas as bool-typed expressions everywhere in programs

parent 46ba2d40
Show whitespace changes
Inline Side-by-side
src/programs/pgm_typing.ml
View file @ c6409c9f
...@@ -1028,7 +1028,7 @@ let make_logic_app loc ty ls el = ...@@ -1028,7 +1028,7 @@ let make_logic_app loc ty ls el =
| None -> | None ->
IElogic (ps_app ls (List.rev args), lvars, gvars) IElogic (ps_app ls (List.rev args), lvars, gvars)
end end
| ({ iexpr_desc = IElogic (t, lvt, gvt) }, _, _) :: r -> | ({ iexpr_desc = IElogic (t,lvt,gvt) }, _, _) :: r when t.t_ty <> None ->
make (Svs.union lvars lvt) (Spv.union gvars gvt) (t :: args) r make (Svs.union lvars lvt) (Spv.union gvars gvt) (t :: args) r
| ({ iexpr_desc = IElocal v }, _, _) :: r -> | ({ iexpr_desc = IElocal v }, _, _) :: r ->
make (Svs.add v.i_impure lvars) gvars (t_var v.i_pure :: args) r make (Svs.add v.i_impure lvars) gvars (t_var v.i_pure :: args) r
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment