diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-09-30 18:53:25 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-09-30 18:53:25 +0200 |
| commit | e842e19ba2cbe1bde377fe41860918435698d069 (patch) | |
| tree | 3f21313288fbfbf18d784b1563347d32bf40bb67 /src/vhdl/disp_tree.adb | |
| parent | 609ab44c99653762e6d0d26bdec2528aeeb77f0a (diff) | |
| download | ghdl-e842e19ba2cbe1bde377fe41860918435698d069.tar.gz ghdl-e842e19ba2cbe1bde377fe41860918435698d069.tar.bz2 ghdl-e842e19ba2cbe1bde377fe41860918435698d069.zip | |
iirs: add Forward_Ref links
Diffstat (limited to 'src/vhdl/disp_tree.adb')
| -rw-r--r-- | src/vhdl/disp_tree.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/disp_tree.adb b/src/vhdl/disp_tree.adb index b840d4603..c408651bc 100644 --- a/src/vhdl/disp_tree.adb +++ b/src/vhdl/disp_tree.adb @@ -400,7 +400,8 @@ package body Disp_Tree is case Get_Field_Attribute (F) is when Attr_None => Disp_Iir (Get_Iir (N, F), Sub_Indent, Depth - 1); - when Attr_Ref => + when Attr_Ref + | Attr_Forward_Ref => Disp_Iir (Get_Iir (N, F), Sub_Indent, 0); when Attr_Maybe_Ref => if Get_Is_Ref (N) then |