diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-08-21 14:10:08 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-08-21 14:10:08 +0200 |
commit | 00ca739542639e5de0578bf1e62f04e380772f52 (patch) | |
tree | 4cf24896c94e2f28ada3528485257c1eab110f85 /src/synth/synth-vhdl_decls.adb | |
parent | 78b29a7a47636cb2fda1112f3e2ec8167c3e7d66 (diff) | |
download | ghdl-00ca739542639e5de0578bf1e62f04e380772f52.tar.gz ghdl-00ca739542639e5de0578bf1e62f04e380772f52.tar.bz2 ghdl-00ca739542639e5de0578bf1e62f04e380772f52.zip |
synth: factorize code for synth_subtype_conversion
Diffstat (limited to 'src/synth/synth-vhdl_decls.adb')
-rw-r--r-- | src/synth/synth-vhdl_decls.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/synth/synth-vhdl_decls.adb b/src/synth/synth-vhdl_decls.adb index dfbedff91..6bf730e35 100644 --- a/src/synth/synth-vhdl_decls.adb +++ b/src/synth/synth-vhdl_decls.adb @@ -128,7 +128,6 @@ package body Synth.Vhdl_Decls is Is_Subprg : Boolean; Last_Type : in out Node) is - Ctxt : constant Context_Acc := Get_Build (Syn_Inst); Deferred_Decl : constant Node := Get_Deferred_Declaration (Decl); First_Decl : Node; Decl_Type : Node; @@ -176,7 +175,7 @@ package body Synth.Vhdl_Decls is Set_Error (Syn_Inst); return; end if; - Val := Synth_Subtype_Conversion (Ctxt, Val, Obj_Type, True, Decl); + Val := Synth_Subtype_Conversion (Syn_Inst, Val, Obj_Type, True, Decl); -- For constant functions, the value must be constant. pragma Assert (not Get_Instance_Const (Syn_Inst) or else Is_Static (Val.Val)); @@ -399,7 +398,7 @@ package body Synth.Vhdl_Decls is if Is_Valid (Def) then Init := Synth_Expression_With_Type (Syn_Inst, Def, Obj_Typ); Init := Synth_Subtype_Conversion - (Ctxt, Init, Obj_Typ, True, Decl); + (Syn_Inst, Init, Obj_Typ, True, Decl); if not Is_Subprg and then not Is_Static (Init.Val) then @@ -501,7 +500,7 @@ package body Synth.Vhdl_Decls is Res := Create_Value_Alias (Base, Off, Typ); end if; if Obj_Typ /= null then - Res := Synth_Subtype_Conversion (Ctxt, Res, Obj_Typ, True, Decl); + Res := Synth_Subtype_Conversion (Syn_Inst, Res, Obj_Typ, True, Decl); end if; Create_Object (Syn_Inst, Decl, Res); end Synth_Object_Alias_Declaration; |