diff options
| author | Tristan Gingold | 2015-05-20 21:26:36 +0200 |
|---|---|---|
| committer | Tristan Gingold | 2015-05-20 21:26:36 +0200 |
| commit | 8697fde9747e6f9ae5ddb2eff57f854773caf6db (patch) | |
| tree | 37ffcd7b71e447717208e5873b1ff79a6c6df66f /src/vhdl/sem_expr.adb | |
| parent | 4528ed26b1b22562a4552368459f5d5acf5c3847 (diff) | |
| download | ghdl-8697fde9747e6f9ae5ddb2eff57f854773caf6db.tar.gz ghdl-8697fde9747e6f9ae5ddb2eff57f854773caf6db.tar.bz2 ghdl-8697fde9747e6f9ae5ddb2eff57f854773caf6db.zip | |
Translation: handle individual association in function call.
Factorize code.
Fix ticket 74.
Diffstat (limited to 'src/vhdl/sem_expr.adb')
| -rw-r--r-- | src/vhdl/sem_expr.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index b2f4a4d..c8722b6 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -903,7 +903,9 @@ package body Sem_Expr is begin Assoc := Get_Parameter_Association_Chain (Expr); while Assoc /= Null_Iir loop - if Get_Kind (Assoc) /= Iir_Kind_Association_Element_Open then + if Get_Kind (Assoc) + = Iir_Kind_Association_Element_By_Expression + then Staticness := Min (Get_Expr_Staticness (Get_Actual (Assoc)), Staticness); |