From c17992d28aa5b4b67828a0e717cf4840ba980628 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 5 Oct 2016 03:58:52 +0200
Subject: disp_vhdl: print 'parameter' if textually present.

---
 src/vhdl/parse.adb | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/vhdl/parse.adb')

diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb
index 7dfb2c7bf..ee377792b 100644
--- a/src/vhdl/parse.adb
+++ b/src/vhdl/parse.adb
@@ -1473,6 +1473,8 @@ package body Parse is
       Inters : Iir;
    begin
       if Current_Token = Tok_Parameter then
+         Set_Has_Parameter (Subprg, True);
+
          --  Eat 'parameter'
          Scan;
 
-- 
cgit v1.2.3