diff options
| author | Gary Dismukes <dismukes@adacore.com> | 2018-05-28 08:53:42 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-05-28 08:53:42 +0000 |
| commit | 6a890c589fe0d0bd6821b58d9d0432bfc6ed4cb1 (patch) | |
| tree | b2ef3da10ce05c0669cbd973dca0b7b01538e027 | |
| parent | 341e0bb6c54e541637031f30492d584a8e5e98f5 (diff) | |
| download | gcc-6a890c589fe0d0bd6821b58d9d0432bfc6ed4cb1.zip gcc-6a890c589fe0d0bd6821b58d9d0432bfc6ed4cb1.tar.gz gcc-6a890c589fe0d0bd6821b58d9d0432bfc6ed4cb1.tar.bz2 | |
[Ada] Minor reformatting
2018-05-28 Gary Dismukes <dismukes@adacore.com>
gcc/ada/
* exp_ch3.adb: Minor reformatting
From-SVN: r260823
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 6 |
2 files changed, 7 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a6edf80..5072b7e 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2018-05-28 Gary Dismukes <dismukes@adacore.com> + + * exp_ch3.adb: Minor reformatting + 2018-05-28 Justin Squirek <squirek@adacore.com> * exp_ch3.adb diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 689c67c..88abe91 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -1565,7 +1565,7 @@ package body Exp_Ch3 is Append_To (Args, New_Occurrence_Of (Standard_True, Loc)); - -- Otherwise, we pass False to perform null excluding checks + -- Otherwise, we pass False to perform null-excluding checks else Append_To (Args, @@ -8666,10 +8666,10 @@ package body Exp_Ch3 is Parameter_Type => New_Occurrence_Of (Standard_String, Loc))); end if; - -- Due to certain edge cases such as arrays with null excluding + -- Due to certain edge cases such as arrays with null-excluding -- components being built with the secondary stack it becomes necessary -- to add a formal to the Init_Proc which controls whether we raise - -- constraint errors on generated calls for internal object + -- Constraint_Errors on generated calls for internal object -- declarations. if Needs_Conditional_Null_Excluding_Check (Typ) then |