diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-07-27 04:59:12 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-07-27 04:59:12 +0200 |
| commit | ed440ad3dfb3f56c939d386da2b1131e5506c57f (patch) | |
| tree | 2a883becba539e5427931eb2812550240764e9bc | |
| parent | 3c1f8dc37a554bc5a5d087a6ae8253dc6021c9ed (diff) | |
| download | ghdl-ed440ad3dfb3f56c939d386da2b1131e5506c57f.tar.gz ghdl-ed440ad3dfb3f56c939d386da2b1131e5506c57f.tar.bz2 ghdl-ed440ad3dfb3f56c939d386da2b1131e5506c57f.zip | |
netlists-expands: do not try to clean input of dyn_extract. Fix #2142
| -rw-r--r-- | src/synth/netlists-expands.adb | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/synth/netlists-expands.adb b/src/synth/netlists-expands.adb index 0f69dd93d..fd1c178fb 100644 --- a/src/synth/netlists-expands.adb +++ b/src/synth/netlists-expands.adb @@ -221,11 +221,7 @@ package body Netlists.Expands is -- Just return the value. Res := Get_Input_Net (Inst, 0); -- Disconnect the address - Addr := Disconnect_And_Get (Inst, 1); - if not Is_Connected (Addr) then - -- Should be a Const_X. - Remove_Instance (Get_Net_Parent (Addr)); - end if; + Disconnect (Get_Input (Inst, 1)); else -- 2. build extract gates Els := new Case_Element_Array (1 .. Nbr_Els); |