diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-11-29 07:53:01 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-11-29 07:53:01 +0100 |
| commit | 143d372c82f5f7a273904fef4d407384ba0abe85 (patch) | |
| tree | d721e819bdcc10b053fc0cceb454849e1bde87a4 | |
| parent | 05a0a9c919e70079e93a2608020f8a1042bb7dc9 (diff) | |
| download | ghdl-143d372c82f5f7a273904fef4d407384ba0abe85.tar.gz ghdl-143d372c82f5f7a273904fef4d407384ba0abe85.tar.bz2 ghdl-143d372c82f5f7a273904fef4d407384ba0abe85.zip | |
synth-inference: adjust guard. Fix #1041
| -rw-r--r-- | src/synth/synth-inference.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/synth/synth-inference.adb b/src/synth/synth-inference.adb index 4c4b95c5f..270c944fa 100644 --- a/src/synth/synth-inference.adb +++ b/src/synth/synth-inference.adb @@ -389,7 +389,9 @@ package body Synth.Inference is Last_Out := O; while Is_Connected (Last_Out) loop - if not Has_One_Connection (Last_Out) then + if not Has_One_Connection (Last_Out) + and then not Is_Const_Net (Last_Out) + then -- TODO. raise Internal_Error; end if; |