Re: [Ada] move some warning to style check

[Andreas Jaeger <aj at suse dot de>]

Laurent GUERBY <laurent@guerby.net> writes:

> The commit was probably incomplete, with HEAD I get:

According to the ChangeLog it wasn't.

> gcc -c -g -DENABLE_CHECKING -DENABLE_ASSERT_CHECKING      -gnatpg -gnata
> -I- -I. -Iada -I/home/guerby/work/gcc/version-head/gcc/ada
> /home/guerby/work/gcc/version-head/gcc/ada/stylesw.adb -o ada/stylesw.o
> stylesw.adb:53:07: "Style_Check_Subprogram_Order" is undefined (more
> references follow)
>
> Hope this helps,

Here's the obvious patch, I'm testing it right now on Linux/AMD64.

Andreas

2004-11-21  Andreas Jaeger  <aj@suse.de>

	* stylesw.adb: Change Style_Check_Subprogram_Order to
	Style_Check_Order_Subprograms.

============================================================
Index: gcc/ada/stylesw.adb
--- ada/stylesw.adb	25 Jun 2004 16:39:32 -0000	1.7
+++ ada/stylesw.adb	21 Nov 2004 16:29:48 -0000
@@ -50,7 +50,7 @@ package body Stylesw is
       Style_Check_References        := False;
       Style_Check_Specs             := False;
       Style_Check_Standard          := False;
-      Style_Check_Subprogram_Order  := False;
+      Style_Check_Order_Subprograms := False;
       Style_Check_Tokens            := False;
    end Reset_Style_Check_Options;
 
@@ -113,7 +113,7 @@ package body Stylesw is
       Add ('k', Style_Check_Keyword_Casing);
       Add ('l', Style_Check_Layout);
       Add ('n', Style_Check_Standard);
-      Add ('o', Style_Check_Subprogram_Order);
+      Add ('o', Style_Check_Order_Subprograms);
       Add ('p', Style_Check_Pragma_Casing);
       Add ('r', Style_Check_References);
       Add ('s', Style_Check_Specs);
@@ -279,19 +279,19 @@ package body Stylesw is
                Style_Check_Max_Line_Length := Style_Max_Line_Length /= 0;
 
             when 'o' =>
-               Style_Check_Subprogram_Order := True;
+               Style_Check_Order_Subprograms := True;
 
             when 'p' =>
-               Style_Check_Pragma_Casing    := True;
+               Style_Check_Pragma_Casing     := True;
 
             when 'r' =>
-               Style_Check_References       := True;
+               Style_Check_References        := True;
 
             when 's' =>
-               Style_Check_Specs            := True;
+               Style_Check_Specs             := True;
 
             when 't' =>
-               Style_Check_Tokens           := True;
+               Style_Check_Tokens            := True;
 
             when ' ' =>
                null;

-- 
 Andreas Jaeger, aj@suse.de, http://www.suse.de/~aj
  SUSE Linux AG, Maxfeldstr. 5, 90409 NÃrnberg, Germany
   GPG fingerprint = 93A3 365E CE47 B889 DF7F  FED1 389A 563C C272 A126

Attachment: pgp00000.pgp
Description: PGP signature