jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Fix typing

Browse source 
defnames were not rightly handled in [reset] blocks
This commit is contained in:
Léonard Gérard 2010-11-30 11:53:29 +01:00
parent 9a69c30dc5
commit 5a62ca5335
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
compiler/heptagon/analysis/typing.ml
View file

@ -866,11 +866,9 @@ let rec typing_eq const_env h acc eq =
acc
| Ereset(b, e) ->
let typed_e = expect const_env h (Tid Initial.pbool) e in
let typed_eq_list, acc = typing_eq_list
const_env h acc b.b_equs in
let typed_b = { b with b_equs = typed_eq_list } in
let typed_b, def_names, _ = typing_block const_env h b in
Ereset(typed_b, typed_e),
acc
Env.union def_names acc
| Eeq(pat, e) ->
let acc, ty_pat = typing_pat h acc pat in
let typed_e = expect const_env h ty_pat e in