From 024122adc0a5dba2fce2110dceb9ad4378031839 Mon Sep 17 00:00:00 2001
From: gingold
Date: Tue, 4 Apr 2006 21:48:23 +0000
Subject: handle --warn-no-

---
 flags.adb | 4 ++--
 1 file 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;
-- 
cgit