diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-27 06:03:05 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-27 06:03:05 +0200 |
| commit | 0d25d53d3c0983046b1348f154b0a86272bf3aeb (patch) | |
| tree | efa9fe2df2837e48ac8130ced0797b7a6dbabb4d | |
| parent | f461f63f6658496aac453fd30fd84c6e7a1399b2 (diff) | |
| download | ghdl-0d25d53d3c0983046b1348f154b0a86272bf3aeb.tar.gz ghdl-0d25d53d3c0983046b1348f154b0a86272bf3aeb.tar.bz2 ghdl-0d25d53d3c0983046b1348f154b0a86272bf3aeb.zip | |
netlists: ignore missing location on more const.
| -rw-r--r-- | src/synth/netlists-disp_vhdl.adb | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb index f61f8d32c..6faf3337f 100644 --- a/src/synth/netlists-disp_vhdl.adb +++ b/src/synth/netlists-disp_vhdl.adb @@ -1309,13 +1309,16 @@ package body Netlists.Disp_Vhdl is if Locations.Get_Location (Inst) = No_Location then case Get_Id (Inst) is when Id_Const_UB32 - | Id_Const_UL32 - | Id_Const_Z - | Id_Concat2 - | Id_Concat3 - | Id_Concat4 - | Id_Concatn - | Id_Extract => + | Id_Const_SB32 + | Id_Const_UL32 + | Id_Const_Bit + | Id_Const_Log + | Id_Const_Z + | Id_Concat2 + | Id_Concat3 + | Id_Concat4 + | Id_Concatn + | Id_Extract => null; when others => raise Internal_Error; |