diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-05 01:06:25 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-05 01:06:25 +0000 |
| commit | 7f7b0e0287a4afca74419b1a03a72a36630cfaf8 (patch) | |
| tree | 2e1986a256c93952f2cdc37de5921659124ea2b8 /gcc/ada/exp_util.adb | |
| parent | f1907dd1e0f8b7014c1246acf699360510b88a00 (diff) | |
| download | gcc-7f7b0e0287a4afca74419b1a03a72a36630cfaf8.tar.gz | |
* exp_util.adb: Minor reformatting from last change
* errout.adb (Check_For_Warning): For a Raised_Constraint_Error node
which is a rewriting of an expression, traverse the original
expression to remove warnings that may have been posted on it.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47639 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_util.adb')
| -rw-r--r-- | gcc/ada/exp_util.adb | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 4cdd988aeeb..a0a4d01b1ed 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -2503,9 +2503,14 @@ package body Exp_Util is -- choose to pack the rest of the record. Lead to less efficient code, -- but safer vis-a-vis of back-end choices. + ----------------------------- + -- Partially_Packed_Record -- + ----------------------------- + function In_Partially_Packed_Record (Comp : Entity_Id) return Boolean is - Rec_Type : constant Entity_Id := Scope (Comp); + Rec_Type : constant Entity_Id := Scope (Comp); Prev_Comp : Entity_Id; + begin Prev_Comp := First_Entity (Rec_Type); while Present (Prev_Comp) loop @@ -2521,6 +2526,9 @@ package body Exp_Util is return False; end In_Partially_Packed_Record; + + -- Start of processing for Must_Be_Aligned + begin -- If object is strictly aligned, we can quit now |