diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-05 13:11:29 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-05 13:11:29 +0000 |
| commit | 8a638592171205515edfbb0cccf6af2fe15965be (patch) | |
| tree | eff707ccdc5388530cc893afc435a33b8134964f /gcc/ada/exp_ch7.adb | |
| parent | 96c33aeedfc501dcb432dacc1e60f5f2c4564ed9 (diff) | |
| download | gcc-8a638592171205515edfbb0cccf6af2fe15965be.tar.gz | |
2011-09-05 Gary Dismukes <dismukes@adacore.com>
* exp_ch7.adb, exp_ch6.adb: Minor reformatting.
2011-09-05 Johannes Kanig <kanig@adacore.com>
* lib-xref-alfa.adb: Update comments.
2011-09-05 Thomas Quinot <quinot@adacore.com>
* sem_res.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178535 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch7.adb')
| -rw-r--r-- | gcc/ada/exp_ch7.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index 59d2cb18dc9..f36e29e294e 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -3042,7 +3042,7 @@ package body Exp_Ch7 is Parameter_Associations => New_List (New_Reference_To (Data.E_Id, Data.Loc))); - -- Restricted runtime: exception messages are not supported and hence + -- Restricted run-time: exception messages are not supported and hence -- Raise_From_Controlled_Operation is not supported. Raise Program_Error -- instead. @@ -3890,10 +3890,10 @@ package body Exp_Ch7 is No_Body := True; end if; - -- For a nested instance, delay processing until freeze point. + -- For a nested instance, delay processing until freeze point if Has_Delayed_Freeze (Id) - and then Nkind (Parent (N)) /= N_Compilation_Unit + and then Nkind (Parent (N)) /= N_Compilation_Unit then return; end if; @@ -7284,7 +7284,7 @@ package body Exp_Ch7 is -- Procedure call or raise statement begin - -- Standard runtime, .NET/JVM targets: add choice parameter E and pass + -- Standard run-time, .NET/JVM targets: add choice parameter E and pass -- it to Raise_From_Controlled_Operation so that the original exception -- name and message can be recorded in the exception message for -- Program_Error. @@ -7299,7 +7299,7 @@ package body Exp_Ch7 is Parameter_Associations => New_List ( New_Reference_To (E_Occ, Loc))); - -- Restricted runtime: exception messages are not supported + -- Restricted run-time: exception messages are not supported else E_Occ := Empty; @@ -7538,7 +7538,7 @@ package body Exp_Ch7 is Attribute_Name => Name_Unrestricted_Access))); -- In the case of build-in-place functions, protect the call to ensure - -- we have a master at runtime. Generate: + -- we have a master at run time. Generate: -- if <Ptr_Typ>FM /= null then -- <Call>; |