diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-11-04 08:05:19 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-11-05 06:38:19 +0100 |
commit | b106247a9843880bcfa3611444e20696f0fb35ae (patch) | |
tree | 614fb373a86c6ff16a7239478bb2b5780b6901d9 /src/vhdl/iirs_utils.ads | |
parent | 4c7c53b2fb53cd6ff03776b4ce47f6e9f30fd52f (diff) | |
download | ghdl-b106247a9843880bcfa3611444e20696f0fb35ae.tar.gz ghdl-b106247a9843880bcfa3611444e20696f0fb35ae.tar.bz2 ghdl-b106247a9843880bcfa3611444e20696f0fb35ae.zip |
ownership: check tree after sem and canon.
Diffstat (limited to 'src/vhdl/iirs_utils.ads')
-rw-r--r-- | src/vhdl/iirs_utils.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/vhdl/iirs_utils.ads b/src/vhdl/iirs_utils.ads index 0bb46e370..3a1ddfc2c 100644 --- a/src/vhdl/iirs_utils.ads +++ b/src/vhdl/iirs_utils.ads @@ -184,6 +184,13 @@ package Iirs_Utils is -- Create a name that referenced the same named entity as NAME. function Build_Reference_Name (Name : Iir) return Iir; + -- Create a reference to a declaration (or aggregate). + function Build_Reference_Decl (Decl : Iir; Loc : Iir) return Iir; + + -- If N is a reference_name, return the corresponding node, otherwise + -- return N. + function Strip_Reference_Name (N : Iir) return Iir; + -- If SUBTYP has a resolution indication that is a function name, returns -- the function declaration (not the name). function Has_Resolution_Function (Subtyp : Iir) return Iir; |