diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-07-28 08:07:37 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-07-28 08:07:37 +0200 |
commit | 902544fdc86c3b4fe53ccd3bb07b38ae3f8856bc (patch) | |
tree | 6e90292e2a8a7179b1ca851e751fb12768cbea7a /src/simul/simul-vhdl_simul.ads | |
parent | 9716ec5368ce88f9316bdd9eda2185eef6e659f0 (diff) | |
download | ghdl-902544fdc86c3b4fe53ccd3bb07b38ae3f8856bc.tar.gz ghdl-902544fdc86c3b4fe53ccd3bb07b38ae3f8856bc.tar.bz2 ghdl-902544fdc86c3b4fe53ccd3bb07b38ae3f8856bc.zip |
simul-vhdl_simul: add scalar terminal table
Diffstat (limited to 'src/simul/simul-vhdl_simul.ads')
-rw-r--r-- | src/simul/simul-vhdl_simul.ads | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/simul/simul-vhdl_simul.ads b/src/simul/simul-vhdl_simul.ads index 05d4af757..5a24f6dc1 100644 --- a/src/simul/simul-vhdl_simul.ads +++ b/src/simul/simul-vhdl_simul.ads @@ -94,6 +94,22 @@ package Simul.Vhdl_Simul is Table_Low_Bound => No_Scalar_Quantity + 1, Table_Initial => 128); + type Contrib_Index_Type is new Uns32; + + type Scalar_Terminal_Record is record + -- Index in Y vector + Ref_Idx : Integer; + -- Number of contributions. + Nbr_Contrib : Natural; + First_Contrib : Contrib_Index_Type; + end record; + + package Scalar_Terminals_Table is new Tables + (Table_Component_Type => Scalar_Terminal_Record, + Table_Index_Type => Scalar_Terminal_Index, + Table_Low_Bound => No_Scalar_Terminal + 1, + Table_Initial => 64); + type Augmentation_Kind is ( Aug_Noise, |