diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-12-05 04:36:09 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-12-05 04:36:09 +0100 |
commit | 619a6e10cbcd439ba2a499ea74357774e9d4ffae (patch) | |
tree | cc38138c1c06cf7cb69ec26965aeea4835882258 /src/vhdl/simulate/simul-environments.adb | |
parent | 6fa695890d8ccae675f3606d25e2bb58bbfb243e (diff) | |
download | ghdl-619a6e10cbcd439ba2a499ea74357774e9d4ffae.tar.gz ghdl-619a6e10cbcd439ba2a499ea74357774e9d4ffae.tar.bz2 ghdl-619a6e10cbcd439ba2a499ea74357774e9d4ffae.zip |
simul: handle package interface, remove iir_value_environment.
Diffstat (limited to 'src/vhdl/simulate/simul-environments.adb')
-rw-r--r-- | src/vhdl/simulate/simul-environments.adb | 39 |
1 files changed, 7 insertions, 32 deletions
diff --git a/src/vhdl/simulate/simul-environments.adb b/src/vhdl/simulate/simul-environments.adb index aaf44e562..4e8622da3 100644 --- a/src/vhdl/simulate/simul-environments.adb +++ b/src/vhdl/simulate/simul-environments.adb @@ -87,8 +87,7 @@ package body Simul.Environments is | Iir_Value_Protected | Iir_Value_Quantity | Iir_Value_Terminal - | Iir_Value_Instance - | Iir_Value_Environment => + | Iir_Value_Instance => raise Internal_Error; end case; end Is_Equal; @@ -195,8 +194,7 @@ package body Simul.Environments is | Iir_Value_Protected | Iir_Value_Quantity | Iir_Value_Terminal - | Iir_Value_Instance - | Iir_Value_Environment => + | Iir_Value_Instance => raise Internal_Error; end case; end Compare_Value; @@ -239,8 +237,7 @@ package body Simul.Environments is | Iir_Value_Protected | Iir_Value_Quantity | Iir_Value_Terminal - | Iir_Value_Instance - | Iir_Value_Environment => + | Iir_Value_Instance => raise Internal_Error; end case; end Increment; @@ -288,8 +285,7 @@ package body Simul.Environments is when Iir_Value_Range | Iir_Value_Quantity | Iir_Value_Terminal - | Iir_Value_Instance - | Iir_Value_Environment => + | Iir_Value_Instance => raise Internal_Error; end case; end Store; @@ -332,8 +328,7 @@ package body Simul.Environments is | Iir_Value_Protected | Iir_Value_Quantity | Iir_Value_Terminal - | Iir_Value_Instance - | Iir_Value_Environment => + | Iir_Value_Instance => raise Internal_Error; end case; end Check_Bounds; @@ -387,17 +382,6 @@ package body Simul.Environments is (Kind => Iir_Value_Quantity, Quantity => Quantity))); end Create_Quantity_Value; - function Create_Environment_Value (Env : Environment_Index_Type) - return Iir_Value_Literal_Acc - is - subtype Environment_Value is Iir_Value_Literal (Iir_Value_Environment); - function Alloc is new Alloc_On_Pool_Addr (Environment_Value); - begin - return To_Iir_Value_Literal_Acc - (Alloc (Global_Pool'Access, - (Kind => Iir_Value_Environment, Environment => Env))); - end Create_Environment_Value; - function Create_Instance_Value (Inst : Block_Instance_Acc) return Iir_Value_Literal_Acc is @@ -703,9 +687,6 @@ package body Simul.Environments is pragma Assert (Src.Sig = null); return Create_Signal_Value (Src.Sig); - when Iir_Value_Environment => - return Create_Environment_Value (Src.Environment); - when Iir_Value_Quantity | Iir_Value_Terminal | Iir_Value_Instance => @@ -808,8 +789,7 @@ package body Simul.Environments is | Iir_Value_Protected | Iir_Value_Terminal | Iir_Value_Quantity - | Iir_Value_Instance - | Iir_Value_Environment => + | Iir_Value_Instance => raise Internal_Error; end case; end Get_Nbr_Of_Scalars; @@ -935,8 +915,6 @@ package body Simul.Environments is Put_Line ("terminal"); when Iir_Value_Instance => Put_Line ("instance"); - when Iir_Value_Environment => - Put_Line ("environment"); end case; end Disp_Value_Tab; @@ -955,8 +933,7 @@ package body Simul.Environments is | Iir_Value_Protected | Iir_Value_Quantity | Iir_Value_Terminal - | Iir_Value_Instance - | Iir_Value_Environment => + | Iir_Value_Instance => return False; when Iir_Value_Range => return Is_Indirect (Value.Left) @@ -1143,8 +1120,6 @@ package body Simul.Environments is Put ("[protected]"); when Iir_Value_Instance => Put ("[instance]"); - when Iir_Value_Environment => - Put ("[environment]"); end case; end Disp_Iir_Value; end Simul.Environments; |