diff options
Diffstat (limited to 'src/vhdl/simulate/iir_values.ads')
| -rw-r--r-- | src/vhdl/simulate/iir_values.ads | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/vhdl/simulate/iir_values.ads b/src/vhdl/simulate/iir_values.ads index 67a431c..92f8cef 100644 --- a/src/vhdl/simulate/iir_values.ads +++ b/src/vhdl/simulate/iir_values.ads @@ -111,17 +111,23 @@ package Iir_Values is Iir_Value_Protected, Iir_Value_Signal, Iir_Value_Terminal, - Iir_Value_Quantity); + Iir_Value_Quantity, + Iir_Value_Environment); type Protected_Index_Type is new Natural; type Quantity_Index_Type is new Natural; type Terminal_Index_Type is new Natural; + type Environment_Index_Type is new Natural; -- Scalar values. Only these ones can be signals. subtype Iir_Value_Scalars is Iir_Value_Kind range Iir_Value_B1 .. Iir_Value_F64; + -- Abstrace numeric types. + subtype Iir_Value_Numerics is + Iir_Value_Kind range Iir_Value_I64 .. Iir_Value_F64; + type Iir_Value_Literal (Kind: Iir_Value_Kind); type Iir_Value_Literal_Acc is access Iir_Value_Literal; @@ -172,6 +178,8 @@ package Iir_Values is Quantity : Quantity_Index_Type; when Iir_Value_Terminal => Terminal : Terminal_Index_Type; + when Iir_Value_Environment => + Environment : Environment_Index_Type; when Iir_Value_Range => Dir: Iir_Direction; Length : Iir_Index32; |