* Restore bug box

61d1b8f6 · yoogx · d1cc37ee · 61d1b8f6
Commit 61d1b8f6 authored Jan 25, 2016 by yoogx
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

src/main/ocarina_cmd.adb src/main/ocarina_cmd.adb +3 -0

No files found.
--- a/src/main/ocarina_cmd.adb
+++ b/src/main/ocarina_cmd.adb
@@ -678,4 +678,7 @@ exception
      --  Expected when Getopt processes -h or --help
      null;

+   when E : others =>
+      Display_Bug_Box (E);
+
 end Ocarina_Cmd;