Commit c8c361dc authored by yoogx's avatar yoogx
Browse files

* Minor code reorganization

parent 61d1b8f6
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2009 Telecom ParisTech, 2010-2015 ESA & ISAE. -- -- Copyright (C) 2009 Telecom ParisTech, 2010-2016 ESA & ISAE. --
-- -- -- --
-- Ocarina is free software; you can redistribute it and/or modify under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -302,15 +302,12 @@ package body Ocarina.Analyzer.AADL.Naming_Rules is ...@@ -302,15 +302,12 @@ package body Ocarina.Analyzer.AADL.Naming_Rules is
if Present (Scope) then if Present (Scope) then
Scoped_Identifier := Scoped_Identifier :=
Internal_Node_In_Scope (Name_Of_Identifier, Scope); Internal_Node_In_Scope (Name_Of_Identifier, Scope);
else if Present (Scoped_Identifier) then
return No_Node; return Corresponding_Entity (Scoped_Identifier);
end if;
end if; end if;
if Present (Scoped_Identifier) then return No_Node;
return Corresponding_Entity (Scoped_Identifier);
else
return No_Node;
end if;
end Node_Explicitly_In_Scope; end Node_Explicitly_In_Scope;
------------------- -------------------
......
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