diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-01-17 06:43:32 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-01-17 06:43:32 +0100 |
commit | 16427b827f53dc7c0f4d6f50573e6afb9430967d (patch) | |
tree | d6f1c4d7ee9b735239d92e6ce63566b1471904d9 /src/vhdl/translate/trans-chap3.ads | |
parent | 6487c7008b36ed7a94a59b3b02bb7e7b28fe4ac8 (diff) | |
download | ghdl-16427b827f53dc7c0f4d6f50573e6afb9430967d.tar.gz ghdl-16427b827f53dc7c0f4d6f50573e6afb9430967d.tar.bz2 ghdl-16427b827f53dc7c0f4d6f50573e6afb9430967d.zip |
Translate: minor cleanup.
Diffstat (limited to 'src/vhdl/translate/trans-chap3.ads')
-rw-r--r-- | src/vhdl/translate/trans-chap3.ads | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap3.ads b/src/vhdl/translate/trans-chap3.ads index 88a169f2a..2adeb629d 100644 --- a/src/vhdl/translate/trans-chap3.ads +++ b/src/vhdl/translate/trans-chap3.ads @@ -57,6 +57,8 @@ package Trans.Chap3 is procedure Translate_Protected_Type_Body_Subprograms_Spec (Bod : Iir); procedure Translate_Protected_Type_Body_Subprograms_Body (Bod : Iir); + -- DEF derives (using the Ada meaning) of PARENT_TYPE, ie DEF has new + -- constraints on PARENT_TYPE. procedure Translate_Subtype_Definition (Def : Iir; Parent_Type : Iir; With_Vars : Boolean := True); |