[Ada] System.Object_Reader: minor code clean-up

2018-07-16  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* libgnat/s-objrea.ads: Minor code clean up.

From-SVN: r262711

gcc/ada/ChangeLog

+2018-07-16  Arnaud Charlet  <charlet@adacore.com>
+
+	* libgnat/s-objrea.ads: Minor code clean up.
+
 2018-07-16  Piotr Trojanek  <trojanek@adacore.com>
 
 	* sem_ch3.adb (Process_Discriminants): Adjust reference to the SPARM RM

gcc/ada/libgnat/s-objrea.ads

@@ -43,14 +43,6 @@ package System.Object_Reader is
 
    BUFFER_SIZE : constant := 8 * 1024;
 
-   ------------------
-   -- Object files --
-   ------------------
-
-   type Object_File (<>) is private;
-
-   type Object_File_Access is access Object_File;
-
    ---------------------
    -- Object sections --
    ----------------------
@@ -88,6 +80,14 @@ package System.Object_Reader is
    --  PECOFF | PECOFF_PLUS appears so often as a case choice, would
    --  seem a good idea to have a subtype name covering these two choices ???
 
+   ------------------
+   -- Object files --
+   ------------------
+
+   type Object_File (Format : Object_Format) is private;
+
+   type Object_File_Access is access Object_File;
+
    ------------------------------
    -- Object architecture type --
    ------------------------------