Commit 19daadc7 authored by yoogx's avatar yoogx

* Exit if no root system found

        For openaadl/ocarina#224
parent cecdc03e
......@@ -222,7 +222,7 @@ package body Ocarina.Instances is
if No (Root_System) then
Error_Loc (1) := No_Location;
DE ("Cannot find a root system");
Exit_On_Error (True, "Cannot find a root system");
end if;
if Root_System_Name /= No_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