diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-01-04 09:12:00 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-01-04 09:12:00 +0000 |
| commit | 4bba0a8d33aaf6d0b42fd6e0c2f723c32129ae07 (patch) | |
| tree | ebd210105c51af2cd0a248f2210c7c8e00c4e6f1 /gcc/ada/exp_prag.adb | |
| parent | df9fba45bc11329d2b71c742565833796eff4739 (diff) | |
| download | gcc-4bba0a8d33aaf6d0b42fd6e0c2f723c32129ae07.tar.gz | |
2013-01-04 Robert Dewar <dewar@adacore.com>
* exp_prag.adb, gnatcmd.adb, exp_util.adb, table.adb, sem_prag.adb,
freeze.adb, sem_ch4.adb, sem_warn.adb, opt.ads, exp_aggr.adb,
prj-conf.adb, sem_ch13.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@194888 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_prag.adb')
| -rw-r--r-- | gcc/ada/exp_prag.adb | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/gcc/ada/exp_prag.adb b/gcc/ada/exp_prag.adb index f2b1c853e9b..68a340d7c47 100644 --- a/gcc/ada/exp_prag.adb +++ b/gcc/ada/exp_prag.adb @@ -530,16 +530,16 @@ package body Exp_Prag is -- Expand_Pragma_Import_Or_Interface -- --------------------------------------- - -- When applied to a variable, the default initialization must not be - -- done. As it is already done when the pragma is found, we just get rid - -- of the call the initialization procedure which followed the object - -- declaration. The call is inserted after the declaration, but validity - -- checks may also have been inserted and the initialization call does - -- not necessarily appear immediately after the object declaration. + -- When applied to a variable, the default initialization must not be done. + -- As it is already done when the pragma is found, we just get rid of the + -- call the initialization procedure which followed the object declaration. + -- The call is inserted after the declaration, but validity checks may + -- also have been inserted and the initialization call does not necessarily + -- appear immediately after the object declaration. - -- We can't use the freezing mechanism for this purpose, since we - -- have to elaborate the initialization expression when it is first - -- seen (i.e. this elaboration cannot be deferred to the freeze point). + -- We can't use the freezing mechanism for this purpose, since we have to + -- elaborate the initialization expression when it is first seen (i.e. this + -- elaboration cannot be deferred to the freeze point). procedure Expand_Pragma_Import_Or_Interface (N : Node_Id) is Def_Id : Entity_Id; @@ -553,11 +553,11 @@ package body Exp_Prag is Init_Call := Remove_Init_Call (Def_Id, Rep_Clause => N); - -- Any default initialization expression should be removed - -- (e.g., null defaults for access objects, zero initialization - -- of packed bit arrays). Imported objects aren't allowed to - -- have explicit initialization, so the expression must have - -- been generated by the compiler. + -- Any default initialization expression should be removed (e.g., + -- null defaults for access objects, zero initialization of packed + -- bit arrays). Imported objects aren't allowed to have explicit + -- initialization, so the expression must have been generated by + -- the compiler. if No (Init_Call) and then Present (Expression (Parent (Def_Id))) then Set_Expression (Parent (Def_Id), Empty); |