Commit 9afa29b4 authored by yoogx's avatar yoogx
Browse files

* Rework warning message for non supported annexes

parent ffd6f6c0
...@@ -32,6 +32,7 @@ ...@@ -32,6 +32,7 @@
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with Charset; use Charset; with Charset; use Charset;
with Errors; use Errors;
with Namet; use Namet; with Namet; use Namet;
with Output; use Output; with Output; use Output;
...@@ -67,9 +68,10 @@ package body Ocarina.Parser is ...@@ -67,9 +68,10 @@ package body Ocarina.Parser is
end if; end if;
end loop; end loop;
Set_Standard_Error; Error_Loc (1) := From;
Write_Line ("Cannot find language " & Get_Name_String (Language)); Error_Name (1) := Language;
Set_Standard_Output; Display_Warning ("no support provided for annex language %");
return AADL_Root; return AADL_Root;
end Parse; 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: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: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) 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