diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-10-22 13:15:33 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-10-22 13:15:33 +0200 |
| commit | e00d31baa0e7190b959cfb03df03b260e402da05 (patch) | |
| tree | 9ed433cdd9d38d6432e3dc016d1b942fbf97519c /sem_stmts.adb | |
| parent | 0e199cbea1070c016d29348cd659b9e6ca688afb (diff) | |
| download | ghdl-e00d31baa0e7190b959cfb03df03b260e402da05.tar.gz ghdl-e00d31baa0e7190b959cfb03df03b260e402da05.tar.bz2 ghdl-e00d31baa0e7190b959cfb03df03b260e402da05.zip | |
Rework for support of generic packages.
Diffstat (limited to 'sem_stmts.adb')
| -rw-r--r-- | sem_stmts.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/sem_stmts.adb b/sem_stmts.adb index b95b3e510..d9758073b 100644 --- a/sem_stmts.adb +++ b/sem_stmts.adb @@ -944,7 +944,7 @@ package body Sem_Stmts is (Chain, Choice_Type, False, True, Loc, Low, High); when Iir_Kind_Array_Subtype_Definition | Iir_Kind_Array_Type_Definition => - if not Is_Unidim_Array_Type (Choice_Type) then + if not Is_One_Dimensional_Array_Type (Choice_Type) then Error_Msg_Sem ("expression must be of a one-dimensional array type", Choice); |