diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-12 05:15:30 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-12 05:15:30 +0200 |
| commit | 8f0227416720253cabacff0d0cb9ced2f660f981 (patch) | |
| tree | b80aa44fe408fcf2d6581fc82046b3d42af5da1f /src/synth/synth-expr.adb | |
| parent | 8f1870143c4020196c7610e590079ee8b9b2f7d3 (diff) | |
| download | ghdl-8f0227416720253cabacff0d0cb9ced2f660f981.tar.gz ghdl-8f0227416720253cabacff0d0cb9ced2f660f981.tar.bz2 ghdl-8f0227416720253cabacff0d0cb9ced2f660f981.zip | |
synth: remove get_width from synth-expr
Diffstat (limited to 'src/synth/synth-expr.adb')
| -rw-r--r-- | src/synth/synth-expr.adb | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index 03bb1e3e0..9ec249193 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -44,17 +44,6 @@ package body Synth.Expr is function Synth_Name (Syn_Inst : Synth_Instance_Acc; Name : Node) return Value_Acc; - function Get_Width (Val : Value_Acc) return Uns32 is - begin - case Val.Kind is - when Value_Wire - | Value_Net => - return Get_Width (Get_Net (Val)); - when others => - raise Internal_Error; -- TODO - end case; - end Get_Width; - procedure Set_Location2 (N : Net; Loc : Node) is begin Set_Location (Get_Net_Parent (N), Get_Location (Loc)); |