diff options
author | Thomas Quinot <quinot@adacore.com> | 2005-12-09 18:16:35 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-12-09 18:16:35 +0100 |
commit | 23d0d17f0debecb8cfbcf2ed0761d9bbc6866969 (patch) | |
tree | 368cb33a970b6f1d0194e690a0101fbef8161433 /gcc/ada/scng.adb | |
parent | 7cdc672b77b47c9c4794ed9b24b8dc923ea36bab (diff) | |
download | gcc-23d0d17f0debecb8cfbcf2ed0761d9bbc6866969.zip gcc-23d0d17f0debecb8cfbcf2ed0761d9bbc6866969.tar.gz gcc-23d0d17f0debecb8cfbcf2ed0761d9bbc6866969.tar.bz2 |
hostparm.ads (Max_Line_Length): Set to Types.Column_Number'Last - 1...
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.
From-SVN: r108288
Diffstat (limited to 'gcc/ada/scng.adb')
-rw-r--r-- | gcc/ada/scng.adb | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb index 687c32b..1f1fe15 100644 --- a/gcc/ada/scng.adb +++ b/gcc/ada/scng.adb @@ -26,6 +26,7 @@ with Csets; use Csets; with Err_Vars; use Err_Vars; +with Hostparm; use Hostparm; with Namet; use Namet; with Opt; use Opt; with Scans; use Scans; @@ -357,13 +358,9 @@ package body Scng is Style.Check_Line_Max_Length (Len); -- If style checking is inactive, check maximum line length against - -- standard value. Note that we take this from Opt.Max_Line_Length - -- rather than Hostparm.Max_Line_Length because we do not want to - -- impose any limit during scanning of configuration pragma files, - -- and Opt.Max_Line_Length (normally set to Hostparm.Max_Line_Length) - -- is reset to Column_Number'Max during scanning of such files. + -- standard value. - elsif Len > Opt.Max_Line_Length then + elsif Len > Max_Line_Length then Error_Long_Line; end if; @@ -423,7 +420,7 @@ package body Scng is begin Error_Msg ("this line is too long", - Current_Line_Start + Source_Ptr (Opt.Max_Line_Length)); + Current_Line_Start + Source_Ptr (Max_Line_Length)); end Error_Long_Line; ------------------------------- |