diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-12-19 09:03:45 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-12-19 09:03:45 +0000 |
| commit | b11e16d5eacc6bee8aa7ea50be5f2b3f95581b4b (patch) | |
| tree | 8029b8a046840a43572ac9c006c6c8f55d2b096e /gcc/ada/sem_ch3.adb | |
| parent | f0620a215a807d40102f6165c6002a94b4bc283e (diff) | |
| download | gcc-b11e16d5eacc6bee8aa7ea50be5f2b3f95581b4b.tar.gz | |
2011-12-19 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk rev 182471 using svnmerge
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@182472 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_ch3.adb')
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 6c5a05573d8..9070b4505e9 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -56,6 +56,7 @@ with Sem_Ch6; use Sem_Ch6; with Sem_Ch7; use Sem_Ch7; with Sem_Ch8; use Sem_Ch8; with Sem_Ch13; use Sem_Ch13; +with Sem_Dim; use Sem_Dim; with Sem_Disp; use Sem_Disp; with Sem_Dist; use Sem_Dist; with Sem_Elim; use Sem_Elim; @@ -2036,6 +2037,7 @@ package body Sem_Ch3 is if Has_Aspects (N) then Analyze_Aspect_Specifications (N, Id); end if; + Analyze_Dimension (N); end Analyze_Component_Declaration; -------------------------- @@ -2089,6 +2091,11 @@ package body Sem_Ch3 is -- Complete analysis of declaration Analyze (D); + + -- Removal of the dimension in the expression for object & component + -- declaration. + + Remove_Dimension_In_Declaration (D); Next_Node := Next (D); if No (Freeze_From) then @@ -3773,6 +3780,7 @@ package body Sem_Ch3 is if Has_Aspects (N) then Analyze_Aspect_Specifications (N, Id); end if; + Analyze_Dimension (N); end Analyze_Object_Declaration; --------------------------- @@ -4571,6 +4579,7 @@ package body Sem_Ch3 is if Has_Aspects (N) then Analyze_Aspect_Specifications (N, Id); end if; + Analyze_Dimension (N); end Analyze_Subtype_Declaration; -------------------------------- |