Merge branch 'topic/vadim/syntax_sugar' into 'master'

Use function instead of constant. See merge request eng/ide/VSS!319
AdaCore · Feb 27, 2024 · 50318b0 · 50318b0
2 parents d1d86b1 + c48ba3b
commit 50318b0
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/source/text/vss-string_vectors.ads b/source/text/vss-string_vectors.ads
@@ -27,7 +27,7 @@ package VSS.String_Vectors is
        Constant_Indexing => Element,
        Default_Iterator  => Iterate,
        Iterator_Element  => VSS.Strings.Virtual_String,
-       Aggregate         => (Empty       => Empty_Virtual_String_Vector,
+       Aggregate         => (Empty       => Empty_Syntax_Sugar,
                              Add_Unnamed => Append_Syntax_Sugar),
        Preelaborable_Initialization;
 
@@ -164,6 +164,10 @@ package VSS.String_Vectors is
 
    --  Syntax sugar for Ada 2022 aggregates
 
+   function Empty_Syntax_Sugar return Virtual_String_Vector is
+     (Empty_Virtual_String_Vector);
+   --  Return an empty string vector
+
    procedure Append_Syntax_Sugar
      (Self : in out Virtual_String_Vector;
       Item : VSS.Strings.Virtual_String);