diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-04-09 21:24:04 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-04-09 21:24:36 +0200 |
commit | 32a60efc00452a5eb037f5d1f5dabb687c170c99 (patch) | |
tree | f38b3337d35da9479255e5a7e97934eb1ff2731a /src/synth/synth-values.ads | |
parent | db918fedf1af6da741bb6dd280719cb0f139b583 (diff) | |
download | ghdl-32a60efc00452a5eb037f5d1f5dabb687c170c99.tar.gz ghdl-32a60efc00452a5eb037f5d1f5dabb687c170c99.tar.bz2 ghdl-32a60efc00452a5eb037f5d1f5dabb687c170c99.zip |
synth: refactoring to store static values in wires.
Diffstat (limited to 'src/synth/synth-values.ads')
-rw-r--r-- | src/synth/synth-values.ads | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/synth/synth-values.ads b/src/synth/synth-values.ads index ec1c28813..ee0463721 100644 --- a/src/synth/synth-values.ads +++ b/src/synth/synth-values.ads @@ -85,6 +85,7 @@ package Synth.Values is C_Net : Net; when Value_Alias => A_Obj : Value_Acc; + A_Typ : Type_Acc; -- The type of A_Obj. A_Off : Value_Offsets; end case; end record; @@ -133,7 +134,7 @@ package Synth.Values is return Valtyp; function Create_Value_Alias - (Obj : Value_Acc; Off : Value_Offsets; Typ : Type_Acc) return Valtyp; + (Obj : Valtyp; Off : Value_Offsets; Typ : Type_Acc) return Valtyp; function Create_Value_Const (Val : Valtyp; Loc : Syn_Src) return Valtyp; @@ -161,7 +162,7 @@ package Synth.Values is -- Memory access. procedure Write_Discrete (Vt : Valtyp; Val : Int64); - function Read_Discrete (Mem : Memory_Ptr; Typ : Type_Acc) return Int64; + function Read_Discrete (Mt : Memtyp) return Int64; function Read_Discrete (Vt : Valtyp) return Int64; procedure Write_Access (Mem : Memory_Ptr; Val : Heap_Index); |