diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-12-09 17:16:35 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-12-09 17:16:35 +0000 |
| commit | efbf6c3e49b42e83b5b1a9775451d6b0feea990e (patch) | |
| tree | 368cb33a970b6f1d0194e690a0101fbef8161433 /gcc/ada/stylesw.ads | |
| parent | 136d479bb4214ff4edeb12e64ccb6bd6bb79a894 (diff) | |
| download | gcc-efbf6c3e49b42e83b5b1a9775451d6b0feea990e.tar.gz | |
2005-12-05 Thomas Quinot <quinot@adacore.com>
Robert Dewar <dewar@adacore.com>
* hostparm.ads (Max_Line_Length): Set to Types.Column_Number'Last - 1,
which is the absolute maximum length we can support.
* frontend.adb: For the processing of configuration pragma files,
remove references to Opt.Max_Line_Length, which is not checked anymore.
* namet.ads (Name_Buffer): Adjust size to reflect increase on max line
length.
* scn.adb, scng.adb:
Always check line length against the absolute supported maximum,
Hostparm.Max_Line_Length.
* stylesw.adb (Set_Style_Check_Options, case M): The maximum supported
value for the maximum line length is Max_Line_Length (not
Column_Number'Last).
Minor error msg update
(Set_Style_Check_Options): New interface returning error msg
Minor code reorganization (processing for 'M' was out of alpha order)
* switch-c.adb: New interface for Set_Style_Check_Options
* stylesw.ads (Set_Style_Check_Options): New interface returning error
msg.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@108288 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/stylesw.ads')
| -rw-r--r-- | gcc/ada/stylesw.ads | 31 |
1 files changed, 19 insertions, 12 deletions
diff --git a/gcc/ada/stylesw.ads b/gcc/ada/stylesw.ads index ae7f113152e..4dd662672d1 100644 --- a/gcc/ada/stylesw.ads +++ b/gcc/ada/stylesw.ads @@ -254,24 +254,31 @@ package Stylesw is -- This procedure is called to set the default style checking options -- in response to a -gnaty switch with no suboptions. + Style_Msg_Buf : String (1 .. 80); + Style_Msg_Len : Natural; + -- Used to return + procedure Set_Style_Check_Options (Options : String; OK : out Boolean; Err_Col : out Natural); - -- This procedure is called to set the style check options that - -- correspond to the characters in the given Options string. If - -- all options are valid, they are set in an additive manner: - -- any previous options are retained unless overridden. If any - -- invalid character is found, then OK is False on exit, and - -- Err_Col is the index in options of the bad character. If all - -- options are valid, OK is True on return, and Err_Col is set - -- to Options'Last + 1. + -- This procedure is called to set the style check options that correspond + -- to the characters in the given Options string. If all options are valid, + -- they are set in an additive manner: any previous options are retained + -- unless overridden. + -- + -- If all options given are valid, then OK is True, Err_Col is set to + -- Options'Last + 1, and Style_Msg_Buf/Style_Msg_Len are unchanged. + -- + -- If an invalid character is found, then OK is False on exit, and Err_Col + -- is the index in options of the bad character. In this case Style_Msg_Len + -- is set and Style_Msg_Buf (1 .. Style_Msg_Len) has a detailed message + -- describing the error. procedure Set_Style_Check_Options (Options : String); - -- Like the above procedure, except that the call is simply ignored if - -- there are any error conditions, this is for example appopriate for - -- calls where the string is known to be valid, e.g. because it was - -- obtained by Save_Style_Check_Options. + -- Like the above procedure, but used when the Options string is known to + -- be valid. This is for example appopriate for calls where the string == + -- was obtained by Save_Style_Check_Options. procedure Reset_Style_Check_Options; -- Sets all style check options to off |