We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents a1d09fe + 1d1fc92 commit dc04c7cCopy full SHA for dc04c7c
source/text/gnat/a-suvsau.adb
source/text/gnat/a-suvsau.ads
source/text/implementation/vss-strings-conversions.adb
@@ -6,7 +6,6 @@
6
7
pragma Warnings (Off, ".* is an internal GNAT unit");
8
with Ada.Strings.Unbounded.Aux;
9
-with Ada.Strings.Unbounded.VSS_Aux;
10
with Ada.Strings.Wide_Wide_Unbounded.Aux;
11
with Ada.Strings.Wide_Wide_Unbounded.VSS_Aux;
12
pragma Warnings (On, ".* is an internal GNAT unit");
@@ -245,7 +244,7 @@ package body VSS.Strings.Conversions is
245
244
begin
246
return Result : Ada.Strings.Unbounded.Unbounded_String do
247
if Item.Data.Size /= 0 then
248
- Ada.Strings.Unbounded.VSS_Aux.Set_String
+ Ada.Strings.Unbounded.Aux.Set_String
249
(Result,
250
Natural (Item.Data.Size),
251
Set'Access);
0 commit comments