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/hostparm.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/hostparm.ads')
| -rw-r--r-- | gcc/ada/hostparm.ads | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/gcc/ada/hostparm.ads b/gcc/ada/hostparm.ads index 6f2ecc7dd2f..eae07726a67 100644 --- a/gcc/ada/hostparm.ads +++ b/gcc/ada/hostparm.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2003 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2005 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -35,6 +35,8 @@ -- are parameters that are relevant to the host machine on which the -- compiler is running, and thus this package is part of the compiler. +with Types; + package Hostparm is ----------------------- @@ -61,13 +63,15 @@ package Hostparm is Normalized_CWD : constant String := "./"; -- Normalized string to access current directory - Max_Line_Length : constant := 255; - -- Maximum source line length. This can be set to any value up to - -- 2**15 - 1, a limit imposed by the assumption that column numbers - -- can be stored in 16 bits (see Types.Column_Number). A value of - -- 200 is the minimum value required (RM 2.2(15)), but we use 255 - -- for most GNAT targets since this is DEC Ada compatible. The value - -- set here can be overridden by the explicit use of -gnatyM. + Max_Line_Length : constant := Types.Column_Number'Pred + (Types.Column_Number'Last); + -- Maximum source line length. By default we set it to the maximum + -- value that can be supported, which is given by the range of the + -- Column_Number type. We subtract 1 because need to be able to + -- have a valid Column_Number equal to Max_Line_Length to represent + -- the location of a "line too long" error. + -- 200 is the minimum value required (RM 2.2(15)). The value set here + -- can be reduced by the explicit use of the -gnatyM style switch. Max_Name_Length : constant := 1024; -- Maximum length of unit name (including all dots, and " (spec)") and |