diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-26 14:30:25 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-26 14:30:25 +0200 |
| commit | f7950055b6cb29d22fe2d7c7d7d0fe359a2e474b (patch) | |
| tree | 880e452ba4fc9d9927e8b3a5134e2eaa012ff953 /gcc/ada/namet.adb | |
| parent | 1c1289e7fb2fe9b3b3912c7effa1ce46c66160ad (diff) | |
| download | gcc-f7950055b6cb29d22fe2d7c7d7d0fe359a2e474b.zip gcc-f7950055b6cb29d22fe2d7c7d7d0fe359a2e474b.tar.gz gcc-f7950055b6cb29d22fe2d7c7d7d0fe359a2e474b.tar.bz2 | |
[multiple changes]
2010-10-26 Bob Duff <duff@adacore.com>
* namet.adb (Finalize): More cleanup of statistics printouts.
2010-10-26 Robert Dewar <dewar@adacore.com>
* ceinfo.adb: Minor reformatting.
From-SVN: r165949
Diffstat (limited to 'gcc/ada/namet.adb')
| -rw-r--r-- | gcc/ada/namet.adb | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/gcc/ada/namet.adb b/gcc/ada/namet.adb index fc8b4e2..69f7afe 100644 --- a/gcc/ada/namet.adb +++ b/gcc/ada/namet.adb @@ -142,6 +142,8 @@ package body Namet is -- 2 => in addition print number of entries per hash chain -- 3 => in addition print content of entries + Zero : constant Int := Character'Pos ('0'); + begin if not Debug_Flag_H then return; @@ -192,12 +194,11 @@ package body Namet is F (F'Last) := F (F'Last) + 1; end if; - N := Hash_Table (J); + if Verbosity >= 3 then + N := Hash_Table (J); + while N /= No_Name loop + S := Name_Entries.Table (N).Name_Chars_Index; - while N /= No_Name loop - S := Name_Entries.Table (N).Name_Chars_Index; - - if Verbosity >= 3 then Write_Str (" "); for J in 1 .. Name_Entries.Table (N).Name_Len loop @@ -205,10 +206,10 @@ package body Namet is end loop; Write_Eol; - end if; - N := Name_Entries.Table (N).Hash_Link; - end loop; + N := Name_Entries.Table (N).Hash_Link; + end loop; + end if; end; end if; end loop; @@ -244,8 +245,8 @@ package body Namet is Write_Int (Probes / 200); Write_Char ('.'); Probes := (Probes mod 200) / 2; - Write_Char (Character'Val (48 + Probes / 10)); - Write_Char (Character'Val (48 + Probes mod 10)); + Write_Char (Character'Val (Zero + Probes / 10)); + Write_Char (Character'Val (Zero + Probes mod 10)); Write_Eol; Write_Str ("Max_Chain_Length = "); |