[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 0630bcf787824394367f76c1b2f319a51dc5b1fa..a09f67fda09dd2dfcb75be0f9a162f999a9db5e7 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+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

diff --git a/gcc/ada/libgnat/s-objrea.ads b/gcc/ada/libgnat/s-objrea.ads
index 1cb08cffc2b5e7c5981383b34fa65d54a42a9e23..7ab53ed81460d92b349f34e961fae03617ee5621 100644 (file)
--- a/gcc/ada/libgnat/s-objrea.ads
+++ b/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 --
    ------------------------------