Commit e8c26eaa authored by yoogx's avatar yoogx
Browse files

* Defend against null identifier

parent d9b53a3d
...@@ -483,7 +483,10 @@ package body Ocarina.Analyzer.AADL.Naming_Rules is ...@@ -483,7 +483,10 @@ package body Ocarina.Analyzer.AADL.Naming_Rules is
:= Next_Node (List_Node_3); := Next_Node (List_Node_3);
end loop; end loop;
else else
if Name (Identifier (List_Node_2))
if Present (Identifier (List_Node_2))
and then
Name (Identifier (List_Node_2))
= Name_Of_Identifier = Name_Of_Identifier
then then
First_Node := List_Node_2; First_Node := List_Node_2;
......
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