diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-03-22 08:23:36 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-03-22 08:23:36 +0100 |
| commit | 283a032e58d32a72873c647e017da3760bdedb53 (patch) | |
| tree | 332b757b61753d9c43ddf191b26c67b4e9e1a727 /src/synth/netlists.adb | |
| parent | e3bac06b441a7e5b95b0a0f662c5e0fce8f57d3c (diff) | |
| download | ghdl-283a032e58d32a72873c647e017da3760bdedb53.tar.gz ghdl-283a032e58d32a72873c647e017da3760bdedb53.tar.bz2 ghdl-283a032e58d32a72873c647e017da3760bdedb53.zip | |
synth: handle reuse of inferred dff in the same process.
Fix tgingold/ghdlsynth-beta#93
Diffstat (limited to 'src/synth/netlists.adb')
| -rw-r--r-- | src/synth/netlists.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/synth/netlists.adb b/src/synth/netlists.adb index 7207d6ac0..545a4df16 100644 --- a/src/synth/netlists.adb +++ b/src/synth/netlists.adb @@ -525,6 +525,7 @@ package body Netlists is is pragma Assert (Is_Valid (Inst)); begin + pragma Assert (not Check_Connected (Inst)); Instances_Table.Table (Inst).Klass := Free_Module; end Free_Instance; |