diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-10-06 13:08:09 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-10-06 13:08:09 +0200 |
| commit | 3d35074b10658634d0e1a280575fa6af0b08730f (patch) | |
| tree | 6e8ec3eac749da9855c98740b02746f0fd87f7e0 /src/synth/synth-expr.adb | |
| parent | d44e7227610913a14029ce050aceee887da914dd (diff) | |
| download | ghdl-3d35074b10658634d0e1a280575fa6af0b08730f.tar.gz ghdl-3d35074b10658634d0e1a280575fa6af0b08730f.tar.bz2 ghdl-3d35074b10658634d0e1a280575fa6af0b08730f.zip | |
netlists: remove renaming of Get_Parent for Net.
Diffstat (limited to 'src/synth/synth-expr.adb')
| -rw-r--r-- | src/synth/synth-expr.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index 4fbc5e5d3..1c085b1c8 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -977,7 +977,7 @@ package body Synth.Expr is function Is_Const (N : Net) return Boolean is begin - case Get_Id (Get_Module (Get_Parent (N))) is + case Get_Id (Get_Module (Get_Net_Parent (N))) is when Id_Const_UB32 => return True; when others => @@ -987,7 +987,7 @@ package body Synth.Expr is function Get_Const (N : Net) return Int32 is - Inst : constant Instance := Get_Parent (N); + Inst : constant Instance := Get_Net_Parent (N); begin case Get_Id (Get_Module (Inst)) is when Id_Const_UB32 => @@ -1010,7 +1010,7 @@ package body Synth.Expr is Inp := Val; loop - Inst := Get_Parent (Inp); + Inst := Get_Net_Parent (Inp); case Get_Id (Get_Module (Inst)) is when Id_Add => Val_I0 := Get_Input_Net (Inst, 0); @@ -1069,8 +1069,8 @@ package body Synth.Expr is end if; declare - Linst : constant Instance := Get_Parent (L); - Rinst : constant Instance := Get_Parent (R); + Linst : constant Instance := Get_Net_Parent (L); + Rinst : constant Instance := Get_Net_Parent (R); begin if Get_Id (Linst) /= Get_Id (Rinst) then return False; |