diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-22 17:25:53 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-22 17:25:53 +0200 |
| commit | 51d105ce7368344753ef90f84c2209dd514715bb (patch) | |
| tree | 6c2d9b3be392f2dee0272ba03797f8ecf0ce5a18 /src/vhdl | |
| parent | 1682d41d2faa1dcce87ec55a322695020ea0f751 (diff) | |
| download | ghdl-51d105ce7368344753ef90f84c2209dd514715bb.tar.gz ghdl-51d105ce7368344753ef90f84c2209dd514715bb.tar.bz2 ghdl-51d105ce7368344753ef90f84c2209dd514715bb.zip | |
vhdl: recognize rotate functions.
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/vhdl-ieee-numeric.adb | 12 | ||||
| -rw-r--r-- | src/vhdl/vhdl-nodes.ads | 5 |
2 files changed, 17 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-ieee-numeric.adb b/src/vhdl/vhdl-ieee-numeric.adb index e0876b2ad..c7b53a38b 100644 --- a/src/vhdl/vhdl-ieee-numeric.adb +++ b/src/vhdl/vhdl-ieee-numeric.adb @@ -296,6 +296,14 @@ package body Vhdl.Ieee.Numeric is (Type_Signed => Iir_Predefined_Ieee_Numeric_Std_Shr_Sgn_Nat, Type_Unsigned => Iir_Predefined_Ieee_Numeric_Std_Shr_Uns_Nat); + Rol_Patterns : constant Shift_Pattern_Type := + (Type_Signed => Iir_Predefined_Ieee_Numeric_Std_Rol_Sgn_Nat, + Type_Unsigned => Iir_Predefined_Ieee_Numeric_Std_Rol_Uns_Nat); + + Ror_Patterns : constant Shift_Pattern_Type := + (Type_Signed => Iir_Predefined_Ieee_Numeric_Std_Ror_Sgn_Nat, + Type_Unsigned => Iir_Predefined_Ieee_Numeric_Std_Ror_Uns_Nat); + Error : exception; procedure Extract_Declarations (Pkg_Decl : Iir_Package_Declaration; @@ -622,6 +630,10 @@ package body Vhdl.Ieee.Numeric is Handle_Shift (Shl_Patterns); when Name_Shift_Right => Handle_Shift (Shr_Patterns); + when Name_Rotate_Left => + Handle_Shift (Rol_Patterns); + when Name_Rotate_Right => + Handle_Shift (Ror_Patterns); when others => null; end case; diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index 53c3ba053..27ec94448 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -5005,6 +5005,11 @@ package Vhdl.Nodes is Iir_Predefined_Ieee_Numeric_Std_Shl_Sgn_Nat, Iir_Predefined_Ieee_Numeric_Std_Shr_Sgn_Nat, + Iir_Predefined_Ieee_Numeric_Std_Rol_Uns_Nat, + Iir_Predefined_Ieee_Numeric_Std_Ror_Uns_Nat, + Iir_Predefined_Ieee_Numeric_Std_Rol_Sgn_Nat, + Iir_Predefined_Ieee_Numeric_Std_Ror_Sgn_Nat, + Iir_Predefined_Ieee_Numeric_Std_Not_Uns, Iir_Predefined_Ieee_Numeric_Std_Not_Sgn, |