Instrument.C_Utils: minor reformattings

TN: V728-002
Change-Id: Ia897f1aaab37f3d9f60d84d5d91ab14974613af0

Author: pmderodat

tools/gnatcov/instrument-c.adb

@@ -451,7 +451,7 @@ package body Instrument.C is
             Deleted : Boolean := False;
          begin
             --  Check that no SCOs on the line of the annotation intersect
-            --  the anntoation Sloc. If one does, discard the annotation and
+            --  the annotation Sloc. If one does, discard the annotation and
             --  warn the user as this is not a supported use case.
 
             if LI /= null and then LI.SCOs /= null

tools/gnatcov/instrument-c_utils.adb

@@ -34,14 +34,13 @@ package body Instrument.C_Utils is
    ----------
 
    function Sloc (Loc : Source_Location_T) return Source_Location is
-      Line : aliased Interfaces.C.unsigned;
-      Column : aliased Interfaces.C.unsigned;
+      Line, Column : aliased Interfaces.C.unsigned;
    begin
       Get_Presumed_Location (Location => Loc,
                              Filename => null,
                              Line     => Line'Access,
                              Column   => Column'Access);
-      return (Line => Langkit_Support.Slocs.Line_Number (Line),
+      return (Line   => Langkit_Support.Slocs.Line_Number (Line),
               Column => Langkit_Support.Slocs.Column_Number (Column));
    end Sloc;
 
@@ -50,16 +49,15 @@ package body Instrument.C_Utils is
    ----------------
 
    function Start_Sloc (N : Cursor_T) return Source_Location is
-      Line   : aliased Interfaces.C.unsigned;
-      Column : aliased Interfaces.C.unsigned;
-      Loc    : constant Source_Location_T :=
+      Line, Column : aliased Interfaces.C.unsigned;
+      Loc          : constant Source_Location_T :=
         Get_Range_Start (Get_Cursor_Extent (N));
    begin
       Get_Presumed_Location (Location => Loc,
                              Filename => null,
                              Line     => Line'Access,
                              Column   => Column'Access);
-      return (Line => Langkit_Support.Slocs.Line_Number (Line),
+      return (Line   => Langkit_Support.Slocs.Line_Number (Line),
               Column => Langkit_Support.Slocs.Column_Number (Column));
    end Start_Sloc;
 
@@ -68,9 +66,8 @@ package body Instrument.C_Utils is
    --------------
 
    function End_Sloc (N : Cursor_T) return Source_Location is
-      Line   : aliased Interfaces.C.unsigned;
-      Column : aliased Interfaces.C.unsigned;
-      Loc    : Source_Location_T :=
+      Line, Column : aliased Interfaces.C.unsigned;
+      Loc          : Source_Location_T :=
         Get_Range_End (Get_Cursor_Extent (N));
    begin
       if Is_Macro_Location (Loc) then

tools/gnatcov/instrument-c_utils.ads

@@ -19,8 +19,8 @@
 with Ada.Containers; use Ada.Containers;
 with Ada.Containers.Vectors;
 
-with Clang.Index;      use Clang.Index;
-with Clang.Rewrite;    use Clang.Rewrite;
+with Clang.Index;   use Clang.Index;
+with Clang.Rewrite; use Clang.Rewrite;
 
 with Langkit_Support.Slocs; use Langkit_Support.Slocs;