diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-05-23 16:33:24 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-23 16:33:24 +0200 |
| commit | 651a2cb04b6c24cc07179449faa0b46e9f75dac6 (patch) | |
| tree | a61cda601fe604f840980acf7f85bdb53c2765f0 /gcc | |
| parent | 4dff0aaf61963447ecdcc453d4058dc29ae61c87 (diff) | |
| download | gcc-651a2cb04b6c24cc07179449faa0b46e9f75dac6.zip gcc-651a2cb04b6c24cc07179449faa0b46e9f75dac6.tar.gz gcc-651a2cb04b6c24cc07179449faa0b46e9f75dac6.tar.bz2 | |
exp_dist.adb: Minor reformatting
2008-05-23 Robert Dewar <dewar@adacore.com>
* exp_dist.adb: Minor reformatting
From-SVN: r135810
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_dist.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb index a409fe4..47e193f 100644 --- a/gcc/ada/exp_dist.adb +++ b/gcc/ada/exp_dist.adb @@ -3094,6 +3094,7 @@ package body Exp_Dist is declare Zero_Statements : List_Id; -- Statements executed when a zero value is received + begin if Can_Never_Be_Null (RACW_Type) then Zero_Statements := New_List ( @@ -11364,6 +11365,7 @@ package body Exp_Dist is is Stub_Elements : constant Stub_Structure := Stubs_Table.Get (Full_View); + begin -- For an RACW encountered before the freeze point of its designated -- type, the stub type is generated at the point of the RACW declaration @@ -11378,6 +11380,7 @@ package body Exp_Dist is Saved_Scope : constant Entity_Id := Current_Scope; Stubs_Scope : constant Entity_Id := Scope (Stub_Elements.Stub_Type); + begin if Current_Scope /= Stubs_Scope then Push_Scope (Stubs_Scope); |