diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-03-18 04:11:15 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-03-18 05:22:03 +0100 |
| commit | d0b0f30b71d77e2dbf9952e9accd8e50e69fc731 (patch) | |
| tree | 703643a335e857b4a151fc7fe4c9d57e9cd9221f /src/vhdl/translate | |
| parent | 429789acdf2152dde36df18415dc45985f9c1415 (diff) | |
| download | ghdl-d0b0f30b71d77e2dbf9952e9accd8e50e69fc731.tar.gz ghdl-d0b0f30b71d77e2dbf9952e9accd8e50e69fc731.tar.bz2 ghdl-d0b0f30b71d77e2dbf9952e9accd8e50e69fc731.zip | |
PSL translate: handle bit type.
Diffstat (limited to 'src/vhdl/translate')
| -rw-r--r-- | src/vhdl/translate/trans-chap9.adb | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb index 1bc8aa5a3..fe3545463 100644 --- a/src/vhdl/translate/trans-chap9.adb +++ b/src/vhdl/translate/trans-chap9.adb @@ -341,15 +341,19 @@ package body Trans.Chap9 is case Get_Kind (Expr) is when N_HDL_Expr => declare - E : Iir; - Rtype : Iir; + E : constant Iir := Get_HDL_Node (Expr); + Rtype : constant Iir := Get_Base_Type (Get_Type (E)); Res : O_Enode; begin - E := Get_HDL_Node (Expr); - Rtype := Get_Base_Type (Get_Type (E)); Res := Chap7.Translate_Expression (E); if Rtype = Boolean_Type_Definition then return Res; + elsif Rtype = Bit_Type_Definition then + return New_Compare_Op + (ON_Eq, + Res, + New_Lit (Get_Ortho_Expr (Bit_1)), + Get_Ortho_Type (Boolean_Type_Definition, Mode_Value)); elsif Rtype = Ieee.Std_Logic_1164.Std_Ulogic_Type then return New_Value (New_Indexed_Element |