slocs.adb: reformat

(no-tn-check)

Change-Id: I0ba0ad1168c501599814d7c2950d6fd1d6912a19

Author: Jugst3r

tools/gnatcov/slocs.adb

@@ -138,8 +138,9 @@ package body Slocs is
    -- Image --
    -----------
 
-   function Image (Sloc : Source_Location;
-                   Unique_Name : Boolean := False) return String is
+   function Image
+     (Sloc        : Source_Location;
+      Unique_Name : Boolean := False) return String is
    begin
       return Abridged_Image
         (Sloc        => Sloc,

tools/gnatcov/slocs.ads

@@ -67,7 +67,7 @@ package Slocs is
    --  Note: No_Location must sort higher than any non-null location
 
    function Image
-     (Sloc : Source_Location;
+     (Sloc        : Source_Location;
       Unique_Name : Boolean := False) return String;
 
    type Source_Location_Range is record