diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-26 12:30:25 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-26 12:30:25 +0000 |
| commit | 1e608ec408bbbc7458f1bbbfee58cc5bd306338d (patch) | |
| tree | 880e452ba4fc9d9927e8b3a5134e2eaa012ff953 | |
| parent | b4964d07ef06beba136ea21471c11f0a996c442b (diff) | |
| download | gcc-1e608ec408bbbc7458f1bbbfee58cc5bd306338d.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165949 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/ada/ceinfo.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/namet.adb | 21 |
3 files changed, 22 insertions, 11 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 3d1b464c1b8..9366be1e3ae 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,11 @@ +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. + 2010-10-26 Javier Miranda <miranda@adacore.com> * sem_ch6.adb (Check_Overriding_Indicator, New_Overloaded_Entity): When diff --git a/gcc/ada/ceinfo.adb b/gcc/ada/ceinfo.adb index 47f134a37e2..44e7c67db94 100644 --- a/gcc/ada/ceinfo.adb +++ b/gcc/ada/ceinfo.adb @@ -133,6 +133,7 @@ begin Put_Line ("*** unknown field name " & Fieldnm & " at line " & Lineno); end if; + raise Err; end if; end if; @@ -161,7 +162,8 @@ begin Put_Line ("*** unknown field name " & Fieldnm & " at line " & Lineno); end if; - raise Err; + + raise Err; end if; end loop; diff --git a/gcc/ada/namet.adb b/gcc/ada/namet.adb index fc8b4e22dda..69f7afefa0e 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 = "); |