Commit e23f9ce7 authored by julien.delange's avatar julien.delange

* fix connectivity matrix backend



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@2103 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 6871067e
......@@ -364,16 +364,16 @@ package body Ocarina.Backends.Connection_Matrix.Main is
if Is_Defined_Property
(Conn,
"aram_properties::required_bandwidth") then
"bus_properties::required_bandwidth") then
Bandwidth := Get_Integer_Property (Conn,
"aram_properties::required_bandwidth");
"bus_properties::required_bandwidth");
Bandwidth_Unit := ATN.Name
(ATN.Unit_Identifier
(Get_Value_Of_Property_Association
(Conn,
Get_String_Name
("aram_properties::required_bandwidth"))));
("bus_properties::required_bandwidth"))));
Connected := True;
end if;
end if;
......@@ -526,31 +526,31 @@ package body Ocarina.Backends.Connection_Matrix.Main is
-- Try to find the bus properties: bandwidth and latency.
if Is_Defined_Property
(Bus_Instance, "aram_properties::bandwidth") then
(Bus_Instance, "bus_properties::bandwidth") then
Bandwidth := Get_Integer_Property
(Bus_Instance, "aram_properties::bandwidth");
(Bus_Instance, "bus_properties::bandwidth");
Bandwidth_Unit := ATN.Name
(ATN.Unit_Identifier
(Get_Value_Of_Property_Association
(Bus_Instance,
Get_String_Name
("aram_properties::bandwidth"))));
("bus_properties::bandwidth"))));
end if;
if Is_Defined_Property
(Bus_Instance, "aram_properties::max_latency") then
(Bus_Instance, "bus_properties::max_latency") then
Latency := Get_Integer_Property
(Bus_Instance, "aram_properties::max_latency");
(Bus_Instance, "bus_properties::max_latency");
Latency_Unit := ATN.Name
(ATN.Unit_Identifier
(Get_Value_Of_Property_Association
(Bus_Instance,
Get_String_Name
("aram_properties::max_latency"))));
("bus_properties::max_latency"))));
end if;
-- First, display the name of the bus in bold
......
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