synth: introduce value_to_string.

1 files changed, 10 insertions, 0 deletions

diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb
index 3d4459be3..f2a9d7033 100644
--- a/src/synth/synth-values.adb
+++ b/src/synth/synth-values.adb
@@ -943,6 +943,16 @@ package body Synth.Values is
       end case;
    end Create_Value_Default;
 
+   function Value_To_String (Val : Value_Acc) return String
+   is
+      Str : String (1 .. Natural (Val.Arr.Len));
+   begin
+      for I in Val.Arr.V'Range loop
+         Str (Natural (I)) := Character'Val (Val.Arr.V (I).Scal);
+      end loop;
+      return Str;
+   end Value_To_String;
+
    procedure Init is
    begin
       Instance_Pool := Global_Pool'Access;