Skip to content

GitLab

Commit 59a5e2a0 authored by yoogx's avatar yoogx
Browse files

* Handle the case of anonymous access connection 

	For openaadl/ocarina#151
parent 65ba45e6
Hide whitespace changes
Inline Side-by-side
src/backends/ocarina-backends-utils.adb
View file @ 59a5e2a0
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2005-2009 Telecom ParisTech, 2010-2017 ESA & ISAE. --
-- Copyright (C) 2005-2009 Telecom ParisTech, 2010-2018 ESA & ISAE. --
-- --
-- Ocarina is free software; you can redistribute it and/or modify under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -3318,7 +3318,8 @@ package body Ocarina.Backends.Utils is
while Present (S) loop
if Kind (S) = K_Connection_Instance
and then Get_Category_Of_Connection (S) = CT_Access_Bus
and then (Get_Category_Of_Connection (S) = CT_Access_Bus
or else Get_Category_Of_Connection (S) = CT_Access)
then
Device := Item (First_Node (Path (Destination (S))));
......@@ -3377,7 +3378,8 @@ package body Ocarina.Backends.Utils is
while Present (S) loop
if Kind (S) = K_Connection_Instance
and then Get_Category_Of_Connection (S) = CT_Access_Bus
and then (Get_Category_Of_Connection (S) = CT_Access_Bus
or else Get_Category_Of_Connection (S) = CT_Access)
then
if True
-- This device is connected to the bus
......
src/backends/po_hi_ada/ocarina-backends-po_hi_ada-main.adb
View file @ 59a5e2a0
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2006-2009 Telecom ParisTech, 2010-2017 ESA & ISAE. --
-- Copyright (C) 2006-2009 Telecom ParisTech, 2010-2018 ESA & ISAE. --
-- --
-- Ocarina is free software; you can redistribute it and/or modify under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -154,7 +154,9 @@ package body Ocarina.Backends.PO_HI_Ada.Main is
while Present (S) loop
if Kind (S) = K_Connection_Instance
and then Get_Category_Of_Connection (S) = CT_Access_Bus
and then (Get_Category_Of_Connection (S) = CT_Access_Bus
or else
Get_Category_Of_Connection (S) = CT_Access)
then
if True
-- This device is connected to the bus
......
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