diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-20 10:32:58 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-20 10:32:58 +0000 |
| commit | c018befb50a3ab8cfb323ca95e769993c7890b93 (patch) | |
| tree | 14e8940ec3a79d88de808ea09f87f9763c2e7d80 /gcc/ada/sem_prag.adb | |
| parent | 60ec57b4834e5dce4f4e0dbd1bfc3b73415f3259 (diff) | |
| download | gcc-c018befb50a3ab8cfb323ca95e769993c7890b93.tar.gz | |
2009-06-20 Ed Schonberg <schonberg@adacore.com>
* exp_ch3.adb (Build_Record_Init_Proc): When copying initial
expressions (possibly from a parent type) indicate that the scope of
the new itypes is the initialization procedure being built.
2009-06-20 Robert Dewar <dewar@adacore.com>
* a-nudira.adb (Fits_In_32_Bits): New name (inverted sense) for
Needs_64, and now computed without anomolies for some dynamic types.
2009-06-20 Thomas Quinot <quinot@adacore.com>
* sem_prag.adb: Minor reformatting
* exp_disp.ads: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148745 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_prag.adb')
| -rw-r--r-- | gcc/ada/sem_prag.adb | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index f69fcda99eb..ea43c9135c4 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -2802,8 +2802,7 @@ package body Sem_Prag is end if; if Warn_On_Export_Import and then Is_Exported (Def_Id) then - Error_Msg_N - ("?duplicate Export_Object pragma", N); + Error_Msg_N ("?duplicate Export_Object pragma", N); else Set_Exported (Def_Id, Arg_Internal); end if; @@ -2843,8 +2842,8 @@ package body Sem_Prag is ("?duplicate Import_Object pragma", N); -- Check for explicit initialization present. Note that an - -- initialization that generated by the code generator, e.g. - -- for an access type, does not count here. + -- initialization generated by the code generator, e.g. for an + -- access type, does not count here. elsif Present (Expression (Parent (Def_Id))) and then @@ -3141,12 +3140,10 @@ package body Sem_Prag is Formal := First_Formal (Ent); if No (Formal) then - Error_Pragma - ("at least one parameter required for pragma%"); + Error_Pragma ("at least one parameter required for pragma%"); elsif Ekind (Formal) /= E_Out_Parameter then - Error_Pragma - ("first parameter must have mode out for pragma%"); + Error_Pragma ("first parameter must have mode out for pragma%"); else Set_Is_Valued_Procedure (Ent); |