aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2019-08-30 03:22:13 +0200
committerTristan Gingold <tgingold@free.fr>2019-08-30 03:22:13 +0200
commit5d797c187b2d3b17253a002fdad1557951aa4e85 (patch)
tree9e2158c4206b8424f880d4c2f5c10964415bb25e /src
parent70bca998891387e66b3cf522b3d66b8e873de08d (diff)
downloadghdl-5d797c187b2d3b17253a002fdad1557951aa4e85.tar.gz
ghdl-5d797c187b2d3b17253a002fdad1557951aa4e85.tar.bz2
ghdl-5d797c187b2d3b17253a002fdad1557951aa4e85.zip
synth: fix named association in record aggregate.
Diffstat (limited to 'src')
-rw-r--r--src/synth/synth-expr.adb4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index 7bdad0672..0badb844b 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -373,7 +373,9 @@ package body Synth.Expr is
end if;
end loop;
when Iir_Kind_Choice_By_Name =>
- Pos := Natural (Get_Element_Position (Get_Name (Assoc)));
+ Pos := Natural (Get_Element_Position
+ (Get_Named_Entity
+ (Get_Choice_Name (Assoc))));
Set_Elem (Pos);
when others =>
Error_Msg_Synth