From 9a0c4d848946d6057722ca423d6096e20731404a Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sun, 21 Dec 2014 07:38:33 +0100
Subject: vcd/fst: handle complex signals.  Fix crash.

---
 src/grt/grt-vcd.adb | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/grt')

diff --git a/src/grt/grt-vcd.adb b/src/grt/grt-vcd.adb
index de8b99f..9cdc100 100644
--- a/src/grt/grt-vcd.adb
+++ b/src/grt/grt-vcd.adb
@@ -315,6 +315,10 @@ package body Grt.Vcd is
 
       Rti := Avhpi_Get_Rti (Sig_Type);
       Sig_Addr := Avhpi_Get_Address (Sig);
+      if Rti_Complex_Type (Rti) then
+         Sig_Addr := To_Addr_Acc (Sig_Addr).all;
+      end if;
+
       Info.Kind := Vcd_Bad;
       case Rti.Kind is
          when Ghdl_Rtik_Type_B1
-- 
cgit