diff options
author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2010-01-12 03:15:20 +0000 |
---|---|---|
committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2010-01-12 03:15:20 +0000 |
commit | fb5957a16dea47ae4021c5d4c57b980cea02ee59 (patch) | |
tree | abdfbed5924f5be4418f74a0afe50b248e41c330 /iirs_utils.ads | |
parent | 8cca0b24e2c19eedecffdeec89a8a2898da1e362 (diff) | |
download | ghdl-fb5957a16dea47ae4021c5d4c57b980cea02ee59.tar.gz ghdl-fb5957a16dea47ae4021c5d4c57b980cea02ee59.tar.bz2 ghdl-fb5957a16dea47ae4021c5d4c57b980cea02ee59.zip |
ghdl 0.29 release.
Diffstat (limited to 'iirs_utils.ads')
-rw-r--r-- | iirs_utils.ads | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/iirs_utils.ads b/iirs_utils.ads index fce466c61..abbed3aa0 100644 --- a/iirs_utils.ads +++ b/iirs_utils.ads @@ -29,9 +29,7 @@ package Iirs_Utils is -- Easier function for string literals. function Get_String_Fat_Acc (Str : Iir) return String_Fat_Acc; - function Get_String_Length (Str : Iir) return Natural; pragma Inline (Get_String_Fat_Acc); - pragma Inline (Get_String_Length); -- Find LIT in the list of identifiers or characters LIST. -- Return the literal (whose name is LIT) or null_iir if not found. @@ -155,5 +153,7 @@ package Iirs_Utils is -- Return TRUE if the base name of NAME is a signal object. function Is_Signal_Object (Name: Iir) return Boolean; + -- IIR wrapper around Get_HDL_Node. + function Get_HDL_Node (N : PSL_Node) return Iir; end Iirs_Utils; |