diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-11-05 17:38:20 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-11-05 17:38:20 +0100 |
| commit | 0008064ba19607fa57301864c601e4f0038979f0 (patch) | |
| tree | e16378900389a4c9e7ad0bf211f334c19aad56c8 /src/vhdl/translate/trans-chap3.adb | |
| parent | ab5e10334eb99b96f221d9c54474557b496ea841 (diff) | |
| download | ghdl-0008064ba19607fa57301864c601e4f0038979f0.tar.gz ghdl-0008064ba19607fa57301864c601e4f0038979f0.tar.bz2 ghdl-0008064ba19607fa57301864c601e4f0038979f0.zip | |
Are_Bounds_Locally_Static: add comment, do what it is described.
Diffstat (limited to 'src/vhdl/translate/trans-chap3.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index 4819083a8..e5ba9a1ee 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -719,6 +719,7 @@ package body Trans.Chap3 is (Create_Identifier ("STB"), Base_Info.B.Bounds_Type, Global_Storage, Val); else + pragma Assert (Get_Type_Staticness (Def) /= Locally); Info.S.Static_Bounds := False; Info.S.Composite_Bounds := Create_Var (Create_Var_Identifier ("STB"), Base_Info.B.Bounds_Type); |