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/einfo.ads | |
| 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/einfo.ads')
| -rw-r--r-- | gcc/ada/einfo.ads | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads index d9ff8c0..99c7141 100644 --- a/gcc/ada/einfo.ads +++ b/gcc/ada/einfo.ads @@ -6767,6 +6767,11 @@ package Einfo is -- value returned is the N_Attribute_Definition_Clause node, otherwise -- Empty is returned. + function Get_Record_Representation_Clause (E : Entity_Id) return Node_Id; + -- Searches the Rep_Item chain for a given entyt E, for a record + -- representation clause, and if found, returns it. Returns Empty + -- if no such clause is found. + function Get_Rep_Pragma (E : Entity_Id; Nam : Name_Id) return Node_Id; -- Searches the Rep_Item chain for the given entity E, for an instance -- a representation pragma with the given name Nam. If found then the |