diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 08:30:02 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 08:30:02 +0000 |
| commit | 789386c83faa43c5d48a73d1bc0c923ecbb4a947 (patch) | |
| tree | b37f561a1d65381b07d1712d305ec591111c2673 /gcc/ada/a-cbmutr.adb | |
| parent | 1cde4f265e4b44ef81c0cc6287e9ac76de4a2177 (diff) | |
| download | gcc-789386c83faa43c5d48a73d1bc0c923ecbb4a947.tar.gz | |
2011-08-29 Yannick Moy <moy@adacore.com>
* sem_ch3.adb (Array_Type_Declaration): Insert a subtype declaration
for every index type and component type that is not a subtype_mark.
(Process_Subtype): Set Etype of subtype.
2011-08-29 Robert Dewar <dewar@adacore.com>
* a-cbmutr.adb, a-cimutr.adb, a-comutr.adb, prj-nmsc.adb: Minor code
reorganization. Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178159 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-cbmutr.adb')
| -rw-r--r-- | gcc/ada/a-cbmutr.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/a-cbmutr.adb b/gcc/ada/a-cbmutr.adb index cc569e83673..738097ff468 100644 --- a/gcc/ada/a-cbmutr.adb +++ b/gcc/ada/a-cbmutr.adb @@ -435,14 +435,14 @@ package body Ada.Containers.Bounded_Multiway_Trees is begin if Parent = No_Element then return 0; - end if; - if Parent.Container.Count = 0 then + elsif Parent.Container.Count = 0 then pragma Assert (Is_Root (Parent)); return 0; - end if; - return Child_Count (Parent.Container.all, Parent.Node); + else + return Child_Count (Parent.Container.all, Parent.Node); + end if; end Child_Count; function Child_Count |