From ce10f7dbd57cb5d2273567aa536bfce79620849c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 30 Oct 2015 07:11:28 +0100
Subject: Rework callbacks, support cocotb.

---
 src/grt/grt-waves.adb | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/grt/grt-waves.adb')

diff --git a/src/grt/grt-waves.adb b/src/grt/grt-waves.adb
index 72b33d3e2..34124e2fc 100644
--- a/src/grt/grt-waves.adb
+++ b/src/grt/grt-waves.adb
@@ -1559,7 +1559,7 @@ package body Grt.Waves is
       Wave_Put_Byte (0);
       Wave_Put_Byte (0);
       Wave_Put_Byte (0);
-      Wave_Put_I64 (Ghdl_I64 (Cycle_Time));
+      Wave_Put_I64 (Ghdl_I64 (Current_Time));
 
       for I in Dump_Table.First .. Dump_Table.Last loop
          Write_Signal_Value (Dump_Table.Table (I));
@@ -1629,23 +1629,23 @@ package body Grt.Waves is
    begin
       if not In_Cyc then
          Wave_Section ("CYC" & NUL);
-         Wave_Put_I64 (Ghdl_I64 (Cycle_Time));
+         Wave_Put_I64 (Ghdl_I64 (Current_Time));
          In_Cyc := True;
       else
-         Diff := Cycle_Time - Wave_Time;
+         Diff := Current_Time - Wave_Time;
          Wave_Put_LSLEB128 (Ghdl_I64 (Diff));
       end if;
-      Wave_Time := Cycle_Time;
+      Wave_Time := Current_Time;
 
       --  Dump signals.
       Last := 0;
       for I in Dump_Table.First .. Dump_Table.Last loop
          Sig := Dump_Table.Table (I);
-         if Sig.Flags.Cyc_Event then
+         if Sig.Flags.RO_Event then
             Wave_Put_ULEB128 (Ghdl_U32 (I - Last));
             Last := I;
             Write_Signal_Value (Sig);
-            Sig.Flags.Cyc_Event := False;
+            Sig.Flags.RO_Event := False;
          end if;
       end loop;
       Wave_Put_Byte (0);
-- 
cgit v1.2.3