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

Cedric cosmetic.

Browse source
This commit is contained in:
Léonard Gérard 2010-06-17 17:25:00 +02:00
parent 96405852f1
commit d44520ddc8
4 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
heptagon/analysis/initialization.ml
View file

@ -208,7 +208,10 @@ let rec typing h e =
(fun acc (_, e) -> max acc (itype (typing h e))) izero l in
skeleton i e.e_ty
| Earray(e_list) ->
product (List.map (typing h) e_list)
let i =
List.fold_left
(fun acc e -> max acc (itype (typing h e))) izero e_list in
skeleton i e.e_ty
(** Typing an application *)
and apply h op e_list =

2
heptagon/analysis/typing.ml
View file

@ -207,13 +207,13 @@ let size_exp ty =
let rec unify t1 t2 =
match t1, t2 with
| b1, b2 when b1 = b2 -> ()
| Tprod t1_list, Tprod t2_list ->
(try
List.iter2 unify t1_list t2_list
with
_ -> raise Unify
)
| b1, b2 when b1 = b2 -> ()
| Tarray (ty1, e1), Tarray (ty2, e2) ->
add_size_constr (Equal(e1,e2));
unify ty1 ty2

2
heptagon/main/heptcheck.ml
View file

@ -55,7 +55,7 @@ let compile_impl modname filename =
if !verbose
then begin
comment "Check successfull"
comment "Checking"
end;
close_all_files ()

8
heptagon/printer.ml
View file

@ -185,19 +185,19 @@ let rec print_eq ff eq =
| Eautomaton(state_handler_list) ->
fprintf ff "@[<v>automaton@,";
fprintf ff "@[<v>";
print_list print_state_handler ff state_handler_list;
print_list print_state_handler "" "" "" ff state_handler_list;
fprintf ff "@]@,";
fprintf ff "end@]"
| Eswitch(e, switch_handler_list) ->
fprintf ff "@[<v>switch ";
print_exp ff e;
fprintf ff "@,@[<v>";
print_list print_switch_handler ff switch_handler_list;
print_list print_switch_handler "" "" "" ff switch_handler_list;
fprintf ff "@]@,";
fprintf ff "end@]"
| Epresent(present_handler_list, b) ->
fprintf ff "@[<v>present@,";
print_list print_present_handler ff present_handler_list;
print_list print_present_handler "" "" "" ff present_handler_list;
if b.b_equs <> [] then begin
fprintf ff " @[<v 2>default@,";
print_block ff b;
@ -226,7 +226,7 @@ and print_state_handler ff
if until <> [] then
begin
fprintf ff "@,@[<v 2>until ";
print_list print_escape ff until;
print_list print_escape "" "" "" ff until;
fprintf ff "@]"
end;
if unless <> [] then