diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-05-06 06:09:12 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-05-06 06:09:12 +0200 |
commit | 2804d2726adbb6cca68731526a0df54ebd767beb (patch) | |
tree | 1c1f05af7123bd666a1f1a0f4cf6fa4d47a919de /src/synth/elab-vhdl_values.ads | |
parent | c9f6a193253ca2e8ce8059c16d2c56c679c9c13d (diff) | |
download | ghdl-2804d2726adbb6cca68731526a0df54ebd767beb.tar.gz ghdl-2804d2726adbb6cca68731526a0df54ebd767beb.tar.bz2 ghdl-2804d2726adbb6cca68731526a0df54ebd767beb.zip |
elab-vhdl_context: introduce signal_index
Diffstat (limited to 'src/synth/elab-vhdl_values.ads')
-rw-r--r-- | src/synth/elab-vhdl_values.ads | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/synth/elab-vhdl_values.ads b/src/synth/elab-vhdl_values.ads index 047f294ba..ebb249a9d 100644 --- a/src/synth/elab-vhdl_values.ads +++ b/src/synth/elab-vhdl_values.ads @@ -67,13 +67,15 @@ package Elab.Vhdl_Values is subtype File_Index is Grt.Files_Operations.Ghdl_File_Index; + subtype Signal_Index is Uns32; + type Value_Type (Kind : Value_Kind) is record case Kind is when Value_Net | Value_Wire => N : Uns32; when Value_Signal => - S : Uns32; + S : Signal_Index; Init : Value_Acc; when Value_Memory => Mem : Memory_Ptr; @@ -174,5 +176,4 @@ package Elab.Vhdl_Values is procedure Write_Value (Dest : Memory_Ptr; Vt : Valtyp); procedure Update_Index (Rng : Discrete_Range_Type; V : in out Valtyp); - end Elab.Vhdl_Values; |