2005-09-16 Laurent GUERBY <laurent@guerby.net>

	PR ada/23788
	* s-tpinop.ads: Make this unit Preelaborate.

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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 185e230..2a99275 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2005-09-16  Laurent GUERBY  <laurent@guerby.net>
+
+       PR ada/23788
+       * s-tpinop.ads: Make this unit Preelaborate.
+
 2005-09-16  Andreas Jaeger  <aj@suse.de>
 
        * socket.c: Add string.h for memcpy.

diff --git a/gcc/ada/s-tpinop.ads b/gcc/ada/s-tpinop.ads
index 290aed4..90a5c1d 100644 (file)
--- a/gcc/ada/s-tpinop.ads
+++ b/gcc/ada/s-tpinop.ads
@@ -36,6 +36,7 @@ with System.Interrupt_Management;
 with System.Tasking;
 
 package System.Task_Primitives.Interrupt_Operations is
+   pragma Preelaborate;
 
    package IM renames System.Interrupt_Management;
    package ST renames System.Tasking;