From 644d4ecd655d1f9892d0db709bde07015ef3424a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 7 Apr 2020 21:16:05 +0200
Subject: synth-values.ads: minor cleanup

---
 src/synth/synth-values.ads | 9 ---------
 1 file changed, 9 deletions(-)

(limited to 'src')

diff --git a/src/synth/synth-values.ads b/src/synth/synth-values.ads
index ffb554717..95f7f3f0d 100644
--- a/src/synth/synth-values.ads
+++ b/src/synth/synth-values.ads
@@ -189,15 +189,6 @@ package Synth.Values is
 
    type Value_Acc is access Value_Type;
 
-   type Value_Type_Array is array (Iir_Index32 range <>) of Value_Acc;
-
-   type Value_Array_Type (Ln : Iir_Index32) is record
-      --  Values are from left to right.  So V(1) is at index 'Left.
-      V : Value_Type_Array (1 .. Ln);
-   end record;
-
-   type Value_Array_Acc is access Value_Array_Type;
-
    type Heap_Index is new Uns32;
    Null_Heap_Index : constant Heap_Index := 0;
 
-- 
cgit v1.2.3