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

interface fix.

Browse source
This commit is contained in:
Léonard Gérard 2010-06-17 17:25:08 +02:00
parent d44520ddc8
commit 0040bd0bec
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
heptagon/analysis/interface.ml
View file

@ -21,8 +21,9 @@ module Type =
struct
let sigtype { sig_name = name; sig_inputs = i_list;
sig_outputs = o_list; sig_params = params } =
name, { node_inputs = i_list;
node_outputs = o_list;
let check_arg a = { a with a_type = check_type a.a_type } in
name, { node_inputs = List.map check_arg i_list;
node_outputs = List.map check_arg o_list;
node_params = params;
node_params_constraints = []; }