Commit c4b50c8f authored by Maxime Perrotin's avatar Maxime Perrotin

Fix Concurrency View for distributed systems

parent f3ae257c
...@@ -582,7 +582,7 @@ package body TASTE.Concurrency_View is ...@@ -582,7 +582,7 @@ package body TASTE.Concurrency_View is
for Part of Node.Partitions loop for Part of Node.Partitions loop
exit when Found; exit when Found;
if Part.Bound_Functions.Contains if Part.Bound_Functions.Contains
(To_String (BC.Dest_Function)) (To_String (BC.Source_Function)) -- Dest_Function))
then then
Connect_From_Partition := Connect_From_Partition :=
Connect_From_Partition & Part.Name; Connect_From_Partition & Part.Name;
...@@ -593,7 +593,7 @@ package body TASTE.Concurrency_View is ...@@ -593,7 +593,7 @@ package body TASTE.Concurrency_View is
if not Found then if not Found then
raise Concurrency_View_Error with raise Concurrency_View_Error with
"Could not find partition of function " "Could not find partition of function "
& To_String (BC.Dest_Function); & To_String (BC.Source_Function); -- Dest_Function);
end if; end if;
end loop; end loop;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment