diff options
| author | Gary Dismukes <dismukes@adacore.com> | 2015-11-13 11:32:27 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-11-13 12:32:27 +0100 |
| commit | f7259dd4be3a6edba6035e2d7c580ee11ed16800 (patch) | |
| tree | d58a3ffe7d88df93ef2abc0c226c33670ed4daf1 | |
| parent | 90c7899af7796986364d5971e8d091ce2dbf2bb9 (diff) | |
| download | gcc-f7259dd4be3a6edba6035e2d7c580ee11ed16800.zip gcc-f7259dd4be3a6edba6035e2d7c580ee11ed16800.tar.gz gcc-f7259dd4be3a6edba6035e2d7c580ee11ed16800.tar.bz2 | |
exp_ch9.adb: Minor reformatting and typo fixes.
2015-11-13 Gary Dismukes <dismukes@adacore.com>
* exp_ch9.adb: Minor reformatting and typo fixes.
From-SVN: r230308
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/exp_ch9.adb | 6 |
2 files changed, 7 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 324d4dc..37a3fd3 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2015-11-13 Gary Dismukes <dismukes@adacore.com> + + * exp_ch9.adb: Minor reformatting and typo fixes. + 2015-11-13 Eric Botcazou <ebotcazou@adacore.com> * init.c [Darwin/arm64]: Move __gnat_sigtramp implementation to... diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index f985019..d31eb62 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -6307,11 +6307,11 @@ package body Exp_Ch9 is -- If so, barrier may not be properly synchronized. function Is_Pure_Barrier (N : Node_Id) return Traverse_Result; - -- Check whether N follow the Pure_Barriers restriction. Return OK if + -- Check whether N follows the Pure_Barriers restriction. Return OK if -- so. function Is_Simple_Barrier_Name (N : Node_Id) return Boolean; - -- Check wether entity name N denotes a component of the protected + -- Check whether entity name N denotes a component of the protected -- object. This is used to check the Simple_Barrier restriction. ---------------------- @@ -6375,7 +6375,7 @@ package body Exp_Ch9 is return Scope (Entity (N)) = Current_Scope; -- Check for case of _object.all.field (note that the explicit - -- dereference gets inserted by analyze/expand of _object.field) + -- dereference gets inserted by analyze/expand of _object.field). else Renamed := Renamed_Object (Entity (N)); |