diff options
Diffstat (limited to 'gcc/ada/namet.ads')
| -rw-r--r-- | gcc/ada/namet.ads | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/namet.ads b/gcc/ada/namet.ads index 231fe85..4bf12e6 100644 --- a/gcc/ada/namet.ads +++ b/gcc/ada/namet.ads @@ -33,6 +33,7 @@ with Alloc; with Table; +with Hostparm; use Hostparm; with System; use System; with Types; use Types; @@ -125,12 +126,11 @@ package Namet is -- binder, the Byte field is unused, and the Int field is used in various -- ways depending on the name involved (see binder documentation). - Name_Buffer : String (1 .. 16*1024); + Name_Buffer : String (1 .. 4 * Max_Line_Length); -- This buffer is used to set the name to be stored in the table for the -- Name_Find call, and to retrieve the name for the Get_Name_String call. - -- The plus 1 in the length allows for cases of adding ASCII.NUL. The 16K - -- here is intended to be an infinite value that ensures that we never - -- overflow the buffer (names this long are too absurd to worry!) + -- The limit here is intended to be an infinite value that ensures that we + -- never overflow the buffer (names this long are too absurd to worry!) Name_Len : Natural; -- Length of name stored in Name_Buffer. Used as an input parameter for |