Replace Previous_Non_Trivia by equivalent from LAL API

Author: joaopsazevedo

source/ada/lsp-ada_documents.adb

@@ -1109,15 +1109,16 @@ package body LSP.Ada_Documents is
       is
          Previous : Token_Reference :=
            (if Token = No_Token then No_Token
-            else LSP.Utils.Previous_Non_Trivia (Token));
+            else Libadalang.Common.Previous (Token, Exclude_Trivia => True));
 
       begin
          if Previous = No_Token then
             return [];
          end if;
 
          if Kind (Data (Previous)) in Ada_Comma | Ada_Dot then
-            Previous := LSP.Utils.Previous_Non_Trivia (Previous);
+            Previous :=
+              Libadalang.Common.Previous (Previous, Exclude_Trivia => True);
          end if;
 
          declare

source/ada/lsp-utils.adb

@@ -18,6 +18,7 @@
 with Ada.Strings.Unbounded;
 with System;
 
+with Libadalang.Common;
 with Libadalang.Lexer;
 with Libadalang.Sources;
 with Langkit_Support.Diagnostics;
@@ -475,28 +476,6 @@ package body LSP.Utils is
            Column_Number_Formatters.Image (Node.Sloc_Range.Start_Column));
    end Node_Location_Image;
 
-   -------------------------
-   -- Previous_Non_Trivia --
-   -------------------------
-
-   function Previous_Non_Trivia
-     (Token : Libadalang.Common.Token_Reference)
-      return Libadalang.Common.Token_Reference
-   is
-      use Libadalang.Common;
-
-   begin
-      return
-         Result : Token_Reference :=
-           (if Token = No_Token then No_Token else Previous (Token))
-      do
-         while Result /= No_Token and then Libadalang.Common.Is_Trivia (Result)
-         loop
-            Result := Previous (Result);
-         end loop;
-      end return;
-   end Previous_Non_Trivia;
-
    -------------------
    -- Span_To_Slice --
    -------------------

source/ada/lsp-utils.ads

@@ -29,7 +29,6 @@ with LSP.Structures;
 with Langkit_Support.Slocs;
 
 with Libadalang.Analysis;
-with Libadalang.Common;
 
 with Pp.Scanner;
 
@@ -108,12 +107,6 @@ package LSP.Utils is
       return VSS.Strings.Virtual_String;
    --  Return a string representation of the given value.
 
-   function Previous_Non_Trivia
-     (Token : Libadalang.Common.Token_Reference)
-      return Libadalang.Common.Token_Reference;
-   --  Gets the previous Token_Reference relative to Token that is not a
-   --  whitespace nor a comment.
-
    function To_Range
      (Sloc : GPR2.Source_Reference.Object) return LSP.Structures.A_Range;
    --  Convert a GPR2 source location into a LSP range.