diff options
Diffstat (limited to 'src/vhdl/vhdl-scanner.adb')
-rw-r--r-- | src/vhdl/vhdl-scanner.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-scanner.adb b/src/vhdl/vhdl-scanner.adb index c17f3553e..1b3243761 100644 --- a/src/vhdl/vhdl-scanner.adb +++ b/src/vhdl/vhdl-scanner.adb @@ -311,6 +311,11 @@ package body Vhdl.Scanner is return Current_Context.Token_Pos; end Get_Token_Position; + function Get_Token_Length return Int32 is + begin + return Int32 (Current_Context.Pos - Current_Context.Token_Pos); + end Get_Token_Length; + function Get_Position return Source_Ptr is begin return Current_Context.Pos; |