diff options
Diffstat (limited to 'gcc/ada/lib-util.ads')
| -rw-r--r-- | gcc/ada/lib-util.ads | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/ada/lib-util.ads b/gcc/ada/lib-util.ads index a8326ac..b34bd27 100644 --- a/gcc/ada/lib-util.ads +++ b/gcc/ada/lib-util.ads @@ -23,6 +23,8 @@ -- -- ------------------------------------------------------------------------------ +with Uintp; use Uintp; + package Lib.Util is -- This package implements a buffered write of library information @@ -52,6 +54,10 @@ package Lib.Util is procedure Write_Info_Nat (N : Nat); -- Adds image of N to Info_Buffer with no leading or trailing blanks + procedure Write_Info_Int (N : Int); + -- Adds image of N to Info_Buffer with no leading or trailing blanks. A + -- minus sign is prepended for negative values. + procedure Write_Info_Name (Name : Name_Id); procedure Write_Info_Name (Name : File_Name_Type); procedure Write_Info_Name (Name : Unit_Name_Type); @@ -59,6 +65,9 @@ package Lib.Util is -- name is written literally from the names table entry without modifying -- the case, using simply Get_Name_String. + procedure Write_Info_Slit (S : String_Id); + -- Write string literal value in format required for L/N lines in ali file + procedure Write_Info_Str (Val : String); -- Adds characters of Val to Info_Buffer surrounded by quotes @@ -70,4 +79,8 @@ package Lib.Util is procedure Write_Info_Terminate; -- Terminate current info line and output lines built in Info_Buffer + procedure Write_Info_Uint (N : Uint); + -- Adds decimal image of N to Info_Buffer with no leading or trailing + -- blanks. A minus sign is prepended for negative values. + end Lib.Util; |