diff options
| author | Tristan Gingold <tgingold@free.fr> | 2013-12-24 07:57:55 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2013-12-24 07:57:55 +0100 |
| commit | b129f499996d6d4f45ff468c114c3bb362ac021b (patch) | |
| tree | 8d30bd40e034baa3cfbdfc9c1c378b990244fc03 /sem_names.adb | |
| parent | e3cad42f2f816ed62c2a9d19f661e14a50672cb5 (diff) | |
| download | ghdl-b129f499996d6d4f45ff468c114c3bb362ac021b.tar.gz ghdl-b129f499996d6d4f45ff468c114c3bb362ac021b.tar.bz2 ghdl-b129f499996d6d4f45ff468c114c3bb362ac021b.zip | |
Fix mcode for i386 Darwin.
Diffstat (limited to 'sem_names.adb')
| -rw-r--r-- | sem_names.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/sem_names.adb b/sem_names.adb index da6c749eb..6946eb1f3 100644 --- a/sem_names.adb +++ b/sem_names.adb @@ -1252,7 +1252,8 @@ package body Sem_Names is --end; return; when Iir_Kind_Length_Array_Attribute - | Iir_Kind_Range_Array_Attribute => + | Iir_Kind_Range_Array_Attribute + | Iir_Kind_Reverse_Range_Array_Attribute => Finish_Sem_Array_Attribute (Res, Null_Iir); return; -- when Iir_Kind_Pos_Attribute => @@ -2476,9 +2477,11 @@ package body Sem_Names is Res := Create_Iir (Iir_Kind_Reverse_Range_Array_Attribute); when Name_Length => Res := Create_Iir (Iir_Kind_Length_Array_Attribute); + -- FIXME: Error if ambiguous Set_Type (Res, Convertible_Integer_Type_Definition); when Name_Ascending => Res := Create_Iir (Iir_Kind_Ascending_Array_Attribute); + -- FIXME: Error if ambiguous Set_Type (Res, Boolean_Type_Definition); when others => raise Internal_Error; |