From 854dbc3a0f780a8cbad5a0cee2611ee24fdb2c8e Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 11 Sep 2019 20:31:06 +0200 Subject: synth: handle unsigned shift left. --- src/synth/netlists-builders.ads | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/synth/netlists-builders.ads') diff --git a/src/synth/netlists-builders.ads b/src/synth/netlists-builders.ads index aeeaaa53d..1493ed194 100644 --- a/src/synth/netlists-builders.ads +++ b/src/synth/netlists-builders.ads @@ -37,6 +37,10 @@ package Netlists.Builders is Id : Dyadic_Module_Id; L, R : Net) return Net; + function Build_Shift (Ctxt : Context_Acc; + Id : Shift_Module_Id; + L, R : Net) return Net; + function Build_Monadic (Ctxt : Context_Acc; Id : Monadic_Module_Id; Op : Net) return Net; @@ -160,6 +164,7 @@ private Parent : Module; Num : Uns32; M_Dyadic : Module_Arr (Dyadic_Module_Id); + M_Shift : Module_Arr (Shift_Module_Id); M_Monadic : Module_Arr (Monadic_Module_Id); M_Compare : Module_Arr (Compare_Module_Id); M_Concat : Module_Arr (Concat_Module_Id); -- cgit v1.2.3