diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-04-27 05:39:21 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-04-27 05:41:59 +0200 |
commit | e5db4322421c85098f2a89ca327e933df345db76 (patch) | |
tree | 77c6e6b890a3f7d97e846f444323c33abd263912 /src/vhdl/vhdl-sem_expr.adb | |
parent | 2e285fc8bbae38105fb632e02527675498bbcc13 (diff) | |
download | ghdl-e5db4322421c85098f2a89ca327e933df345db76.tar.gz ghdl-e5db4322421c85098f2a89ca327e933df345db76.tar.bz2 ghdl-e5db4322421c85098f2a89ca327e933df345db76.zip |
vhdl-sem_expr: minor renaming
Diffstat (limited to 'src/vhdl/vhdl-sem_expr.adb')
-rw-r--r-- | src/vhdl/vhdl-sem_expr.adb | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb index 9a70867fe..425d2bf80 100644 --- a/src/vhdl/vhdl-sem_expr.adb +++ b/src/vhdl/vhdl-sem_expr.adb @@ -888,12 +888,15 @@ package body Vhdl.Sem_Expr is return Res; end Sem_Discrete_Range_Integer; - function Is_Ieee_Operator (Imp : Iir) return Boolean + function Is_Ieee_Operation (Imp : Iir) return Boolean is use Std_Names; Parent : Iir; begin pragma Assert (Get_Kind (Imp) = Iir_Kind_Function_Declaration); + + -- TODO: remove this code so that all operations are allowed (and not + -- only operators). case Get_Identifier (Imp) is when Name_Id_Operators | Name_Word_Operators @@ -908,7 +911,7 @@ package body Vhdl.Sem_Expr is Parent := Get_Parent (Imp); return Parent = Vhdl.Ieee.Numeric.Numeric_Std_Pkg or Parent = Vhdl.Ieee.Std_Logic_1164.Std_Logic_1164_Pkg; - end Is_Ieee_Operator; + end Is_Ieee_Operation; procedure Set_Function_Call_Staticness (Expr : Iir; Imp : Iir) is @@ -986,7 +989,7 @@ package body Vhdl.Sem_Expr is Staticness := None; when Iir_Predefined_Explicit => if Vhdl_Std >= Vhdl_08 - and then Is_Ieee_Operator (Imp) + and then Is_Ieee_Operation (Imp) then null; elsif Get_Pure_Flag (Imp) then |