Merge branch 'mr/pmderodat/master' into 'master'

Laltools.Common: remove "<" for Source_Location_Range See merge request eng/ide/libadalang-tools!252
AdaCore · Oct 14, 2024 · fd547cf · fd547cf
2 parents 1759464 + 948a517
commit fd547cf
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 19 deletions.
diff --git a/src/laltools-common.adb b/src/laltools-common.adb
@@ -44,19 +44,6 @@ package body Laltools.Common is
       Message : String := "");
    --  Log an exception in the given traces, with an optional message.
 
-   ---------
-   -- "<" --
-   ---------
-
-   function "<" (Left, Right : Source_Location_Range) return Boolean is
-   begin
-      if Left.Start_Line = Right.Start_Line then
-         return Left.Start_Column < Right.Start_Column;
-      end if;
-
-      return Left.Start_Line < Right.Start_Line;
-   end "<";
-
    ------------------------
    -- Append_If_Not_Null --
    ------------------------

diff --git a/src/laltools-common.ads b/src/laltools-common.ads
@@ -56,12 +56,6 @@ package Laltools.Common is
    --  If Left.Text = Right.Text then Full_Sloc_Image will sort first by
    --  file and then by Sloc (first by line and then by column).
 
-   function "<"
-     (Left, Right : Source_Location_Range)
-      return Boolean;
-   --  Checks if L is < than R, first based on the line number and then on
-   --  the column number
-
    function "<" (Left, Right : Base_Id) return Boolean is
      (Left.Text < Right.Text
       or else Left.Sloc_Range < Right.Sloc_Range);