diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2005-11-07 23:18:35 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2005-11-07 23:18:35 +0000 |
| commit | 004bd818080a8090ea61bfb9cd656b01fe4541e0 (patch) | |
| tree | a09472ff8de767ccd7f84d64ffc3c3fc4179bb75 /sem_names.adb | |
| parent | d5888aa28f654fa58ec9f3914932885e36af3d5c (diff) | |
| download | ghdl-004bd818080a8090ea61bfb9cd656b01fe4541e0.tar.gz ghdl-004bd818080a8090ea61bfb9cd656b01fe4541e0.tar.bz2 ghdl-004bd818080a8090ea61bfb9cd656b01fe4541e0.zip | |
handle universal real div integer evaluation,
more optimizations added,
multi-thread ready grt,
bug fixes
Diffstat (limited to 'sem_names.adb')
| -rw-r--r-- | sem_names.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/sem_names.adb b/sem_names.adb index 749a3cdb3..0e36aba86 100644 --- a/sem_names.adb +++ b/sem_names.adb @@ -746,6 +746,9 @@ package body Sem_Names is end case; Set_Parameter (Attr, Parameter); + if Get_Kind (Prefix_Type) = Iir_Kind_Array_Subtype_Definition then + Set_Index_Subtype (Attr, Index_Type); + end if; -- LRM 7.4.1 -- A locally static range is either [...], or a range of the first form |