From 3419d1394a64aaf52893efa173076fc55396a5a0 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 5 Dec 2016 03:25:04 +0100 Subject: disp_tree: avoid a crash on Ref list. --- src/vhdl/disp_tree.adb | 2 ++ 1 file changed, 2 insertions(+) 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; -- cgit v1.2.3