From 8f1870143c4020196c7610e590079ee8b9b2f7d3 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 12 Sep 2019 05:11:25 +0200 Subject: synth: extract synth-oper from synth-expr --- src/synth/synth-values.ads | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/synth/synth-values.ads') diff --git a/src/synth/synth-values.ads b/src/synth/synth-values.ads index e8f20d9f8..d3af338ab 100644 --- a/src/synth/synth-values.ads +++ b/src/synth/synth-values.ads @@ -240,6 +240,9 @@ package Synth.Values is function Is_Bounded_Type (Typ : Type_Acc) return Boolean; + function Is_Const (Val : Value_Acc) return Boolean; + function Is_Float (Val : Value_Acc) return Boolean; + function Is_Equal (L, R : Value_Acc) return Boolean; -- Create a Value_Net. -- cgit v1.2.3