* Defend against null identifier

e8c26eaa · yoogx · d9b53a3d · e8c26eaa
Commit e8c26eaa authored Mar 19, 2013 by yoogx
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

src/core/model/ocarina-analyzer-aadl-naming_rules.adb src/core/model/ocarina-analyzer-aadl-naming_rules.adb +4 -1

No files found.
--- a/src/core/model/ocarina-analyzer-aadl-naming_rules.adb
+++ b/src/core/model/ocarina-analyzer-aadl-naming_rules.adb
@@ -483,7 +483,10 @@ package body Ocarina.Analyzer.AADL.Naming_Rules is
                                            := Next_Node (List_Node_3);
                                       end loop;
                                    else
-                                       if Name (Identifier (List_Node_2))
+
+                                       if Present (Identifier (List_Node_2))
+                                         and then
+                                         Name (Identifier (List_Node_2))
                                         = Name_Of_Identifier
                                       then
                                          First_Node := List_Node_2;