Commit 65eb07e9 authored by yoogx's avatar yoogx
Browse files

* Report an error in case a standard property set is missing

parent c7ea9855
...@@ -468,6 +468,9 @@ package body Ocarina.FE_AADL.Parser is ...@@ -468,6 +468,9 @@ package body Ocarina.FE_AADL.Parser is
File_Name := Search_File (Name_Find); File_Name := Search_File (Name_Find);
if File_Name = No_Name then if File_Name = No_Name then
New_Root := No_Node; New_Root := No_Node;
Exit_On_Error
(No (New_Root), "Cannot find standard property set "
& Image (Standard_Property_Sets (J)));
exit; exit;
end if; end if;
Buffer := Lexer.Load_File (File_Name); Buffer := Lexer.Load_File (File_Name);
......
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