* gnatvsn.ads (Ver_Len_Max): Bump up to 256.
* g-comver.adb (Ver_Len_Max): Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@167408
138bc75d-0d04-0410-961f-
82ee72b054a4
+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.
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.
S (Pos + 1) := Version_String (Pos);
Pos := Pos + 1;
+
+ exit when Pos = Ver_Len_Max;
end loop;
return S (1 .. Pos);
-- 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