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/vhdl/translate/trans-helpers2.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/vhdl/translate/trans-helpers2.adb')
-rw-r--r-- | src/vhdl/translate/trans-helpers2.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-helpers2.adb b/src/vhdl/translate/trans-helpers2.adb index 6b8b28b49..03e0e8b8b 100644 --- a/src/vhdl/translate/trans-helpers2.adb +++ b/src/vhdl/translate/trans-helpers2.adb @@ -240,7 +240,7 @@ package body Trans.Helpers2 is El := Get_Nth_Element (List, I); exit when El = Null_Iir; Open_Temp; - Sig := Chap6.Translate_Name (El); + Sig := Chap6.Translate_Name (El, Mode_Signal); Register_Signal (Sig, Get_Type (El), Proc); Close_Temp; end loop; @@ -314,4 +314,3 @@ package body Trans.Helpers2 is (Ghdl_I32_Type, Integer_64 (Line)))); end Assoc_Filename_Line; end Trans.Helpers2; - |