diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-11 15:35:20 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-11 15:35:20 +0200 |
| commit | aecf3b2208358bb60ab27c17fadcdedf137be2c8 (patch) | |
| tree | ec215e27b74280fd643d5f9ea3950c54a602b758 /src | |
| parent | f6b61769014221f190b68c3bae4acac1441f79b5 (diff) | |
| download | ghdl-aecf3b2208358bb60ab27c17fadcdedf137be2c8.tar.gz ghdl-aecf3b2208358bb60ab27c17fadcdedf137be2c8.tar.bz2 ghdl-aecf3b2208358bb60ab27c17fadcdedf137be2c8.zip | |
vhdl: recognize math_real.floor. For #1210
Diffstat (limited to 'src')
| -rw-r--r-- | src/std_names.adb | 1 | ||||
| -rw-r--r-- | src/std_names.ads | 13 | ||||
| -rw-r--r-- | src/vhdl/vhdl-ieee-math_real.adb | 2 | ||||
| -rw-r--r-- | src/vhdl/vhdl-nodes.ads | 1 |
4 files changed, 11 insertions, 6 deletions
diff --git a/src/std_names.adb b/src/std_names.adb index 056a77bf3..07d674957 100644 --- a/src/std_names.adb +++ b/src/std_names.adb @@ -664,6 +664,7 @@ package body Std_Names is Def ("xor_reduce", Name_Xor_Reduce); Def ("xnor_reduce", Name_Xnor_Reduce); Def ("ceil", Name_Ceil); + Def ("floor", Name_Floor); Def ("round", Name_Round); Def ("log2", Name_Log2); Def ("sin", Name_Sin); diff --git a/src/std_names.ads b/src/std_names.ads index a736377b7..4a088a239 100644 --- a/src/std_names.ads +++ b/src/std_names.ads @@ -747,12 +747,13 @@ package Std_Names is Name_Xor_Reduce : constant Name_Id := Name_First_Ieee_Name + 034; Name_Xnor_Reduce : constant Name_Id := Name_First_Ieee_Name + 035; Name_Ceil : constant Name_Id := Name_First_Ieee_Name + 036; - Name_Round : constant Name_Id := Name_First_Ieee_Name + 037; - Name_Log2 : constant Name_Id := Name_First_Ieee_Name + 038; - Name_Sin : constant Name_Id := Name_First_Ieee_Name + 039; - Name_Cos : constant Name_Id := Name_First_Ieee_Name + 040; - Name_Ext : constant Name_Id := Name_First_Ieee_Name + 041; - Name_Sxt : constant Name_Id := Name_First_Ieee_Name + 042; + Name_Floor : constant Name_Id := Name_First_Ieee_Name + 037; + Name_Round : constant Name_Id := Name_First_Ieee_Name + 038; + Name_Log2 : constant Name_Id := Name_First_Ieee_Name + 039; + Name_Sin : constant Name_Id := Name_First_Ieee_Name + 040; + Name_Cos : constant Name_Id := Name_First_Ieee_Name + 041; + Name_Ext : constant Name_Id := Name_First_Ieee_Name + 042; + Name_Sxt : constant Name_Id := Name_First_Ieee_Name + 043; Name_Last_Ieee_Name : constant Name_Id := Name_Sxt; Name_First_Synthesis : constant Name_Id := Name_Last_Ieee_Name + 1; diff --git a/src/vhdl/vhdl-ieee-math_real.adb b/src/vhdl/vhdl-ieee-math_real.adb index d4f83e62c..bb3a50ab5 100644 --- a/src/vhdl/vhdl-ieee-math_real.adb +++ b/src/vhdl/vhdl-ieee-math_real.adb @@ -42,6 +42,8 @@ package body Vhdl.Ieee.Math_Real is case Get_Identifier (Decl) is when Name_Ceil => Predef := Iir_Predefined_Ieee_Math_Real_Ceil; + when Name_Floor => + Predef := Iir_Predefined_Ieee_Math_Real_Floor; when Name_Round => Predef := Iir_Predefined_Ieee_Math_Real_Round; when Name_Log2 => diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index 393780a3f..8b9345d00 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -5705,6 +5705,7 @@ package Vhdl.Nodes is -- Math_Real Iir_Predefined_Ieee_Math_Real_Ceil, + Iir_Predefined_Ieee_Math_Real_Floor, Iir_Predefined_Ieee_Math_Real_Round, Iir_Predefined_Ieee_Math_Real_Log2, Iir_Predefined_Ieee_Math_Real_Sin, |