diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-11 20:31:06 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-11 20:31:06 +0200 |
| commit | 854dbc3a0f780a8cbad5a0cee2611ee24fdb2c8e (patch) | |
| tree | 74f455132b18bd6c70dbf600362286cf297e8cc3 /src/synth/netlists-builders.ads | |
| parent | 6df69fa59e5a33ee8e103bfba16ba77a7a94826a (diff) | |
| download | ghdl-854dbc3a0f780a8cbad5a0cee2611ee24fdb2c8e.tar.gz ghdl-854dbc3a0f780a8cbad5a0cee2611ee24fdb2c8e.tar.bz2 ghdl-854dbc3a0f780a8cbad5a0cee2611ee24fdb2c8e.zip | |
synth: handle unsigned shift left.
Diffstat (limited to 'src/synth/netlists-builders.ads')
| -rw-r--r-- | src/synth/netlists-builders.ads | 5 |
1 files changed, 5 insertions, 0 deletions
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); |