synth: remove unused wlen field of bound_type.

4 files changed, 1 insertions, 10 deletions

diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index f0ba02b40..d5a309291 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -584,7 +584,6 @@ package body Synth.Expr is
          Len := 0;
       end if;
       return (Dir => Rng.Dir,
-              Wlen => Width (Clog2 (Uns64 (Len))),
               Wbounds => W,
               Left => Int32 (Rng.Left), Right => Int32 (Rng.Right),
               Len => Uns32 (Len));
@@ -1237,7 +1236,6 @@ package body Synth.Expr is
                when Iir_To =>
                   Len := Uns32 (R - L + 1);
                   Res_Bnd := (Dir => Iir_To,
-                              Wlen => Len,
                               Wbounds => Pfx_Bnd.Wbounds,
                               Len => Len,
                               Left => Int32 (L),
@@ -1246,7 +1244,6 @@ package body Synth.Expr is
                when Iir_Downto =>
                   Len := Uns32 (L - R + 1);
                   Res_Bnd := (Dir => Iir_Downto,
-                              Wlen => Len,
                               Wbounds => Pfx_Bnd.Wbounds,
                               Len => Len,
                               Left => Int32 (L),
diff --git a/src/synth/synth-oper.adb b/src/synth/synth-oper.adb
index 13afb0ea8..92508f36d 100644
--- a/src/synth/synth-oper.adb
+++ b/src/synth/synth-oper.adb
@@ -21,7 +21,6 @@
 with Ada.Unchecked_Conversion;
 with Types; use Types;
 with Types_Utils; use Types_Utils;
-with Mutils; use Mutils;
 with Vhdl.Ieee.Std_Logic_1164; use Vhdl.Ieee.Std_Logic_1164;
 with Vhdl.Std_Package;
 with Vhdl.Errors; use Vhdl.Errors;
@@ -160,7 +159,6 @@ package body Synth.Oper is
               Right => 0,
               Dir => Index_Bounds.Dir,
               Wbounds => W,
-              Wlen => Width (Clog2 (Uns64 (Len))),
               Len => Uns32 (Len));
 
       if Len = 0 then
diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb
index 22bbd4fba..30695afa2 100644
--- a/src/synth/synth-values.adb
+++ b/src/synth/synth-values.adb
@@ -231,7 +231,6 @@ package body Synth.Values is
       W : constant Width := Uns32 (Clog2 (Uns64 (Len)));
    begin
       return Create_Vector_Type ((Dir => Iir_Downto,
-                                  Wlen => W,
                                   Wbounds => W,
                                   Left => Int32 (Len) - 1,
                                   Right => 0,
diff --git a/src/synth/synth-values.ads b/src/synth/synth-values.ads
index 28661d41a..5fc406e9e 100644
--- a/src/synth/synth-values.ads
+++ b/src/synth/synth-values.ads
@@ -52,13 +52,10 @@ package Synth.Values is
       Right : Int32;
       Len : Width;
 
-      --  Width of length.  This is the number of address bits.
-      Wlen : Width;
-
       --  Width of bounds.  This is the precision used to compute the
       --  address.
       --  If bounds are 1 to 128 (so left = 1, dir = to, right = 128),
-      --  Wlen = 7 and Wbounds = 8.
+      --  Wbounds = 8.
       Wbounds : Width;
    end record;