diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-11-06 07:40:34 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-11-06 07:40:34 +0100 |
| commit | 3819515f724ed2ae81a1aa7b467359e26a3fb9e7 (patch) | |
| tree | 3aafe4ba917e91b1aba48084b3c1464e3caa992f /src/synth/netlists-dump.adb | |
| parent | 4c014bcc9e319eb6078d6f21857cd170c26483f1 (diff) | |
| download | ghdl-3819515f724ed2ae81a1aa7b467359e26a3fb9e7.tar.gz ghdl-3819515f724ed2ae81a1aa7b467359e26a3fb9e7.tar.bz2 ghdl-3819515f724ed2ae81a1aa7b467359e26a3fb9e7.zip | |
netlists-dump: avoid a crash on unconnected driver.
Diffstat (limited to 'src/synth/netlists-dump.adb')
| -rw-r--r-- | src/synth/netlists-dump.adb | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/synth/netlists-dump.adb b/src/synth/netlists-dump.adb index 1dc64c63a..3be27f3e4 100644 --- a/src/synth/netlists-dump.adb +++ b/src/synth/netlists-dump.adb @@ -510,9 +510,12 @@ package body Netlists.Dump is Drv := Get_Driver (I); - Put_Net_Width (Drv); - - Disp_Driver (Drv, Indent + 1); + if Drv = No_Net then + Put ('?'); + else + Put_Net_Width (Drv); + Disp_Driver (Drv, Indent + 1); + end if; end loop; Put (')'); end; |