diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-12-05 03:25:04 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-12-05 03:25:23 +0100 |
| commit | 3419d1394a64aaf52893efa173076fc55396a5a0 (patch) | |
| tree | baf0e4a45473001946f57a4f6a0554758c52245c | |
| parent | cd4acc3e0237fbc658696835d0901d0a2a0355d1 (diff) | |
| download | ghdl-3419d1394a64aaf52893efa173076fc55396a5a0.tar.gz ghdl-3419d1394a64aaf52893efa173076fc55396a5a0.tar.bz2 ghdl-3419d1394a64aaf52893efa173076fc55396a5a0.zip | |
disp_tree: avoid a crash on Ref list.
| -rw-r--r-- | src/vhdl/disp_tree.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/vhdl/disp_tree.adb b/src/vhdl/disp_tree.adb index ecfc93ba4..92cfff293 100644 --- a/src/vhdl/disp_tree.adb +++ b/src/vhdl/disp_tree.adb @@ -452,6 +452,8 @@ package body Disp_Tree is Ndepth := Depth - 1; when Attr_Of_Ref => Ndepth := 0; + when Attr_Ref => + Ndepth := 0; when Attr_Of_Maybe_Ref => if Get_Is_Ref (N) then Ndepth := 0; |