diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2018-07-16 14:10:47 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-07-16 14:10:47 +0000 |
| commit | d7925fd3cda9be7ad30d6fe658142500e36c5b39 (patch) | |
| tree | c49c753d94e3b0256647b178cbdb119b3a341b1e | |
| parent | 94b105618c3a42222a3ffa12fb3f97924ba972b0 (diff) | |
| download | gcc-d7925fd3cda9be7ad30d6fe658142500e36c5b39.zip gcc-d7925fd3cda9be7ad30d6fe658142500e36c5b39.tar.gz gcc-d7925fd3cda9be7ad30d6fe658142500e36c5b39.tar.bz2 | |
[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
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/libgnat/s-objrea.ads | 16 |
2 files changed, 12 insertions, 8 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 0630bcf..a09f67f 100644 --- 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 1cb08cf..7ab53ed 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 -- ------------------------------ |