From 5f4992cf1b8cd862b5b1cde498e2a7a867439b5a Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 19 Jun 2020 06:43:48 +0200 Subject: vhdl: decode to_x01 (from ieee.std_logic_1164) --- src/vhdl/vhdl-ieee-std_logic_1164.adb | 7 +++++++ src/vhdl/vhdl-nodes.ads | 21 +++++++++++++++++++++ 2 files changed, 28 insertions(+) (limited to 'src/vhdl') diff --git a/src/vhdl/vhdl-ieee-std_logic_1164.adb b/src/vhdl/vhdl-ieee-std_logic_1164.adb index bb4b12bce..44fc5f631 100644 --- a/src/vhdl/vhdl-ieee-std_logic_1164.adb +++ b/src/vhdl/vhdl-ieee-std_logic_1164.adb @@ -322,6 +322,13 @@ package body Vhdl.Ieee.Std_Logic_1164 is Predefined := Iir_Predefined_Ieee_1164_To_Stdulogicvector_Bv; end if; + when Name_To_X01 => + if Is_Vector_Function (Decl) then + -- TODO: distinguish slv/suv. + Predefined := Iir_Predefined_Ieee_1164_To_X01_Slv; + elsif Is_Scalar_Function (Decl) then + Predefined := Iir_Predefined_Ieee_1164_To_X01_Log; + end if; when others => if Is_Scalar_Scalar_Function (Decl) then case Get_Identifier (Decl) is diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index 97eeccf24..07faf5b7b 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -5500,6 +5500,27 @@ package Vhdl.Nodes is Iir_Predefined_Ieee_1164_To_Stdulogicvector_Bv, Iir_Predefined_Ieee_1164_To_Stdulogicvector_Slv, + Iir_Predefined_Ieee_1164_To_X01_Slv, + Iir_Predefined_Ieee_1164_To_X01_Suv, + Iir_Predefined_Ieee_1164_To_X01_Log, + Iir_Predefined_Ieee_1164_To_X01_Bv_Slv, + Iir_Predefined_Ieee_1164_To_X01_Bv_Suv, + Iir_Predefined_Ieee_1164_To_X01_Bit_Log, + + Iir_Predefined_Ieee_1164_To_X01Z_Slv, + Iir_Predefined_Ieee_1164_To_X01Z_Suv, + Iir_Predefined_Ieee_1164_To_X01Z_Log, + Iir_Predefined_Ieee_1164_To_X01Z_Bv_Slv, + Iir_Predefined_Ieee_1164_To_X01Z_Bv_Suv, + Iir_Predefined_Ieee_1164_To_X01Z_Bit_Log, + + Iir_Predefined_Ieee_1164_To_UX01_Slv, + Iir_Predefined_Ieee_1164_To_UX01_Suv, + Iir_Predefined_Ieee_1164_To_UX01_Log, + Iir_Predefined_Ieee_1164_To_UX01_Bv_Slv, + Iir_Predefined_Ieee_1164_To_UX01_Bv_Suv, + Iir_Predefined_Ieee_1164_To_UX01_Bit_Log, + Iir_Predefined_Ieee_1164_Vector_Is_X, Iir_Predefined_Ieee_1164_Scalar_Is_X, -- cgit v1.2.3