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/switch-c.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/switch-c.adb')
| -rw-r--r-- | gcc/ada/switch-c.adb | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index fe7545e..eaefef9 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -852,11 +852,18 @@ package body Switch.C is (Switch_Chars (Ptr .. Max), OK, Ptr); if not OK then - Bad_Switch (C); + declare + R : String (1 .. Style_Msg_Len + 20); + begin + R (1 .. 19) := "bad -gnaty switch ("; + R (20 .. R'Last - 1) := + Style_Msg_Buf (1 .. Style_Msg_Len); + R (R'Last) := ')'; + Osint.Fail (R); + end; end if; Ptr := First_Char + 1; - while Ptr <= Max loop Last_Stored := First_Stored + 1; Storing (Last_Stored) := Switch_Chars (Ptr); |