From 002b07e7c32ef7cf7afc285f10c1ce17d77d70c8 Mon Sep 17 00:00:00 2001 From: Maxim Reznik Date: Fri, 12 May 2023 15:03:46 +0300 Subject: [PATCH] Fix compilation warnings. --- source/parser/implementation/markdown-implementation.ads | 3 ++- source/parser/markdown-annotations.ads | 2 +- testsuite/commonmark/prints.adb | 2 +- 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/source/parser/implementation/markdown-implementation.ads b/source/parser/implementation/markdown-implementation.ads index 83a958b..3a89fa8 100644 --- 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 index 8f4402c..49ca541 100644 --- 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 index 1a9f2e7..70a9238 100644 --- 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;