diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-08-21 10:37:29 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-08-21 10:37:29 +0200 |
| commit | 80a102249d96b8463de27c35c5ec744bee4e4e43 (patch) | |
| tree | e3127fe55bd3d22d1b1ced0f6a7cc0553a7318f5 /src/grt/grt-signals.adb | |
| parent | 50cc406f59c3b9b063b47b4fada0d6a5e590f03c (diff) | |
| download | ghdl-80a102249d96b8463de27c35c5ec744bee4e4e43.tar.gz ghdl-80a102249d96b8463de27c35c5ec744bee4e4e43.tar.bz2 ghdl-80a102249d96b8463de27c35c5ec744bee4e4e43.zip | |
simul: handle after clauses in signal assignment
Diffstat (limited to 'src/grt/grt-signals.adb')
| -rw-r--r-- | src/grt/grt-signals.adb | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/grt/grt-signals.adb b/src/grt/grt-signals.adb index 02bfd4753..b88aaf026 100644 --- a/src/grt/grt-signals.adb +++ b/src/grt/grt-signals.adb @@ -1076,6 +1076,18 @@ package body Grt.Signals is Ghdl_Signal_Start_Assign (Sign, 0, Trans, 0); end Ghdl_Signal_Simple_Assign_B1; + procedure Ghdl_Signal_Start_Assign_Any (Sign : Ghdl_Signal_Ptr; + Rej : Std_Time; + Val : Value_Union; + After : Std_Time) + is + Trans : Transaction_Acc; + begin + Trans := new Transaction' + (Kind => Trans_Value, Line => 0, Time => 0, Next => null, Val => Val); + Ghdl_Signal_Start_Assign (Sign, Rej, Trans, After); + end Ghdl_Signal_Start_Assign_Any; + procedure Ghdl_Signal_Start_Assign_B1 (Sign : Ghdl_Signal_Ptr; Rej : Std_Time; Val : Ghdl_B1; |