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

re PR ada/30827 (GNAT.compiler_version problem for official releases)

Browse Source 
PR ada/30827
	* g-comver.adb (Ver_Len_Max): Fix inconsistency.

From-SVN: r142274
This commit is contained in:
Eric Botcazou 2008-11-29 10:31:53 +00:00 committed by Eric Botcazou
parent bce4ea615d
commit f9805f52d5
4 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2008-11-29 Eric Botcazou <ebotcazou@adacore.com>
PR ada/30827
* g-comver.adb (Ver_Len_Max): Fix inconsistency.
2008-11-27 Eric Botcazou <ebotcazou@adacore.com> 2008-11-27 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c: Fix various nits. * gcc-interface/decl.c: Fix various nits.

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

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

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2008-11-29 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/test_version.adb: Adjust to new string length.
2008-11-28 Andrew Pinski <andrew_pinski@playstation.sony.com> 2008-11-28 Andrew Pinski <andrew_pinski@playstation.sony.com>
PR testsuite/38311 PR testsuite/38311

4
gcc/testsuite/gnat.dg/test_version.adb
View File

@ -5,8 +5,8 @@ procedure Test_Version is
use Vsn; use Vsn;
X : constant String := Version; X : constant String := Version;
begin begin
if X'Length = 46 then if X'Length = 78 then
-- 46 = Ver_Len_Max + Ver_Prefix -- 78 = Ver_Len_Max + Ver_Prefix'Length
-- actual version should be shorter than this -- actual version should be shorter than this
raise Program_Error; raise Program_Error;
end if; end if;