From d0af178e8f4a5387303727630a9a0690a1627ada Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 9 Apr 2020 22:03:47 +0200
Subject: synth: use memtyp in synth-static_oper.  Fix #1181

---
 src/synth/synth-expr.ads | 3 +++
 1 file changed, 3 insertions(+)

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

diff --git a/src/synth/synth-expr.ads b/src/synth/synth-expr.ads
index 3a7318550..d03f2f92c 100644
--- a/src/synth/synth-expr.ads
+++ b/src/synth/synth-expr.ads
@@ -41,6 +41,9 @@ package Synth.Expr is
    --  For a static value V, return the value.
    function Get_Static_Discrete (V : Valtyp) return Int64;
 
+   --  Return the memory (as a memtyp) of static value V.
+   function Get_Value_Memtyp (V : Valtyp) return Memtyp;
+
    --  Return True only if discrete value V is known to be positive or 0.
    --  False means either not positive or unknown.
    function Is_Positive (V : Valtyp) return Boolean;
-- 
cgit v1.2.3