Commit c4b50c8f authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Fix Concurrency View for distributed systems

parent f3ae257c
......@@ -582,7 +582,7 @@ package body TASTE.Concurrency_View is
for Part of Node.Partitions loop
exit when Found;
if Part.Bound_Functions.Contains
(To_String (BC.Dest_Function))
(To_String (BC.Source_Function)) -- Dest_Function))
Connect_From_Partition :=
Connect_From_Partition & Part.Name;
......@@ -593,7 +593,7 @@ package body TASTE.Concurrency_View is
if not Found then
raise Concurrency_View_Error with
"Could not find partition of function "
& To_String (BC.Dest_Function);
& To_String (BC.Source_Function); -- Dest_Function);
end if;
end loop;
Supports Markdown
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