From 1be07b06ed166483bb6ac47eb2d5102c8e95b329 Mon Sep 17 00:00:00 2001 From: Vadim Godunko Date: Sun, 27 Jun 2021 06:36:22 +0000 Subject: [PATCH] Fix compilation error on GNAT CE 2021. --- design/forum/awfc/awfc-page_generators.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/design/forum/awfc/awfc-page_generators.adb b/design/forum/awfc/awfc-page_generators.adb index 8e74b07c5..4352673ce 100644 --- a/design/forum/awfc/awfc-page_generators.adb +++ b/design/forum/awfc/awfc-page_generators.adb @@ -8,7 +8,7 @@ -- -- ------------------------------------------------------------------------------ -- -- --- Copyright © 2015-2019, Vadim Godunko -- +-- Copyright © 2015-2021, Vadim Godunko -- -- All rights reserved. -- -- -- -- Redistribution and use in source and binary forms, with or without -- @@ -54,6 +54,8 @@ with XML.SAX.String_Output_Destinations; package body AWFC.Page_Generators is + use type League.Strings.Universal_String; + function "+" (Item : Wide_Wide_String) return League.Strings.Universal_String renames League.Strings.To_Universal_String; @@ -328,7 +330,6 @@ package body AWFC.Page_Generators is procedure Process_Head is use Constants; - use type League.Strings.Universal_String; Title_Item : XML_Stream_Element; Title_Text : League.Strings.Universal_String;