From 4030f025b21a9570f03137f5342b12aa2d200c4d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 25 Mar 2020 18:43:13 +0100
Subject: synth: introduce value_to_string.

---
 src/synth/synth-values.ads | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/synth/synth-values.ads')

diff --git a/src/synth/synth-values.ads b/src/synth/synth-values.ads
index 7c4ec8b7c..2bbf70810 100644
--- a/src/synth/synth-values.ads
+++ b/src/synth/synth-values.ads
@@ -357,6 +357,10 @@ package Synth.Values is
    --  Create a default initial value for TYP.
    function Create_Value_Default (Typ : Type_Acc) return Value_Acc;
 
+   --  Convert a value to a string.  The value must be a const_array of scalar,
+   --  which represent characters.
+   function Value_To_String (Val : Value_Acc) return String;
+
    procedure Init;
 
    --  Set by Init.
-- 
cgit v1.2.3