Commit 9afa29b4 authored by yoogx's avatar yoogx

* Rework warning message for non supported annexes

parent ffd6f6c0
......@@ -32,6 +32,7 @@
------------------------------------------------------------------------------
with Charset; use Charset;
with Errors; use Errors;
with Namet; use Namet;
with Output; use Output;
......@@ -67,9 +68,10 @@ package body Ocarina.Parser is
end if;
end loop;
Set_Standard_Error;
Write_Line ("Cannot find language " & Get_Name_String (Language));
Set_Standard_Output;
Error_Loc (1) := From;
Error_Name (1) := Language;
Display_Warning ("no support provided for annex language %");
return AADL_Root;
end Parse;
......
Cannot find language error_model
example_008.aadl:12:19: warning: no support provided for annex language error_model
example_008.aadl:14:15: warning: negative exponent in integer literal
example_008.aadl:10:29: Sampling::Sample (entity reference) qualified reference name not found in 'with' statements of Test (package specification)
example_008.aadl:11:32: Sampling::Sample (entity reference) qualified reference name not found in 'with' statements of Test (package specification)
......
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