diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-01-13 19:08:58 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-01-13 19:08:58 +0100 |
| commit | 1cd6d5aa0563c31b257b6bd9a73c49f72f3638a6 (patch) | |
| tree | 1b4cc3ef6a8684e2005d80f1d19ac63f2268f1d4 /src/synth/synth-stmts.adb | |
| parent | 48507cf59e5490af0125e483ef77ad4d0dec4177 (diff) | |
| download | ghdl-1cd6d5aa0563c31b257b6bd9a73c49f72f3638a6.tar.gz ghdl-1cd6d5aa0563c31b257b6bd9a73c49f72f3638a6.tar.bz2 ghdl-1cd6d5aa0563c31b257b6bd9a73c49f72f3638a6.zip | |
synth: remove wbound field of bound_type.
Diffstat (limited to 'src/synth/synth-stmts.adb')
| -rw-r--r-- | src/synth/synth-stmts.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index d5917eb42..f2d12adb4 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -1095,12 +1095,10 @@ package body Synth.Stmts is when Iir_Kind_Choice_By_Range => declare Bnd : Discrete_Range_Type; - W : Width; - pragma Unreferenced (W); Is_In : Boolean; begin Synth_Discrete_Range - (C.Inst, Get_Choice_Range (Choice), Bnd, W); + (C.Inst, Get_Choice_Range (Choice), Bnd); case Bnd.Dir is when Iir_To => Is_In := Sel >= Bnd.Left and Sel <= Bnd.Right; |