+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
-- 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;
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
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;
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 = ");