2007-06-11 Bob Duff <duff@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-trafor-default.ads

diff --git a/gcc/ada/s-trafor-default.ads b/gcc/ada/s-trafor-default.ads
index 281b690..01d957f 100644 (file)
--- a/gcc/ada/s-trafor-default.ads
+++ b/gcc/ada/s-trafor-default.ads
@@ -34,6 +34,7 @@
 --  This package implements functions to format run-time traces
 
 package System.Traces.Format is
+   pragma Preelaborate;
 
    Max_Size : constant Integer := 128;
    --  Event messages' maximum size.