diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-23 14:33:24 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-23 14:33:24 +0000 |
| commit | eb5c0cf5403f0c2f3df99c1ad06ea31b53d044b9 (patch) | |
| tree | a61cda601fe604f840980acf7f85bdb53c2765f0 /gcc/ada/exp_dist.adb | |
| parent | bcd6aed731a7dab804eaa7e819ca7edc7b48b7b9 (diff) | |
| download | gcc-eb5c0cf5403f0c2f3df99c1ad06ea31b53d044b9.tar.gz | |
2008-05-23 Robert Dewar <dewar@adacore.com>
* exp_dist.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135810 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_dist.adb')
| -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 a409fe44191..47e193fb8bc 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); |