diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-12-20 08:52:11 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-12-20 08:53:23 +0100 |
commit | c0c405faf6473da4911c05675bc8060971577699 (patch) | |
tree | ab710070315389e8917ecf4d6158d6e0873760a0 /src/synth/synth-ieee-std_logic_1164.ads | |
parent | 17d3225612c4b04ff7f8cb31142791f1a3c515f2 (diff) | |
download | ghdl-c0c405faf6473da4911c05675bc8060971577699.tar.gz ghdl-c0c405faf6473da4911c05675bc8060971577699.tar.bz2 ghdl-c0c405faf6473da4911c05675bc8060971577699.zip |
synth: handle static to_bit and to_bitvector. Fix #1540
Diffstat (limited to 'src/synth/synth-ieee-std_logic_1164.ads')
-rw-r--r-- | src/synth/synth-ieee-std_logic_1164.ads | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/synth/synth-ieee-std_logic_1164.ads b/src/synth/synth-ieee-std_logic_1164.ads index d4e396c3e..9903778f5 100644 --- a/src/synth/synth-ieee-std_logic_1164.ads +++ b/src/synth/synth-ieee-std_logic_1164.ads @@ -22,6 +22,13 @@ with Types; use Types; with Synth.Objtypes; use Synth.Objtypes; package Synth.Ieee.Std_Logic_1164 is + + -- For std.standard. Should a package be created ? + type Bit is ('0', '1'); + + function Read_Bit (M : Memory_Ptr; Off : Uns32) return Bit; + procedure Write_Bit (M : Memory_Ptr; Off : Uns32; Val : Bit); + -- From openieee. -- Unresolved logic state. @@ -47,6 +54,8 @@ package Synth.Ieee.Std_Logic_1164 is function Read_Bit_To_Std_Logic (M : Memory_Ptr; Off : Uns32) return Std_Ulogic; + function To_Bit (S : Std_Ulogic; Xmap : Bit) return Bit; + type Table_1d is array (Std_Ulogic) of Std_Ulogic; type Table_2d is array (Std_Ulogic, Std_Ulogic) of Std_Ulogic; |