gnat1: warning: ignoring command line option '-Wall'

[Neil Booth]

Andreas Jaeger wrote:-

> 
> Neil,
> 
> with current GCC CVS I get this warning with every gnat1 invocation:
> 
> gnat1: warning: ignoring command line option '-Wall'
> ../../xgcc -B../../ -c -g -O2   -g -O2   -W -Wall -gnatpg -I. -I/usr/src/aj/cvs/gcc/gcc/ada s-interr.adb
> gnat1: warning: ignoring command line option '-Wall'
> 
> Can you look into this, please?

I've applied this.  I thought toplev handle -Wall too, but apparently
not.

Neil.

ada:
	* lang.opt: Add -Wall.
	* misc.c (gnat_handle_option): Handle it.

Index: lang.opt
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/lang.opt,v
retrieving revision 1.2
diff -u -p -b -r1.2 lang.opt
--- lang.opt	11 Jun 2003 20:59:40 -0000	1.2
+++ lang.opt	14 Jun 2003 09:00:11 -0000
@@ -44,6 +44,9 @@
 I
 Ada Joined Separate
 
+Wall
+Ada
+
 fRTS
 Ada RejectNegative
 
Index: misc.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/misc.c,v
retrieving revision 1.53
diff -u -p -b -r1.53 misc.c
--- misc.c	12 Jun 2003 05:47:04 -0000	1.53
+++ misc.c	14 Jun 2003 09:00:11 -0000
@@ -248,6 +248,10 @@ gnat_handle_option (size_t scode, const 
       gnat_argc++;
       break;
 
+    case OPT_Wall:
+      /* All front ends are expected to accept this.  */
+      break;
+
     case OPT_fRTS:
       gnat_argv[gnat_argc] = xstrdup ("-fRTS");
       gnat_argc++;