diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-05-09 11:21:33 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-05-09 16:31:19 +0200 |
commit | c9d2cccb38b985783108f187398a0a0af9f6ab62 (patch) | |
tree | 684fdf84839136d4f94609392c847bfb4eb56f23 /src/synth/netlists-inference.adb | |
parent | 1a65ac6bbbaf6cdaf1ea93c0c46f2e97e12e9dcc (diff) | |
download | ghdl-c9d2cccb38b985783108f187398a0a0af9f6ab62.tar.gz ghdl-c9d2cccb38b985783108f187398a0a0af9f6ab62.tar.bz2 ghdl-c9d2cccb38b985783108f187398a0a0af9f6ab62.zip |
synth-stmts: use pmux to implement case statements.
Diffstat (limited to 'src/synth/netlists-inference.adb')
-rw-r--r-- | src/synth/netlists-inference.adb | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/synth/netlists-inference.adb b/src/synth/netlists-inference.adb index 7016f1f57..6ba244888 100644 --- a/src/synth/netlists-inference.adb +++ b/src/synth/netlists-inference.adb @@ -709,9 +709,13 @@ package body Netlists.Inference is Inp := Get_First_Sink (N); while Inp /= No_Input loop Inst := Get_Input_Parent (Inp); - if Get_Id (Inst) not in Mux_Module_Id then - return False; - end if; + case Get_Id (Inst) is + when Mux_Module_Id + | Id_Pmux => + null; + when others => + return False; + end case; -- Add to T (if not already). Get (T, Inst, Inst); |