diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-02-08 16:03:13 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-02-08 16:04:32 +0100 |
commit | c348e697dd910173d6d64dc78b43adad316e892a (patch) | |
tree | f86d6d1aa2fa31d98c1acd85d50c2e8b3de3a1bc /src/vhdl/vhdl-utils.ads | |
parent | d78acf8f24949f608fa0dd20719ea67ba5621a5c (diff) | |
download | ghdl-c348e697dd910173d6d64dc78b43adad316e892a.tar.gz ghdl-c348e697dd910173d6d64dc78b43adad316e892a.tar.bz2 ghdl-c348e697dd910173d6d64dc78b43adad316e892a.zip |
vhdl-canon: remove signal parameters for all-sensitized processes.
Fix #2344
Diffstat (limited to 'src/vhdl/vhdl-utils.ads')
-rw-r--r-- | src/vhdl/vhdl-utils.ads | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-utils.ads b/src/vhdl/vhdl-utils.ads index 4ff81b011..8ea5ac786 100644 --- a/src/vhdl/vhdl-utils.ads +++ b/src/vhdl/vhdl-utils.ads @@ -64,7 +64,6 @@ package Vhdl.Utils is function Get_Object_Prefix (Name: Iir; With_Alias : Boolean := True) return Iir; - -- Return TRUE if NAME is a name that designate an object (ie a constant, -- a variable, a signal or a file). function Is_Object_Name (Name : Iir) return Boolean; @@ -85,6 +84,10 @@ package Vhdl.Utils is -- Return TRUE iff EXPR is a quantity name. function Is_Quantity_Name (Expr : Iir) return Boolean; + -- Return TRUE iff OBJ is a signal parameter (an interface signal of a + -- subprogram). Works only for base names. + function Is_Signal_Parameter (Obj : Iir) return Boolean; + -- Get the interface corresponding to the formal name FORMAL. This is -- always an interface, even if the formal is a name. function Get_Interface_Of_Formal (Formal : Iir) return Iir; |