diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-01-19 05:58:35 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-01-20 07:40:53 +0100 |
| commit | c46dc8215f1d873c0f149cf06875284d9ccbd1a1 (patch) | |
| tree | 875b8fb56e83d664c6ea7e0f8d6fd1916980dd60 /src/vhdl/scanner.ads | |
| parent | ad0208d1dc5dad9b00befbeb16cb74dc94a6b716 (diff) | |
| download | ghdl-c46dc8215f1d873c0f149cf06875284d9ccbd1a1.tar.gz ghdl-c46dc8215f1d873c0f149cf06875284d9ccbd1a1.tar.bz2 ghdl-c46dc8215f1d873c0f149cf06875284d9ccbd1a1.zip | |
scanner: remove use of Nam_Buffer.
Diffstat (limited to 'src/vhdl/scanner.ads')
| -rw-r--r-- | src/vhdl/scanner.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/vhdl/scanner.ads b/src/vhdl/scanner.ads index 610d63140..8907975f4 100644 --- a/src/vhdl/scanner.ads +++ b/src/vhdl/scanner.ads @@ -42,6 +42,13 @@ package Scanner is pragma Inline (Current_String_Id); pragma Inline (Current_String_Length); + -- When the current token is Tok_Bit_String, return the base ('b', 'o', + -- 'x' or 'd') and the sign ('s', 'u', or ' ' for none). + function Get_Bit_String_Base return Character; + function Get_Bit_String_Sign return Character; + pragma Inline (Get_Bit_String_Base); + pragma Inline (Get_Bit_String_Sign); + -- Set Current_identifier to null_identifier. -- Can be used to catch bugs. procedure Invalidate_Current_Identifier; |