OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

gnatvsn.adb (Gnat_Version_String): Don't overrun Ver_Len_Max.

Browse Source 
* gnatvsn.adb (Gnat_Version_String): Don't overrun Ver_Len_Max.
* gnatvsn.ads (Ver_Len_Max): Bump up to 256.
* g-comver.adb (Ver_Len_Max): Likewise.

From-SVN: r167408
This commit is contained in:
Alexandre Oliva 2010-12-03 04:48:56 +00:00 committed by Alexandre Oliva
parent 7a9389330e
commit 2e3331995e
4 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@ -1,3 +1,9 @@
2010-12-03 Alexandre Oliva <aoliva@redhat.com>
* gnatvsn.adb (Gnat_Version_String): Don't overrun Ver_Len_Max.
* gnatvsn.ads (Ver_Len_Max): Bump up to 256.
* g-comver.adb (Ver_Len_Max): Likewise.
2010-12-03 Laurynas Biveinis <laurynas.biveinis@gmail.com>
* gcc-interface/decl.c (struct subst_pair_d): Remove GTY tag.

2
gcc/ada/g-comver.adb
View File

@ -37,7 +37,7 @@
package body GNAT.Compiler_Version is
Ver_Len_Max : constant := 64;
Ver_Len_Max : constant := 256;
-- This is logically a reference to Gnatvsn.Ver_Len_Max but we cannot
-- import this directly since run-time units cannot WITH compiler units.

2
gcc/ada/gnatvsn.adb
View File

@ -74,6 +74,8 @@ package body Gnatvsn is
S (Pos + 1) := Version_String (Pos);
Pos := Pos + 1;
exit when Pos = Ver_Len_Max;
end loop;
return S (1 .. Pos);

2
gcc/ada/gnatvsn.ads
View File

@ -70,7 +70,7 @@ package Gnatvsn is
-- Return the name of the Copyright holder to be displayed by the different
-- GNAT tools when switch --version is used.
Ver_Len_Max : constant := 64;
Ver_Len_Max : constant := 256;
-- Longest possible length for Gnat_Version_String in this or any
-- other version of GNAT. This is used by the binder to establish
-- space to store any possible version string value for checks. This