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

Added check for unicity of init

Browse source
This commit is contained in:
Cédric Pasteur 2011-04-27 14:35:09 +02:00
parent 6332ac7a10
commit 41d2a1e3cb
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
compiler/heptagon/analysis/linear_typing.ml
View file

@ -240,8 +240,8 @@ let check_init loc init lin =
| Lno_init -> lin
| Linit_var r ->
(match lin with
| Lat r1 when r = r1 -> Ltop
| Lvar r1 when r = r1 -> Ltop
| Lat r1 when r = r1 -> check_fresh_lin_var loc lin; Ltop
| Lvar r1 when r = r1 -> check_fresh_lin_var loc lin; Ltop
| _ -> message loc (Ewrong_init (r, lin)))
| Linit_tuple _ -> assert false
in