diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-10-14 13:42:26 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-10-14 13:42:26 +0000 |
| commit | 52c7b7c00fb3421a15dc03d87a6c71e002066c33 (patch) | |
| tree | 75a5dc69e760fdf43c1ecb566f7d668ba3f3c0b6 /gcc/ada/sem_util.adb | |
| parent | 4b143f44e24f4d9d8152bac1fb9e6e6313733a03 (diff) | |
| download | gcc-52c7b7c00fb3421a15dc03d87a6c71e002066c33.tar.gz | |
2013-10-14 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb: Minor fix to error message.
* a-exexpr-gcc.adb, sem_util.adb, sem_case.adb, exp_ch11.adb: Minor
reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@203554 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_util.adb')
| -rw-r--r-- | gcc/ada/sem_util.adb | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index add58bf5aeb..b28c7a2f0c5 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -10219,14 +10219,14 @@ package body Sem_Util is S : Entity_Id; begin - if Is_Type (E) then - -- E is the current instance of a type. + -- E is the current instance of a type + if Is_Type (E) then Prot := E; - else - -- E is an object. + -- E is an object + else Prot := Scope (E); end if; @@ -10353,9 +10353,8 @@ package body Sem_Util is or else K = E_In_Out_Parameter or else K = E_Generic_In_Out_Parameter - -- Current instance of type. If this is a protected type, check - -- that we are not within the body of one of its protected - -- functions. + -- Current instance of type. If this is a protected type, check + -- we are not within the body of one of its protected functions. or else (Is_Type (E) and then In_Open_Scopes (E) |