From 7fc2f111d011a82e9a4a7b5aba698e5ccffec871 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 30 May 2022 04:12:34 +0200 Subject: synth-vhdl_oper: add hooks for bit edge --- src/synth/synth-vhdl_oper.adb | 12 ++++++++++++ src/synth/synth-vhdl_oper.ads | 3 +++ 2 files changed, 15 insertions(+) diff --git a/src/synth/synth-vhdl_oper.adb b/src/synth/synth-vhdl_oper.adb index 0f25e63da..7c589b993 100644 --- a/src/synth/synth-vhdl_oper.adb +++ b/src/synth/synth-vhdl_oper.adb @@ -1917,6 +1917,18 @@ package body Synth.Vhdl_Oper is return Synth_Minmax (Ctxt, L, R, Res_Typ, Id_Slt, Expr); when Iir_Predefined_Integer_Maximum => return Synth_Minmax (Ctxt, L, R, Res_Typ, Id_Sgt, Expr); + when Iir_Predefined_Bit_Rising_Edge => + if Hook_Bit_Rising_Edge /= null then + return Create_Value_Memtyp + (Hook_Bit_Rising_Edge.all (L, Res_Typ)); + end if; + raise Internal_Error; + when Iir_Predefined_Bit_Falling_Edge => + if Hook_Bit_Falling_Edge /= null then + return Create_Value_Memtyp + (Hook_Bit_Falling_Edge.all (L, Res_Typ)); + end if; + raise Internal_Error; when Iir_Predefined_Ieee_1164_Rising_Edge => if Hook_Std_Rising_Edge /= null then return Create_Value_Memtyp diff --git a/src/synth/synth-vhdl_oper.ads b/src/synth/synth-vhdl_oper.ads index 30d32820f..f02d4d55c 100644 --- a/src/synth/synth-vhdl_oper.ads +++ b/src/synth/synth-vhdl_oper.ads @@ -47,6 +47,9 @@ package Synth.Vhdl_Oper is type Eval_Predefined_Acc is access function (Param : Valtyp; Res_Typ : Type_Acc) return Memtyp; + Hook_Bit_Rising_Edge : Eval_Predefined_Acc; + Hook_Bit_Falling_Edge : Eval_Predefined_Acc; + Hook_Std_Rising_Edge : Eval_Predefined_Acc; Hook_Std_Falling_Edge : Eval_Predefined_Acc; end Synth.Vhdl_Oper; -- cgit v1.2.3