diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-10-05 03:58:52 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-10-05 03:58:52 +0200 |
| commit | c17992d28aa5b4b67828a0e717cf4840ba980628 (patch) | |
| tree | e92cb4028ddd1ac9c9f43009a33579485b9f2cb4 /src/vhdl/parse.adb | |
| parent | 937c3e565b1f249bf86805c8cb6d8ff93fa8d4b8 (diff) | |
| download | ghdl-c17992d28aa5b4b67828a0e717cf4840ba980628.tar.gz ghdl-c17992d28aa5b4b67828a0e717cf4840ba980628.tar.bz2 ghdl-c17992d28aa5b4b67828a0e717cf4840ba980628.zip | |
disp_vhdl: print 'parameter' if textually present.
Diffstat (limited to 'src/vhdl/parse.adb')
| -rw-r--r-- | src/vhdl/parse.adb | 2 |
1 files changed, 2 insertions, 0 deletions
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; |