Commit 646774fb authored by julien.delange's avatar julien.delange

* ocarina/src/backends/ocarina-backends-properties.adb

   - Fix error related to buildsupport
   - Fix bug #121



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@2383 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent ba0d219e
......@@ -60,7 +60,7 @@ property set ARINC653 is
Memory_Kind : Supported_Memory_Kind applies to (memory);
Access_Type : Supported_Access_Type applies to (memory);
Access_Type : ARINC653::Supported_Access_Type applies to (memory);
Timeout : Time applies to (data port, event data port, event port, access);
......
......@@ -2522,6 +2522,14 @@ package body Ocarina.Backends.Properties is
if not Is_System (Parent_Component (C)) then
return No_Node;
elsif Is_System (Parent_Component (C)) and then
Is_Process
(Parent_Component
(Get_Referenced_Entity
(AIN.Source (C)))) and then
Is_Process
(Parent_Component
(Get_Referenced_Entity
(AIN.Destination (C)))) and then
Get_Execution_Platform
(Get_Bound_Processor
(Parent_Component
......
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