diff options
| author | gingold | 2006-08-06 06:45:40 +0000 |
|---|---|---|
| committer | gingold | 2006-08-06 06:45:40 +0000 |
| commit | 63925c8de8d3171e6b258796e4d167524691490a (patch) | |
| tree | a8e7971f5889da0b7bba2cd7f9624c704d0145df /sem_expr.adb | |
| parent | 3841c37a946481815c89928ccd15b71b608aa526 (diff) | |
| download | ghdl-63925c8de8d3171e6b258796e4d167524691490a.tar.gz ghdl-63925c8de8d3171e6b258796e4d167524691490a.tar.bz2 ghdl-63925c8de8d3171e6b258796e4d167524691490a.zip | |
bugs fixed
Diffstat (limited to 'sem_expr.adb')
| -rw-r--r-- | sem_expr.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/sem_expr.adb b/sem_expr.adb index 43be15a..acc2dae 100644 --- a/sem_expr.adb +++ b/sem_expr.adb @@ -167,7 +167,8 @@ package body Sem_Expr is | Iir_Kind_Library_Declaration | Iir_Kind_Library_Clause | Iir_Kind_Component_Declaration - | Iir_Kinds_Procedure_Declaration => + | Iir_Kinds_Procedure_Declaration + | Iir_Kind_Range_Array_Attribute => Error_Msg_Sem (Disp_Node (Expr) & " not allowed in an expression", Loc); return Null_Iir; @@ -1801,7 +1802,7 @@ package body Sem_Expr is return; end if; Set_Expression (Choice, Expr); - if Get_Expr_Staticness (Expr) > Locally then + if Get_Expr_Staticness (Expr) < Locally then Error_Msg_Sem ("choice must be locally static expression", Expr); return; end if; |