handle --warn-no-

1 files changed, 2 insertions, 2 deletions

diff --git a/flags.adb b/flags.adb
index 73a1454..9007df8 100644
--- a/flags.adb
+++ b/flags.adb
@@ -76,10 +76,10 @@ package body Flags is
          Libraries.Add_Library_Path (Opt (Beg + 2 .. Opt'Last));
       elsif Opt'Length > 10 and then Opt (Beg .. Beg + 9) = "--workdir=" then
          Libraries.Set_Work_Library_Path (Opt (Beg + 10 .. Opt'Last));
-      elsif Opt'Length > 7 and then Opt (Beg .. Beg + 6) = "--warn-" then
-         return Option_Warning (Opt (Beg + 7 .. Opt'Last), True);
       elsif Opt'Length > 10 and then Opt (Beg .. Beg + 9) = "--warn-no-" then
          return Option_Warning (Opt (Beg + 10 .. Opt'Last), False);
+      elsif Opt'Length > 7 and then Opt (Beg .. Beg + 6) = "--warn-" then
+         return Option_Warning (Opt (Beg + 7 .. Opt'Last), True);
       elsif Opt'Length > 7 and then Opt (Beg .. Beg + 6) = "--work=" then
          declare
             use Name_Table;