diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-10-22 21:17:28 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-10-23 18:41:51 +0200 |
commit | 4e76c7da364ef4d493cbd111ff66178094bc5d64 (patch) | |
tree | deaee029a4e215e1a6c6fe4ada1491e7365db8de | |
parent | c79e9025912c8df857141ce45080a9e779b4aa20 (diff) | |
download | ghdl-4e76c7da364ef4d493cbd111ff66178094bc5d64.tar.gz ghdl-4e76c7da364ef4d493cbd111ff66178094bc5d64.tar.bz2 ghdl-4e76c7da364ef4d493cbd111ff66178094bc5d64.zip |
vhdl-prints: do not crash on vunit declarations.
-rw-r--r-- | src/vhdl/vhdl-prints.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-prints.adb b/src/vhdl/vhdl-prints.adb index 88ae34fe6..ddcc888aa 100644 --- a/src/vhdl/vhdl-prints.adb +++ b/src/vhdl/vhdl-prints.adb @@ -4379,6 +4379,10 @@ package body Vhdl.Prints is | Iir_Kind_Group_Template_Declaration => Disp_Name_Of (Ctxt, Expr); + when Iir_Kind_Function_Body + | Iir_Kind_Procedure_Body => + Disp_Subprogram_Body (Ctxt, Expr); + when Iir_Kind_Signature => Disp_Signature (Ctxt, Expr); |