diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-02-11 04:06:09 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-02-11 04:06:09 +0100 |
| commit | 03150800332a179319bfa8937b19766f2582cb36 (patch) | |
| tree | 3f9cfb5fe236afddc8f1615fc896db54ba909165 /src | |
| parent | 29ff7ac283374e9df1ac1d1fd7d50dd97074bbe5 (diff) | |
| download | ghdl-03150800332a179319bfa8937b19766f2582cb36.tar.gz ghdl-03150800332a179319bfa8937b19766f2582cb36.tar.bz2 ghdl-03150800332a179319bfa8937b19766f2582cb36.zip | |
translate: refine condition. Fix #1125
For the check of matching direction in slices.
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/translate/trans-chap6.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap6.adb b/src/vhdl/translate/trans-chap6.adb index e21836a28..69ee04145 100644 --- a/src/vhdl/translate/trans-chap6.adb +++ b/src/vhdl/translate/trans-chap6.adb @@ -622,7 +622,7 @@ package body Trans.Chap6 is -- Check direction against same direction, error if different. -- FIXME: what about v87 -> if different then null slice if not Static_Range - or else Get_Kind (Prefix_Type) /= Iir_Kind_Array_Subtype_Definition + or else not Get_Index_Constraint_Flag (Prefix_Type) then -- Check same direction. Check_Direction_Error |