diff options
| author | Robert Dewar <dewar@adacore.com> | 2010-06-17 09:57:32 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-17 11:57:32 +0200 |
| commit | 8a95f4e86791d06494bd5fc8b0da29b9651530fb (patch) | |
| tree | ffaf92cdf6f090cddfad2f2f57c2f05d9ad2a9c8 /gcc/ada/sem_intr.adb | |
| parent | e1b871e93c547d7fe50bc5c30fb18c1bd3ba16da (diff) | |
| download | gcc-8a95f4e86791d06494bd5fc8b0da29b9651530fb.zip gcc-8a95f4e86791d06494bd5fc8b0da29b9651530fb.tar.gz gcc-8a95f4e86791d06494bd5fc8b0da29b9651530fb.tar.bz2 | |
sem_intr.adb, [...]: Minor reformatting.
2010-06-17 Robert Dewar <dewar@adacore.com>
* sem_intr.adb, sem_prag.adb, sem_res.adb, sem_type.adb, sem_util.adb,
sem_warn.adb, sem_eval.adb: Minor reformatting. Use Ekind_In.
(Set_Slice_Subtype): Explicitly freeze the slice's itype at the point
where the slice's actions are inserted.
(Decompose_Expr): Account for possible rewriting of slice bounds
resulting from side effects suppression caused by the above freezing,
so that folding of bounds is preserved by such rewriting.
2010-06-17 Robert Dewar <dewar@adacore.com>
* einfo.ads, einfo.adb (Get_Record_Representation_Clause): New function.
* freeze.adb (Freeze_Record_Type): Add call to
Check_Record_Representation_Clause.
* sem_ch13.adb (Check_Record_Representation_Clause): New function
(Analyze_Record_Representation_Clause): Split out overlap code into this
new function.
(Check_Component_Overlap): Moved inside
Check_Record_Representation_Clause.
* sem_ch13.ads (Check_Record_Representation_Clause): New function.
From-SVN: r160892
Diffstat (limited to 'gcc/ada/sem_intr.adb')
| -rw-r--r-- | gcc/ada/sem_intr.adb | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/gcc/ada/sem_intr.adb b/gcc/ada/sem_intr.adb index 42136b1..2fb0999 100644 --- a/gcc/ada/sem_intr.adb +++ b/gcc/ada/sem_intr.adb @@ -73,9 +73,7 @@ package body Sem_Intr is procedure Check_Exception_Function (E : Entity_Id; N : Node_Id) is begin - if Ekind (E) /= E_Function - and then Ekind (E) /= E_Generic_Function - then + if not Ekind_In (E, E_Function, E_Generic_Function) then Errint ("intrinsic exception subprogram must be a function", E, N); @@ -374,9 +372,7 @@ package body Sem_Intr is Ptyp2 : Node_Id; begin - if Ekind (E) /= E_Function - and then Ekind (E) /= E_Generic_Function - then + if not Ekind_In (E, E_Function, E_Generic_Function) then Errint ("intrinsic shift subprogram must be a function", E, N); return; end if; |