diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-05-16 21:29:51 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-05-16 21:29:51 +0200 |
commit | 5a498b26f5fef355533f482aba3978fd8ca16464 (patch) | |
tree | 648ca94f55375d22325cc07028e60d528f81113b /src/synth/synth-ieee-std_logic_1164.ads | |
parent | e6858e36af15c73fe931a7b791051303485ca5e5 (diff) | |
download | ghdl-5a498b26f5fef355533f482aba3978fd8ca16464.tar.gz ghdl-5a498b26f5fef355533f482aba3978fd8ca16464.tar.bz2 ghdl-5a498b26f5fef355533f482aba3978fd8ca16464.zip |
synth: use memtyp for synth-ieee-numeric_std, add more signed mul.
Diffstat (limited to 'src/synth/synth-ieee-std_logic_1164.ads')
-rw-r--r-- | src/synth/synth-ieee-std_logic_1164.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/synth/synth-ieee-std_logic_1164.ads b/src/synth/synth-ieee-std_logic_1164.ads index 14309cd42..fc82c94b8 100644 --- a/src/synth/synth-ieee-std_logic_1164.ads +++ b/src/synth/synth-ieee-std_logic_1164.ads @@ -18,6 +18,9 @@ -- Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, -- MA 02110-1301, USA. +with Types; use Types; +with Synth.Objtypes; use Synth.Objtypes; + package Synth.Ieee.Std_Logic_1164 is -- From openieee. @@ -37,6 +40,9 @@ package Synth.Ieee.Std_Logic_1164 is subtype X01 is Std_Ulogic range 'X' .. '1'; + function Read_Std_Logic (M : Memory_Ptr; Off : Uns32) return Std_Ulogic; + procedure Write_Std_Logic (M : Memory_Ptr; Off : Uns32; Val : Std_Ulogic); + -- Vector of logic state. -- First index is the leftest. type Std_Logic_Vector is array (Natural range <>) of Std_Ulogic; |