From 902544fdc86c3b4fe53ccd3bb07b38ae3f8856bc Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 28 Jul 2022 08:07:37 +0200
Subject: simul-vhdl_simul: add scalar terminal table

---
 src/simul/simul-vhdl_simul.ads | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

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,
-- 
cgit v1.2.3