From a30f7137ff1efe33174f840e3fe16d35cd554d97 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 1 Dec 2014 06:09:00 +0100
Subject: grt-vcd: in verilog_wire_info, replace addr by sigs.

---
 src/grt/grt-vcd.ads | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'src/grt/grt-vcd.ads')

diff --git a/src/grt/grt-vcd.ads b/src/grt/grt-vcd.ads
index 73096c5dd..a3561f534 100644
--- a/src/grt/grt-vcd.ads
+++ b/src/grt/grt-vcd.ads
@@ -22,9 +22,10 @@
 --  covered by the GNU General Public License. This exception does not
 --  however invalidate any other reasons why the executable file might be
 --  covered by the GNU Public License.
-with System; use System;
+
 with Grt.Types; use Grt.Types;
 with Grt.Avhpi; use Grt.Avhpi;
+with Grt.Signals;
 
 package Grt.Vcd is
    --  Abstract type for IO.
@@ -47,8 +48,8 @@ package Grt.Vcd is
    type Vcd_Value_Kind is (Vcd_Effective, Vcd_Driving);
 
    type Verilog_Wire_Info is record
-      --  Signal address
-      Addr : Address;
+      --  Access to an array of signals.
+      Sigs : Grt.Signals.Signal_Arr_Ptr;
 
       Irange : Ghdl_Range_Ptr;
       Kind : Vcd_Var_Kind;
@@ -58,6 +59,9 @@ package Grt.Vcd is
    procedure Get_Verilog_Wire (Sig : VhpiHandleT;
                                Info : out Verilog_Wire_Info);
 
+   --  Number of signals in INFO (at least one).
+   function Get_Wire_Length (Info : Verilog_Wire_Info) return Ghdl_Index_Type;
+
    --  Return TRUE if last change time of the wire described by INFO is LAST.
    function Verilog_Wire_Changed (Info : Verilog_Wire_Info;
                                   Last : Std_Time)
-- 
cgit v1.2.3