diff options
Diffstat (limited to 'src/vhdl/vhdl-utils.ads')
| -rw-r--r-- | src/vhdl/vhdl-utils.ads | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-utils.ads b/src/vhdl/vhdl-utils.ads index 4ca9d83e3..e7de3a76c 100644 --- a/src/vhdl/vhdl-utils.ads +++ b/src/vhdl/vhdl-utils.ads @@ -32,6 +32,11 @@ package Vhdl.Utils is function Is_Overflow_Literal (N : Iir) return Boolean; pragma Inline (Is_Overflow_Literal); + -- If N is a literal and has a literal origin, return the literal origin. + -- Otherwise return N. + -- In other words, return the node as it was. + function Strip_Literal_Origin (N : Iir) return Iir; + -- Find LIT in the list of identifiers or characters LIST. -- Return the literal (whose name is LIT) or null_iir if not found. function Find_Name_In_Chain (Chain: Iir; Lit: Name_Id) return Iir; |