diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-10-29 20:36:29 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-10-29 20:36:29 +0100 |
| commit | e5071f1a02f16a369c504944934042fbfb09e5dc (patch) | |
| tree | 1b891a41c024a308274c380c8189e3213085a7e8 /translate/ghdldrv | |
| parent | 236a876a8448b89061bb71869c36a68aea0199c3 (diff) | |
| download | ghdl-e5071f1a02f16a369c504944934042fbfb09e5dc.tar.gz ghdl-e5071f1a02f16a369c504944934042fbfb09e5dc.tar.bz2 ghdl-e5071f1a02f16a369c504944934042fbfb09e5dc.zip | |
Add support for package interface.
Diffstat (limited to 'translate/ghdldrv')
| -rw-r--r-- | translate/ghdldrv/ghdlprint.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/translate/ghdldrv/ghdlprint.adb b/translate/ghdldrv/ghdlprint.adb index 73d5ba7ad..01040002c 100644 --- a/translate/ghdldrv/ghdlprint.adb +++ b/translate/ghdldrv/ghdlprint.adb @@ -1660,11 +1660,11 @@ package body Ghdlprint is C := 'F'; when Iir_Kind_Procedure_Declaration => C := 'p'; - when Iir_Kind_Signal_Interface_Declaration => + when Iir_Kind_Interface_Signal_Declaration => C := 's'; when Iir_Kind_Signal_Declaration => C := 'S'; - when Iir_Kind_Constant_Interface_Declaration => + when Iir_Kind_Interface_Constant_Declaration => C := 'c'; when Iir_Kind_Constant_Declaration => C := 'C'; |