diff options
author | Tristan Gingold <tgingold@free.fr> | 2013-12-17 06:25:53 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2013-12-17 06:25:53 +0100 |
commit | 48448a12ef628218db298d8b7c6879e28cdd019a (patch) | |
tree | 7e612d41dc01c435cf32e3cee029b429c9362bb9 /sem_expr.adb | |
parent | 04ad1cd54d99fc3ac3d82c69ee5f7c2db7e2275a (diff) | |
download | ghdl-48448a12ef628218db298d8b7c6879e28cdd019a.tar.gz ghdl-48448a12ef628218db298d8b7c6879e28cdd019a.tar.bz2 ghdl-48448a12ef628218db298d8b7c6879e28cdd019a.zip |
Sync tree: add parsing of AMS-VHDL, add Darwin syntax in asm files.
Diffstat (limited to 'sem_expr.adb')
-rw-r--r-- | sem_expr.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/sem_expr.adb b/sem_expr.adb index 2293e0a38..f008a7bbc 100644 --- a/sem_expr.adb +++ b/sem_expr.adb @@ -189,6 +189,8 @@ package body Sem_Expr is | Iir_Kind_Allocator_By_Subtype | Iir_Kind_Qualified_Expression => return Expr; + when Iir_Kinds_Quantity_Declaration => + return Expr; when Iir_Kinds_Dyadic_Operator | Iir_Kinds_Monadic_Operator => return Expr; @@ -683,7 +685,6 @@ package body Sem_Expr is end if; end Get_Discrete_Range_Staticness; - procedure Set_Function_Call_Staticness (Expr : Iir; Imp : Iir) is Staticness : Iir_Staticness; @@ -3479,6 +3480,8 @@ package body Sem_Expr is | Iir_Kind_Iterator_Declaration | Iir_Kind_Guard_Signal_Declaration => return; + when Iir_Kinds_Quantity_Declaration => + return; when Iir_Kind_File_Declaration | Iir_Kind_File_Interface_Declaration => -- LRM 4.3.2 Interface declarations |