diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-05-06 18:38:36 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-05-06 18:38:36 +0200 |
| commit | 9ebdd46defd0c2ce54d0e04c293e9d5a5b111026 (patch) | |
| tree | bc2efdc6d7ffa1f8fb1409c4ee37d7a1c15f7c69 /src/synth/synth-stmts.ads | |
| parent | 4e6760203fc2b88567ac37fd6054c5a684d099ca (diff) | |
| download | ghdl-9ebdd46defd0c2ce54d0e04c293e9d5a5b111026.tar.gz ghdl-9ebdd46defd0c2ce54d0e04c293e9d5a5b111026.tar.bz2 ghdl-9ebdd46defd0c2ce54d0e04c293e9d5a5b111026.zip | |
synth: revert a previous commit: remove the En parameter.
Diffstat (limited to 'src/synth/synth-stmts.ads')
| -rw-r--r-- | src/synth/synth-stmts.ads | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/src/synth/synth-stmts.ads b/src/synth/synth-stmts.ads index 330cf156e..db536e02d 100644 --- a/src/synth/synth-stmts.ads +++ b/src/synth/synth-stmts.ads @@ -32,8 +32,7 @@ package Synth.Stmts is procedure Synth_Subprogram_Association (Subprg_Inst : Synth_Instance_Acc; Caller_Inst : Synth_Instance_Acc; Inter_Chain : Node; - Assoc_Chain : Node; - En : Net); + Assoc_Chain : Node); -- Dynamic index for Synth_Assignment_Prefix. -- As dynamic is about dynamic (!) index, the index is a net. @@ -59,7 +58,6 @@ package Synth.Stmts is -- DEST_DYN is set (Voff field set) when there is a non-static index. procedure Synth_Assignment_Prefix (Syn_Inst : Synth_Instance_Acc; Pfx : Node; - En : Net; Dest_Base : out Valtyp; Dest_Typ : out Type_Acc; Dest_Off : out Value_Offsets; @@ -68,8 +66,7 @@ package Synth.Stmts is procedure Synth_Assignment (Syn_Inst : Synth_Instance_Acc; Target : Node; Val : Valtyp; - Loc : Node; - En : Net); + Loc : Node); function Synth_Read_Memory (Syn_Inst : Synth_Instance_Acc; Obj : Valtyp; @@ -79,14 +76,13 @@ package Synth.Stmts is Loc : Node) return Valtyp; function Synth_User_Function_Call - (Syn_Inst : Synth_Instance_Acc; Expr : Node; En : Net) return Valtyp; + (Syn_Inst : Synth_Instance_Acc; Expr : Node) return Valtyp; -- Operation implemented by a user function. function Synth_User_Operator (Syn_Inst : Synth_Instance_Acc; Left_Expr : Node; Right_Expr : Node; - Expr : Node; - En : Net) return Valtyp; + Expr : Node) return Valtyp; -- Generate netlists for concurrent statements STMTS. procedure Synth_Concurrent_Statements |