From 10b54fd227d461f38fa068d86f6c16950362b8e0 Mon Sep 17 00:00:00 2001 From: onox Date: Fri, 12 Mar 2021 09:09:56 +0100 Subject: [PATCH] Fix compilation with older versions of GNAT (#710) --- src/alire/alire-conditional_trees-toml_load.adb | 2 +- src/alire/alire-toml_adapters.adb | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/src/alire/alire-conditional_trees-toml_load.adb b/src/alire/alire-conditional_trees-toml_load.adb index 3eb269d9..ec6769ae 100644 --- a/src/alire/alire-conditional_trees-toml_load.adb +++ b/src/alire/alire-conditional_trees-toml_load.adb @@ -159,7 +159,7 @@ package body Alire.Conditional_Trees.TOML_Load is From.Assert (From.Unwrap.Keys'Length = 1, "Expected a single entry in table, but got:" - & From.Unwrap.Keys'Length'Image); + & From.Unwrap.Keys'Length'Img); -- Get the key = ... and process it diff --git a/src/alire/alire-toml_adapters.adb b/src/alire/alire-toml_adapters.adb index 30f5778c..707c68b1 100644 --- a/src/alire/alire-toml_adapters.adb +++ b/src/alire/alire-toml_adapters.adb @@ -49,6 +49,7 @@ package body Alire.TOML_Adapters is ------------------- procedure Checked_Error (Queue : Key_Queue; Message : String) is + pragma Unreferenced (Queue); begin raise Alire.Checked_Error with Errors.Set (Message); end Checked_Error; -- 2.39.5