diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-10-27 21:05:03 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-10-27 21:05:03 +0100 |
| commit | 21732824cfea2164654635beb5fb28ebd6b37c35 (patch) | |
| tree | 3621820e68a802dc8c1e571c81e5815fcf180429 /src/synth/netlists-butils.adb | |
| parent | 51f90bb57b068d7ed44ad0439bb710f8857abdb5 (diff) | |
| download | ghdl-21732824cfea2164654635beb5fb28ebd6b37c35.tar.gz ghdl-21732824cfea2164654635beb5fb28ebd6b37c35.tar.bz2 ghdl-21732824cfea2164654635beb5fb28ebd6b37c35.zip | |
netlists: change Loc parameter of synth_case.
Diffstat (limited to 'src/synth/netlists-butils.adb')
| -rw-r--r-- | src/synth/netlists-butils.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/synth/netlists-butils.adb b/src/synth/netlists-butils.adb index d26e1762c..7b74def6d 100644 --- a/src/synth/netlists-butils.adb +++ b/src/synth/netlists-butils.adb @@ -18,13 +18,15 @@ -- Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, -- MA 02110-1301, USA. +with Netlists.Locations; use Netlists.Locations; + package body Netlists.Butils is procedure Synth_Case (Ctxt : Context_Acc; Sel : Net; Els : in out Case_Element_Array; Default : Net; Res : out Net; - Sel_Loc : Syn_Src) + Sel_Loc : Location_Type) is Wd : constant Width := Get_Width (Sel); Mask : Uns64; |