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/scn.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/scn.adb')
| -rw-r--r-- | gcc/ada/scn.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/scn.adb b/gcc/ada/scn.adb index ce8402d..4a6f4f9 100644 --- a/gcc/ada/scn.adb +++ b/gcc/ada/scn.adb @@ -26,6 +26,7 @@ with Atree; use Atree; with Csets; use Csets; +with Hostparm; use Hostparm; with Namet; use Namet; with Opt; use Opt; with Restrict; use Restrict; @@ -104,7 +105,7 @@ package body Scn is begin if Style_Check then Style.Check_Line_Terminator (Len); - elsif Len > Opt.Max_Line_Length then + elsif Len > Max_Line_Length then Error_Long_Line; end if; end Check_End_Of_Line; @@ -266,7 +267,7 @@ package body Scn 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; ------------------------ |