Commit 65eb07e9 authored by yoogx's avatar yoogx

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

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