Fix compilation warnings.

AdaCore · May 12, 2023 · 002b07e · 002b07e
1 parent fb67b7f
commit 002b07e
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/source/parser/implementation/markdown-implementation.ads b/source/parser/implementation/markdown-implementation.ads
@@ -30,7 +30,8 @@ package Markdown.Implementation is
 
    type Abstract_Block is abstract tagged limited record
       Counter : System.Atomic_Counters.Atomic_Counter;
-   end record;
+   end record
+     with No_Task_Parts;
 
    function Assigned (Value : access Abstract_Block'Class) return Boolean is
      (Value /= null);

diff --git a/source/parser/markdown-annotations.ads b/source/parser/markdown-annotations.ads
@@ -41,7 +41,7 @@ package Markdown.Annotations is
      (Positive, HTML_Attribute);
    --  A vector of HTML attributes
 
-   type Annotation (Kind : Annotation_Kind := Link) is record
+   type Annotation (Kind : Annotation_Kind := Annotation_Kind'First) is record
       From : VSS.Strings.Character_Index := 1;
       To   : VSS.Strings.Character_Count := 0;
       --  Corresponding segment in the plain text

diff --git a/testsuite/commonmark/prints.adb b/testsuite/commonmark/prints.adb
@@ -24,7 +24,7 @@ package body Prints is
 
    Tag : constant array
      (Markdown.Annotations.Emphasis .. Markdown.Annotations.Strong)
-       of VSS.Strings.Virtual_String := ("em", "strong");
+       of VSS.Strings.Virtual_String := ["em", "strong"];
 
    procedure Print_Annotated_Text
      (Writer : in out HTML_Writers.Writer;