diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-07-25 05:48:04 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-07-25 05:48:04 +0200 |
commit | dbdc6a93ab37ad44537d250ec216d682c090b5f0 (patch) | |
tree | 34054ef3be6e34d5414667a164409215ee72182e /src/synth/synth-expr.ads | |
parent | e5aa8272090bba9224b6e544113ff8b2bce0dd33 (diff) | |
download | ghdl-dbdc6a93ab37ad44537d250ec216d682c090b5f0.tar.gz ghdl-dbdc6a93ab37ad44537d250ec216d682c090b5f0.tar.bz2 ghdl-dbdc6a93ab37ad44537d250ec216d682c090b5f0.zip |
synth: save and display locations for instances.
Diffstat (limited to 'src/synth/synth-expr.ads')
-rw-r--r-- | src/synth/synth-expr.ads | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/synth/synth-expr.ads b/src/synth/synth-expr.ads index 1599eb22e..ec2c1c956 100644 --- a/src/synth/synth-expr.ads +++ b/src/synth/synth-expr.ads @@ -29,12 +29,16 @@ package Synth.Expr is function Is_Const (Val : Value_Acc) return Boolean; function Get_Width (Val : Value_Acc) return Uns32; + procedure Set_Location (N : Net; Loc : Node); + pragma Inline (Set_Location); + procedure From_Std_Logic (Enum : Int64; Val : out Uns32; Zx : out Uns32); procedure From_Bit (Enum : Int64; Val : out Uns32); procedure To_Logic (Enum : Int64; Etype : Node; Val : out Uns32; Zx : out Uns32); - function Bit_Extract (Val : Value_Acc; Off : Uns32) return Value_Acc; + function Bit_Extract (Val : Value_Acc; Off : Uns32; Loc : Node) + return Value_Acc; type Net_Array is array (Int32 range <>) of Net; type Net_Array_Acc is access Net_Array; |