Skip to content
Snippets Groups Projects
Commit 0fe1461a authored by Fort Frédéric's avatar Fort Frédéric
Browse files

Summary: Bug fix: When constructing the coms list, if the search fails while...

Summary: Bug fix: When constructing the coms list, if the search fails while looking inside the task inputs, look inside the task conditions.


git-svn-id: https://svn.onera.fr/Prelude/Prelude/trunk@887 49f62630-d767-4ccd-930e-b3f5589f52e1
parent 0eddb12d
No related branches found
No related tags found
No related merge requests found
......@@ -211,7 +211,14 @@ let needs_idxs task =
let coms_list task_set =
let read_proto tid vid =
let t = Hashtbl.find task_set tid in
let _,_,read_proto = List.find (fun (vdecl,_,_) -> vdecl.var_id = vid) t.task_inputs in
try
let _,_,read_proto =
List.find (fun (vdecl,_,_) -> vdecl.var_id = vid) t.task_inputs in
read_proto
with Not_found ->
let _,read_proto = (List.find
(fun cond -> cond.cond_var.var_id = vid)
t.task_conds).cond_pred in
read_proto
in
Hashtbl.fold
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment