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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@106886 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index dff3b6c..73ec36e 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 3138d6f..964edf3 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
 
    -----------------------