diff options
Diffstat (limited to 'gcc/ada/libgnat')
-rw-r--r-- | gcc/ada/libgnat/a-stoufo.adb | 20 | ||||
-rw-r--r-- | gcc/ada/libgnat/a-stoufo.ads | 10 |
2 files changed, 15 insertions, 15 deletions
diff --git a/gcc/ada/libgnat/a-stoufo.adb b/gcc/ada/libgnat/a-stoufo.adb index 0cbcd56..3b99cf7 100644 --- a/gcc/ada/libgnat/a-stoufo.adb +++ b/gcc/ada/libgnat/a-stoufo.adb @@ -38,7 +38,7 @@ package body Ada.Strings.Text_Output.Formatting is procedure Put (S : in out Sink'Class; T : Template; - X1, X2, X3, X4, X5, X6 : UTF_8 := "") + X1, X2, X3, X4, X5, X6 : UTF_8_Lines := "") is J : Positive := T'First; Used : array (1 .. 6) of Boolean := (others => False); @@ -62,22 +62,22 @@ package body Ada.Strings.Text_Output.Formatting is when '1' => Used (1) := True; - Put_UTF_8 (S, X1); + Put_UTF_8_Lines (S, X1); when '2' => Used (2) := True; - Put_UTF_8 (S, X2); + Put_UTF_8_Lines (S, X2); when '3' => Used (3) := True; - Put_UTF_8 (S, X3); + Put_UTF_8_Lines (S, X3); when '4' => Used (4) := True; - Put_UTF_8 (S, X4); + Put_UTF_8_Lines (S, X4); when '5' => Used (5) := True; - Put_UTF_8 (S, X5); + Put_UTF_8_Lines (S, X5); when '6' => Used (6) := True; - Put_UTF_8 (S, X6); + Put_UTF_8_Lines (S, X6); when others => raise Program_Error; @@ -113,21 +113,21 @@ package body Ada.Strings.Text_Output.Formatting is procedure Put (T : Template; - X1, X2, X3, X4, X5, X6 : UTF_8 := "") is + X1, X2, X3, X4, X5, X6 : UTF_8_Lines := "") is begin Put (Files.Standard_Output.all, T, X1, X2, X3, X4, X5, X6); end Put; procedure Err (T : Template; - X1, X2, X3, X4, X5, X6 : UTF_8 := "") is + X1, X2, X3, X4, X5, X6 : UTF_8_Lines := "") is begin Put (Files.Standard_Error.all, T, X1, X2, X3, X4, X5, X6); end Err; function Format (T : Template; - X1, X2, X3, X4, X5, X6 : UTF_8 := "") + X1, X2, X3, X4, X5, X6 : UTF_8_Lines := "") return UTF_8_Lines is Buf : Buffer := New_Buffer; diff --git a/gcc/ada/libgnat/a-stoufo.ads b/gcc/ada/libgnat/a-stoufo.ads index 3636ae6..dd80dff 100644 --- a/gcc/ada/libgnat/a-stoufo.ads +++ b/gcc/ada/libgnat/a-stoufo.ads @@ -43,7 +43,7 @@ package Ada.Strings.Text_Output.Formatting is type Template is new UTF_8; procedure Put (S : in out Sink'Class; T : Template; - X1, X2, X3, X4, X5, X6 : UTF_8 := ""); + X1, X2, X3, X4, X5, X6 : UTF_8_Lines := ""); -- Prints the template as is, except for the following escape sequences: -- "\n" is end of line. -- "\i" indents by the default amount, and "\o" outdents. @@ -51,23 +51,23 @@ package Ada.Strings.Text_Output.Formatting is -- "\1" is replaced with X1, and similarly for 2, 3, .... -- "\\" is "\". - -- Note that the template is not type UTF_8, to avoid this sort of thing: + -- Note that the template is not type String, to avoid this sort of thing: -- -- https://xkcd.com/327/ procedure Put (T : Template; - X1, X2, X3, X4, X5, X6 : UTF_8 := ""); + X1, X2, X3, X4, X5, X6 : UTF_8_Lines := ""); -- Sends to standard output procedure Err (T : Template; - X1, X2, X3, X4, X5, X6 : UTF_8 := ""); + X1, X2, X3, X4, X5, X6 : UTF_8_Lines := ""); -- Sends to standard error function Format (T : Template; - X1, X2, X3, X4, X5, X6 : UTF_8 := "") + X1, X2, X3, X4, X5, X6 : UTF_8_Lines := "") return UTF_8_Lines; -- Returns a UTF-8-encoded String |