diff options
Diffstat (limited to 'gcc/ada/s-atacco.ads')
| -rw-r--r-- | gcc/ada/s-atacco.ads | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/gcc/ada/s-atacco.ads b/gcc/ada/s-atacco.ads index 7d8eafcffab..6e2b434d63e 100644 --- a/gcc/ada/s-atacco.ads +++ b/gcc/ada/s-atacco.ads @@ -39,13 +39,12 @@ generic type Object (<>) is limited private; package System.Address_To_Access_Conversions is -pragma Preelaborate (Address_To_Access_Conversions); - -pragma Elaborate_Body; --- This pragma Elaborate_Body is there to ensure the requirement of what is --- at the moment a dummy null body. The reason this null body is there is --- that we used to have a real body, and it causes bootstrap problems with --- old compilers if we try to remove the corresponding file. + pragma Preelaborate; + pragma Elaborate_Body; + -- This pragma Elaborate_Body is there to ensure the requirement of what is + -- at the moment a dummy null body. The reason this null body is there is + -- that we used to have a real body, and it causes bootstrap problems with + -- old compilers if we try to remove the corresponding file. pragma Compile_Time_Warning (Object'Unconstrained_Array, |