Commit 7fe16580 by Andreas Jaeger Committed by Andreas Jaeger

stylesw.adb: Change Style_Check_Subprogram_Order to Style_Check_Order_Subprograms.

	* stylesw.adb: Change Style_Check_Subprogram_Order to
	Style_Check_Order_Subprograms.

From-SVN: r90985
parent f146ac0a
2004-11-21 Andreas Jaeger <aj@suse.de>
* stylesw.adb: Change Style_Check_Subprogram_Order to
Style_Check_Order_Subprograms.
2004-11-18 Arnaud Charlet <charlet@adacore.com>
* adaint.h, adaint.c
......
......@@ -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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment