Commit f9805f52 by Eric Botcazou Committed by Eric Botcazou

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

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

From-SVN: r142274
parent bce4ea61
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>
* gcc-interface/decl.c: Fix various nits.
......@@ -37,7 +37,7 @@
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
-- import this directly since run-time units cannot WITH compiler units.
......
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>
PR testsuite/38311
......
......@@ -5,8 +5,8 @@ procedure Test_Version is
use Vsn;
X : constant String := Version;
begin
if X'Length = 46 then
-- 46 = Ver_Len_Max + Ver_Prefix
if X'Length = 78 then
-- 78 = Ver_Len_Max + Ver_Prefix'Length
-- actual version should be shorter than this
raise Program_Error;
end if;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment