diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-12-05 20:03:14 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-12-05 20:03:14 +0100 |
commit | 962db30624215804452afa70ce2d1d32e497cc02 (patch) | |
tree | aca3a71626ef149937e3438f3c1dbd7e55a2fd4b /src/vhdl/scanner.ads | |
parent | 457d8d9a1364e6d3d1506a9a25d6aa5c621b210d (diff) | |
download | ghdl-962db30624215804452afa70ce2d1d32e497cc02.tar.gz ghdl-962db30624215804452afa70ce2d1d32e497cc02.tar.bz2 ghdl-962db30624215804452afa70ce2d1d32e497cc02.zip |
parse: refactoring to improve error messages.
Diffstat (limited to 'src/vhdl/scanner.ads')
-rw-r--r-- | src/vhdl/scanner.ads | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/scanner.ads b/src/vhdl/scanner.ads index 3b50a9712..2fc3db7be 100644 --- a/src/vhdl/scanner.ads +++ b/src/vhdl/scanner.ads @@ -123,6 +123,11 @@ package Scanner is function Get_Token_Offset return Natural; function Get_Token_Position return Source_Ptr; + -- Return the initial location before the current token (ie before all + -- the blanks, comments and newlines have been skipped). Useful for the + -- location of a missing token. + function Get_Prev_Location return Location_Type; + -- Convert (canonicalize) an identifier stored in name_buffer/name_length. -- Upper case letters are converted into lower case. -- Lexical checks are performed. |