diff options
Diffstat (limited to 'src/packrat-tokens.adb')
| -rw-r--r-- | src/packrat-tokens.adb | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/src/packrat-tokens.adb b/src/packrat-tokens.adb index aae0ae6..e0ea10d 100644 --- a/src/packrat-tokens.adb +++ b/src/packrat-tokens.adb @@ -19,14 +19,12 @@ package body Tokens is function Create (Ident : in Label_Enum; Start : in Positive; - Finish : in Natural; Value : in Element_Array) return Token is begin return This : Token do This.Identifier := Ident; This.Start_At := Start; - This.Finish_At := Finish; This.Token_Value := Value_Holders.To_Holder (Value); end return; end Create; @@ -42,8 +40,7 @@ package body Tokens is Result : SU.Unbounded_String := +""; begin SU.Append (Result, "Token " & Label_Enum'Image (This.Identifier) & - " at input position" & Integer'Image (This.Start_At) & " to" & - Integer'Image (This.Finish_At) & " with value length" & + " at input position" & Integer'Image (This.Start_At) & " with value length" & Integer'Image (This.Token_Value.Constant_Reference.Element'Length) & Latin.LF); return -Result; end Debug_String; @@ -68,14 +65,6 @@ package body Tokens is end Start; - function Finish - (This : in Token) - return Natural is - begin - return This.Finish_At; - end Finish; - - function Value (This : in Token) return Element_Array is |