vhdl-disp_vhdl: print literals and identifiers from the source.

Add Literal_Length and set it in the parser.

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;