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

Fix generation of bounds check expression

Browse source
This commit is contained in:
Cédric Pasteur 2011-05-02 11:24:12 +02:00
parent f110727568
commit fd347cb4e4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
compiler/main/mls2obc.ml
View file

@ -93,7 +93,7 @@ let rec bound_check_expr idx_list bounds =
mk_exp_bool (Eop (op_from_string "&", [e1;e2])) mk_exp_bool (Eop (op_from_string "&", [e1;e2]))
in in
match (idx_list, bounds) with match (idx_list, bounds) with
| [idx], [n] -> mk_comp idx n | [idx], n::_ -> mk_comp idx n
| (idx :: idx_list, n :: bounds) -> | (idx :: idx_list, n :: bounds) ->
let e = mk_comp idx n in let e = mk_comp idx n in
mk_exp_bool (Eop (op_from_string "&", mk_exp_bool (Eop (op_from_string "&",