From 80a102249d96b8463de27c35c5ec744bee4e4e43 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 21 Aug 2022 10:37:29 +0200 Subject: simul: handle after clauses in signal assignment --- src/grt/grt-signals.adb | 12 ++++++++++++ src/grt/grt-signals.ads | 6 ++++++ 2 files changed, 18 insertions(+) (limited to 'src/grt') 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; diff --git a/src/grt/grt-signals.ads b/src/grt/grt-signals.ads index 3c605786b..125cbff7f 100644 --- a/src/grt/grt-signals.ads +++ b/src/grt/grt-signals.ads @@ -599,6 +599,12 @@ package Grt.Signals is function Ghdl_Signal_Driving (Sig : Ghdl_Signal_Ptr) return Ghdl_B1; + -- Generic version. + procedure Ghdl_Signal_Start_Assign_Any (Sign : Ghdl_Signal_Ptr; + Rej : Std_Time; + Val : Value_Union; + After : Std_Time); + function Ghdl_Create_Signal_B1 (Val_Ptr : Ghdl_Value_Ptr; Resolv_Func : Resolver_Acc; Resolv_Inst : System.Address) -- cgit v1.2.3