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/scn.adb | |
| 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/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 ce8402d7745..4a6f4f964ec 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; ------------------------ |