diff options
| author | Tristan Gingold <gingold@adacore.com> | 2015-12-16 09:38:00 +0100 |
|---|---|---|
| committer | Tristan Gingold <gingold@adacore.com> | 2015-12-18 17:16:27 +0100 |
| commit | e8a965f0f42749f7fbcaaee966e24a55fb45d886 (patch) | |
| tree | 448d507f7074f78e80dd4afe5b983609a08396ca /src/grt/grt-fst.adb | |
| parent | 4680da5edb910910c4a31438798bff0bc6e51380 (diff) | |
| download | ghdl-e8a965f0f42749f7fbcaaee966e24a55fb45d886.tar.gz ghdl-e8a965f0f42749f7fbcaaee966e24a55fb45d886.tar.bz2 ghdl-e8a965f0f42749f7fbcaaee966e24a55fb45d886.zip | |
Pass signal values to interfaces. 'sigptr' optimization.
Improve simulation speed by about 20%.
Diffstat (limited to 'src/grt/grt-fst.adb')
| -rw-r--r-- | src/grt/grt-fst.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/grt/grt-fst.adb b/src/grt/grt-fst.adb index a87a4e1ef..9152a29b8 100644 --- a/src/grt/grt-fst.adb +++ b/src/grt/grt-fst.adb @@ -546,7 +546,7 @@ package body Grt.Fst is Str : Std_String_Uncons (0 .. Len - 1); begin for I in Str'Range loop - Str (I) := From_Bit (Sig (I).Value.B1); + Str (I) := From_Bit (Sig (I).Value_Ptr.B1); end loop; fstWriterEmitValueChange (Context, Hand, Str'Address); end; @@ -556,12 +556,12 @@ package body Grt.Fst is Str : Std_String_Uncons (0 .. Len - 1); begin for I in Str'Range loop - Str (I) := From_Std (Sig (I).Value.E8); + Str (I) := From_Std (Sig (I).Value_Ptr.E8); end loop; fstWriterEmitValueChange (Context, Hand, Str'Address); end; when Vcd_Integer32 => - Fst_Put_Integer32 (Hand, Sig (0).Value.E32); + Fst_Put_Integer32 (Hand, Sig (0).Value_Ptr.E32); when Vcd_Float64 => null; when Vcd_Bad => |