diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-01-02 05:51:48 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-01-02 05:51:48 +0100 |
| commit | 43a504a9722b739ab33393ecb2d1abc6962cc52f (patch) | |
| tree | 5fa83a8745b239cbb4b8f7c5d06079db681f67f0 /src/vhdl/translate/trans-chap7.adb | |
| parent | 0f62d8b9acc29a4726a17c72c315a0a94ec18688 (diff) | |
| download | ghdl-43a504a9722b739ab33393ecb2d1abc6962cc52f.tar.gz ghdl-43a504a9722b739ab33393ecb2d1abc6962cc52f.tar.bz2 ghdl-43a504a9722b739ab33393ecb2d1abc6962cc52f.zip | |
iirs_utils: reimplement Are_Bounds_Locally_Static.
Diffstat (limited to 'src/vhdl/translate/trans-chap7.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index d9e14eadd..b393e6acb 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -438,7 +438,7 @@ package body Trans.Chap7 is R : O_Enode; begin if Get_Constraint_State (Str_Type) = Fully_Constrained - and then Are_Bounds_Locally_Static (Str_Type) + and then Are_Array_Indexes_Locally_Static (Str_Type) then Chap3.Create_Array_Subtype (Str_Type); case Get_Kind (Str) is @@ -454,7 +454,7 @@ package body Trans.Chap7 is when others => raise Internal_Error; end case; - Is_Static := Are_Bounds_Locally_Static (Res_Type); + Is_Static := Are_Array_Indexes_Locally_Static (Res_Type); if Is_Static then Res := Translate_Static_Implicit_Conv (Res, Str_Type, Res_Type); |