From aeb47655ddfed9d3fd85c4986d21a60f83b9a8c6 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 2 May 2020 07:59:09 +0200
Subject: synth: use static values for control nets when possible.

---
 src/synth/synth-values.adb | 19 -------------------
 1 file changed, 19 deletions(-)

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

diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb
index 995f41d55..ed042c849 100644
--- a/src/synth/synth-values.adb
+++ b/src/synth/synth-values.adb
@@ -89,25 +89,6 @@ package body Synth.Values is
       return (V.Typ, Strip_Alias_Const (V.Val));
    end Strip_Alias_Const;
 
-   function Is_Equal (L, R : Memtyp) return Boolean is
-   begin
-      if L = R then
-         return True;
-      end if;
-
-      if L.Typ.Sz /= R.Typ.Sz then
-         return False;
-      end if;
-
-      --  FIXME: not correct for records, not correct for floats!
-      for I in 1 .. L.Typ.Sz loop
-         if L.Mem (I - 1) /= R.Mem (I - 1) then
-            return False;
-         end if;
-      end loop;
-      return True;
-   end Is_Equal;
-
    function Is_Equal (L, R : Valtyp) return Boolean is
    begin
       return Is_Equal (Get_Memtyp (L), Get_Memtyp (R));
-- 
cgit v1.2.3