From a6fe12b0a9a375e655945ff385810661d8bb494c Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Mon, 9 Aug 2021 19:06:18 -0400 Subject: [Ada] Info. gathering in preparation for more efficiency improvements gcc/ada/ * atree.adb: Gather and print statistics about frequency of getter and setter calls. * atree.ads (Print_Statistics): New procedure for printing statistics. * debug.adb: Document -gnatd.A switch. * gen_il-gen.adb: Generate code for statistics gathering. Choose the offset of Homonym early. Misc cleanup. Put more comments in the generated code. * gen_il-internals.ads (Unknown_Offset): New value to indicate that the offset has not yet been chosen. * gnat1drv.adb: Call Print_Statistics. * libgnat/s-imglli.ads: Minor comment fix. * output.ads (Write_Int_64): New procedure to write a 64-bit value. Needed for new statistics, and could come in handy elsewhere. * output.adb (Write_Int_64): Likewise. * sinfo.ads: Remove obsolete comment. The xtreeprs program no longer exists. * types.ads: New 64-bit types needed for new statistics. --- gcc/ada/output.ads | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/ada/output.ads') diff --git a/gcc/ada/output.ads b/gcc/ada/output.ads index 6a36533..5058d6d 100644 --- a/gcc/ada/output.ads +++ b/gcc/ada/output.ads @@ -124,6 +124,7 @@ package Output is -- Similar as Write_Eol, except that trailing spaces are not removed procedure Write_Int (Val : Int); + procedure Write_Int_64 (Val : Int_64); -- Write an integer value with no leading blanks or zeroes. Negative values -- are preceded by a minus sign). -- cgit v1.1