diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-11-16 05:20:28 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-11-16 05:20:28 +0100 |
| commit | 092e6a9fe0272b1dd82083e4e7dff8ba859a463e (patch) | |
| tree | 1b41931ab64624691f8404c15407278380c0bd2b /src/vhdl/simulate/iir_values.adb | |
| parent | 41ba0f0fe89032eba308eef964bc6235fefa065f (diff) | |
| download | ghdl-092e6a9fe0272b1dd82083e4e7dff8ba859a463e.tar.gz ghdl-092e6a9fe0272b1dd82083e4e7dff8ba859a463e.tar.bz2 ghdl-092e6a9fe0272b1dd82083e4e7dff8ba859a463e.zip | |
simulate: add per signal id.
Diffstat (limited to 'src/vhdl/simulate/iir_values.adb')
| -rw-r--r-- | src/vhdl/simulate/iir_values.adb | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/vhdl/simulate/iir_values.adb b/src/vhdl/simulate/iir_values.adb index 019392b02..62b70f9c2 100644 --- a/src/vhdl/simulate/iir_values.adb +++ b/src/vhdl/simulate/iir_values.adb @@ -340,15 +340,24 @@ package body Iir_Values is function To_Value_Bounds_Array_Acc is new Ada.Unchecked_Conversion (System.Address, Value_Bounds_Array_Acc); + Last_Sig_Id : Signal_Index_Type := 0; + + function Get_Last_Signal_Index return Signal_Index_Type is + begin + return Last_Sig_Id; + end Get_Last_Signal_Index; + function Create_Signal_Value (Sig : Ghdl_Signal_Ptr) return Iir_Value_Literal_Acc is subtype Signal_Value is Iir_Value_Literal (Iir_Value_Signal); function Alloc is new Alloc_On_Pool_Addr (Signal_Value); begin + Last_Sig_Id := Last_Sig_Id + 1; return To_Iir_Value_Literal_Acc (Alloc (Global_Pool'Access, - (Kind => Iir_Value_Signal, Sig => Sig))); + (Kind => Iir_Value_Signal, + Sig => Sig, Sig_Id => Last_Sig_Id))); end Create_Signal_Value; function Create_Terminal_Value (Terminal : Terminal_Index_Type) |