diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-06-24 07:47:03 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-06-24 21:41:07 +0200 |
commit | b85a4d387b378d3b15e115293c0bf01728229f52 (patch) | |
tree | 28ceb5ecfa9f1790643e40c442458edd24969a2e /src/vhdl/translate/trans-chap5.adb | |
parent | e359f04bdaa8b5cad3846d333f9dedf4df62c1ef (diff) | |
download | ghdl-b85a4d387b378d3b15e115293c0bf01728229f52.tar.gz ghdl-b85a4d387b378d3b15e115293c0bf01728229f52.tar.bz2 ghdl-b85a4d387b378d3b15e115293c0bf01728229f52.zip |
vhdl/translate: rework object type elaboration. For #641
Diffstat (limited to 'src/vhdl/translate/trans-chap5.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap5.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/vhdl/translate/trans-chap5.adb b/src/vhdl/translate/trans-chap5.adb index b8264f3db..a1f89f57f 100644 --- a/src/vhdl/translate/trans-chap5.adb +++ b/src/vhdl/translate/trans-chap5.adb @@ -101,8 +101,6 @@ package body Trans.Chap5 is Expr : constant Iir := Get_Expression (Spec); Val : Iir; begin - Chap3.Elab_Object_Subtype (Get_Type (Expr)); - Val := Get_Attribute_Value_Spec_Chain (Spec); while Is_Valid (Val) loop Chap4.Elab_Object_Value (Val, Expr); @@ -844,7 +842,7 @@ package body Trans.Chap5 is Bounds : Mnode; begin Set_Map_Env (Formal_Env); - Chap3.Elab_Object_Subtype (Formal_Type); + Chap3.Elab_Object_Subtype_Indication (Formal); -- FIXME? Type_Info := Get_Info (Formal_Type); Formal_Node := Get_Var (Obj_Info.Object_Var, Type_Info, Mode_Value); |