re PR ada/18434 (Ada: cannot build gnattools on Tru64 UNIX V5.1B)

2005-11-14  Robert Dewar  <dewar@adacore.com>

	PR ada/18434
	* osint-m.adb: Add pragma Elaborate_All for Osint

From-SVN: r106886

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index dff3b6cbcca64bbf86e5ab73ac1d8786a27efacf..73ec36e119b257e701b16b3cb6a42a823eef5ad2 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-14  Robert Dewar  <dewar@adacore.com>
+
+       PR ada/18434
+       * osint-m.adb: Add pragma Elaborate_All for Osint
+
 2005-11-10  Eric Botcazou  <ebotcazou@adacore.com>
 
        PR ada/23995

diff --git a/gcc/ada/osint-m.adb b/gcc/ada/osint-m.adb
index 3138d6f74da6ed556902483c49936ee4784aeb18..964edf332273394eae5cff490984eebe1719f3db 100644 (file)
--- a/gcc/ada/osint-m.adb
+++ b/gcc/ada/osint-m.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 2001 Free Software Foundation, Inc.               --
+--          Copyright (C) 2001-2005, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -24,6 +24,17 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
+with Osint;
+
+pragma Elaborate_All (Osint);
+--  This pragma is needed because of the call to Set_Program in the
+--  elaboration of the package. We cannot rely on the static model
+--  of elaboration since the compiler is routinely compiled with
+--  checks off (-gnatp), and with older versions of the compiler
+--  (up to and including most 5.04 wavefronts), -gnatp suppresses
+--  the static elaboration check mechanisms. It could be removed
+--  one day, but there really is no need to do so.
+
 package body Osint.M is
 
    -----------------------