diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-10-30 07:11:28 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-10-30 07:11:28 +0100 |
commit | ce10f7dbd57cb5d2273567aa536bfce79620849c (patch) | |
tree | 62fdd99a17aa09a04166e014444aeb8b732dce81 /src/grt/grt-waves.adb | |
parent | ab70415983fec433dd35aea6cc8b107699a5aff0 (diff) | |
download | ghdl-ce10f7dbd57cb5d2273567aa536bfce79620849c.tar.gz ghdl-ce10f7dbd57cb5d2273567aa536bfce79620849c.tar.bz2 ghdl-ce10f7dbd57cb5d2273567aa536bfce79620849c.zip |
Rework callbacks, support cocotb.
Diffstat (limited to 'src/grt/grt-waves.adb')
-rw-r--r-- | src/grt/grt-waves.adb | 12 |
1 files changed, 6 insertions, 6 deletions
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); |