diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-30 20:10:18 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-30 20:10:18 +0200 |
| commit | 1e17ca0e0d9fcdc9ba29c82b40c841d87e5b86a3 (patch) | |
| tree | cb135394ce7ce8ceec52a3cc79791e4c72a5f33e /src/synth/synth-decls.adb | |
| parent | 1f62927ba89abc0fd43b1fceaa3c960252b05a26 (diff) | |
| download | ghdl-1e17ca0e0d9fcdc9ba29c82b40c841d87e5b86a3.tar.gz ghdl-1e17ca0e0d9fcdc9ba29c82b40c841d87e5b86a3.tar.bz2 ghdl-1e17ca0e0d9fcdc9ba29c82b40c841d87e5b86a3.zip | |
synth: renaming and minor refactoring.
Diffstat (limited to 'src/synth/synth-decls.adb')
| -rw-r--r-- | src/synth/synth-decls.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/synth/synth-decls.adb b/src/synth/synth-decls.adb index 61b2e23c4..83626b6c4 100644 --- a/src/synth/synth-decls.adb +++ b/src/synth/synth-decls.adb @@ -518,7 +518,7 @@ package body Synth.Decls is pragma Assert (Init /= null); Create_Object (Syn_Inst, Decl, Init); else - Make_Object (Syn_Inst, Wire_Variable, Decl); + Create_Wire_Object (Syn_Inst, Wire_Variable, Decl); Create_Var_Wire (Syn_Inst, Decl, Init); if Is_Subprg and then Init /= null then Phi_Assign @@ -529,7 +529,7 @@ package body Synth.Decls is end; when Iir_Kind_Interface_Variable_Declaration => -- Ignore default value. - Make_Object (Syn_Inst, Wire_Variable, Decl); + Create_Wire_Object (Syn_Inst, Wire_Variable, Decl); Create_Var_Wire (Syn_Inst, Decl, null); when Iir_Kind_Constant_Declaration => Synth_Constant_Declaration (Syn_Inst, Decl); @@ -541,7 +541,7 @@ package body Synth.Decls is Init : Value_Acc; Obj_Type : Type_Acc; begin - Make_Object (Syn_Inst, Wire_Signal, Decl); + Create_Wire_Object (Syn_Inst, Wire_Signal, Decl); if Is_Valid (Def) then Obj_Type := Get_Value_Type (Syn_Inst, Get_Type (Decl)); Init := Synth_Expression_With_Type (Syn_Inst, Def, Obj_Type); @@ -567,7 +567,7 @@ package body Synth.Decls is Create_Object (Syn_Inst, Decl, Res); end; when Iir_Kind_Anonymous_Signal_Declaration => - Make_Object (Syn_Inst, Wire_Signal, Decl); + Create_Wire_Object (Syn_Inst, Wire_Signal, Decl); Create_Var_Wire (Syn_Inst, Decl, null); when Iir_Kind_Procedure_Declaration | Iir_Kind_Function_Declaration => |