From: Arnaud Charlet Date: Mon, 16 Jul 2018 14:10:47 +0000 (+0000) Subject: [Ada] System.Object_Reader: minor code clean-up X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d7925fd3cda9be7ad30d6fe658142500e36c5b39;p=gcc.git [Ada] System.Object_Reader: minor code clean-up 2018-07-16 Arnaud Charlet gcc/ada/ * libgnat/s-objrea.ads: Minor code clean up. From-SVN: r262711 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 0630bcf7878..a09f67fda09 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2018-07-16 Arnaud Charlet + + * libgnat/s-objrea.ads: Minor code clean up. + 2018-07-16 Piotr Trojanek * 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 1cb08cffc2b..7ab53ed8146 100644 --- 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 -- ------------------------------