diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 11:45:39 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 11:45:39 +0100 |
commit | 196b199369f3e1f24c391891fcf9ab90de2a2739 (patch) | |
tree | 3b261d5a5445f547021de9cc6066149576f1ce31 /gcc/ada/prj.adb | |
parent | ffab1d071ca78b02490bb39ae784d1ad45f4eb04 (diff) | |
download | gcc-196b199369f3e1f24c391891fcf9ab90de2a2739.zip gcc-196b199369f3e1f24c391891fcf9ab90de2a2739.tar.gz gcc-196b199369f3e1f24c391891fcf9ab90de2a2739.tar.bz2 |
[multiple changes]
2009-11-30 Robert Dewar <dewar@adacore.com>
* osint.ads, prj.adb, prj.ads: Minor reformatting
* s-stchop.adb, s-taprop-vxworks.adb, s-taprop-tru64.adb,
s-taprop-vms.adb, s-taprop-linux.adb, s-taprop-solaris.adb,
s-strxdr.adb, s-taprop-irix.adb,
s-osinte-hpux-dce.adb, s-osinte-tru64.adb, s-taenca.adb,
s-taprop-hpux-dce.adb, s-stausa.adb, s-taprop-posix.adb: Minor code
reorganization (use conditional expressions).
2009-11-30 Bob Duff <duff@adacore.com>
* g-sttsne-locking.adb (Copy_Service_Entry): Complete previous change.
From-SVN: r154779
Diffstat (limited to 'gcc/ada/prj.adb')
-rw-r--r-- | gcc/ada/prj.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb index d097c1d..70a5737 100644 --- a/gcc/ada/prj.adb +++ b/gcc/ada/prj.adb @@ -1215,15 +1215,19 @@ package body Prj is ------------ function Length - (Table : Name_List_Table.Instance; List : Name_List_Index) return Natural + (Table : Name_List_Table.Instance; + List : Name_List_Index) return Natural is Count : Natural := 0; - Tmp : Name_List_Index := List; + Tmp : Name_List_Index; + begin + Tmp := List; while Tmp /= No_Name_List loop Count := Count + 1; Tmp := Table.Table (Tmp).Next; end loop; + return Count; end Length; |