From: Bob Duff Date: Fri, 13 Dec 2019 09:03:45 +0000 (+0000) Subject: [Ada] Rtsfind: minor comment fixes X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=90366d65738e17da9998dc5618d6e970b6ee3b48;p=gcc.git [Ada] Rtsfind: minor comment fixes 2019-12-13 Bob Duff gcc/ada/ * rtsfind.ads: Minor comment fix. From-SVN: r279345 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 4cd789f33fa..5f2b5026f00 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2019-12-13 Bob Duff + + * rtsfind.ads: Minor comment fix. + 2019-12-13 Gary Dismukes * sem_util.adb (Scope_Within): For the case of checking for a diff --git a/gcc/ada/rtsfind.ads b/gcc/ada/rtsfind.ads index 2467f85666b..07b806940ad 100644 --- a/gcc/ada/rtsfind.ads +++ b/gcc/ada/rtsfind.ads @@ -36,59 +36,10 @@ package Rtsfind is -- Runtime Unit Table -- ------------------------ - -- The following type includes an enumeration entry for each runtime unit. - -- The enumeration literal represents the fully qualified name of the unit, - -- as follows: - - -- Names of the form Ada_xxx are first level children of Ada, whose name - -- is Ada.xxx. For example, the name Ada_Tags refers to package Ada.Tags. - - -- Names of the form Ada_Calendar_xxx are second level children of - -- Ada.Calendar. This is part of a temporary implementation of delays; - -- eventually, packages implementing delays will be found relative to - -- the package that declares the time type. - - -- Names of the form Ada_Interrupts_xxx are second level children of - -- Ada.Interrupts. This is needed for Ada.Interrupts.Names which is used - -- by pragma Interrupt_State. - - -- Names of the form Ada_Real_Time_xxx are second level children of - -- Ada.Real_Time. - - -- Names of the form Ada_Streams_xxx are second level children - -- of Ada.Streams. - - -- Names of the form Ada_Strings_xxx are second level children - -- of Ada.Strings. - - -- Names of the form Ada_Text_IO_xxx are second level children of - -- Ada.Text_IO. - - -- Names of the form Ada_Wide_Text_IO_xxx are second level children of - -- Ada.Wide_Text_IO. - - -- Names of the form Ada_Wide_Wide_Text_IO_xxx are second level children - -- of Ada.Wide_Wide_Text_IO. - - -- Names of the form Interfaces_xxx are first level children of - -- Interfaces. For example, the name Interfaces_Packed_Decimal refers to - -- package Interfaces.Packed_Decimal. - - -- Names of the form System_xxx are first level children of System, whose - -- name is System.xxx. For example, the name System_Str_Concat refers to - -- package System.Str_Concat. - - -- Names of the form System_Storage_Pools_xxx are second level children - -- of the package System.Storage_Pools. - - -- Names of the form System_Strings_xxx are second level children of the - -- package System.Strings. - - -- Names of the form System_Tasking_xxx are second level children of the - -- package System.Tasking. For example, System_Tasking_Stages refers to - -- the package System.Tasking.Stages. - - -- Other names stand for themselves (e.g. System for package System) + -- The following type includes an enumeration literal for each runtime + -- unit. The enumeration literal is the full expanded name of the unit + -- with "." replaced by "_". For example, the enumeration literal for + -- Ada.Interrupts.Names is Ada_Interrupts_Names -- This list can contain both subprogram and package unit names. For -- packages, the accessible entities in the package are separately listed @@ -100,13 +51,13 @@ package Rtsfind is -- seem worthwhile, since the implementation controls the set of units that -- are referenced, and this restriction is easily met. - -- IMPORTANT NOTE: the specs of packages and procedures with'ed using this - -- mechanism may not contain use clauses. This is because these subprograms - -- are compiled in the current visibility environment, and it would be too - -- much trouble to establish a clean environment for the compilation. The - -- presence of extraneous visible stuff has no effect on the compilation - -- except in the presence of use clauses (which might result in unexpected - -- ambiguities). + -- IMPORTANT NOTE: the specs of packages and procedures with'ed using + -- this mechanism must not contain use clauses. This is because these + -- subprograms are compiled in the current visibility environment, and it + -- would be too much trouble to establish a clean environment for the + -- compilation. The presence of extraneous visible stuff has no effect on + -- the compilation except in the presence of use clauses, which might + -- result in unexpected ambiguities. type RTU_Id is (