simul: preliminary work for environments.HEADmaster

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;