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 ...@@ -209,6 +209,8 @@ package body TASTE.AADL_Parser is
| GNAT.Command_Line.Invalid_Section => | GNAT.Command_Line.Invalid_Section =>
Put_Error ("Invalid switch or parameter (try --help)" & No_Color); Put_Error ("Invalid switch or parameter (try --help)" & No_Color);
raise Quit_Taste; raise Quit_Taste;
when Quit_Taste =>
raise;
when E : others => when E : others =>
Errors.Display_Bug_Box (E); Errors.Display_Bug_Box (E);
raise Quit_Taste; raise Quit_Taste;
......
package TASTE.Parser_Version is package TASTE.Parser_Version is
Parser_Release : constant String := 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_Version : constant String :=
"Ocarina 2017.x (Working Copy from r2a52334)"; "Ocarina 2017.x (Working Copy from r2a52334)";
end TASTE.Parser_Version; 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