Commit 4f0d719c authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Propagate exception properly

parent bb92976f
......@@ -209,6 +209,8 @@ package body TASTE.AADL_Parser is
| GNAT.Command_Line.Invalid_Section =>
Put_Error ("Invalid switch or parameter (try --help)" & No_Color);
raise Quit_Taste;
when Quit_Taste =>
raise;
when E : others =>
Errors.Display_Bug_Box (E);
raise Quit_Taste;
......
package TASTE.Parser_Version is
Parser_Release : constant String :=
"8248f43 ; Commit Date: Wed Mar 14 16:04:45 2018 ";
"bb92976 ; Commit Date: Wed Mar 14 16:09:08 2018 ";
Ocarina_Version : constant String :=
"Ocarina 2017.x (Working Copy from r2a52334)";
end TASTE.Parser_Version;
\ No newline at end of file
Supports Markdown
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