diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-09 08:52:04 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-09 08:52:04 +0000 |
| commit | d70d22d5709ec81d325fa38c103db443d4c12d4a (patch) | |
| tree | bc94628d1f9d8cf33c43a0aa3bdc41dcc042bbcb /gcc/ada/s-direio.adb | |
| parent | b67722058dd614d6c93f89dc5b0f7d4887fbecc9 (diff) | |
| download | gcc-d70d22d5709ec81d325fa38c103db443d4c12d4a.tar.gz | |
2009-04-09 Javier Miranda <miranda@adacore.com>
* sem_ch3.adb (Build_Derived_Record_Type): Fix typo.
(Derive_Progenitor_Subprograms): Handle interfaces in subtypes of
tagged types.
2009-04-09 Robert Dewar <dewar@adacore.com>
* s-direio.adb: Minor reformatting
* exp_ch4.adb (Expand_Concatenate): Avoid overflow checks for String
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145808 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-direio.adb')
| -rw-r--r-- | gcc/ada/s-direio.adb | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/gcc/ada/s-direio.adb b/gcc/ada/s-direio.adb index 8a6dd435e7c..447367cafea 100644 --- a/gcc/ada/s-direio.adb +++ b/gcc/ada/s-direio.adb @@ -63,7 +63,6 @@ package body System.Direct_IO is function AFCB_Allocate (Control_Block : Direct_AFCB) return FCB.AFCB_Ptr is pragma Unreferenced (Control_Block); - begin return new Direct_AFCB; end AFCB_Allocate; @@ -76,7 +75,6 @@ package body System.Direct_IO is procedure AFCB_Close (File : not null access Direct_AFCB) is pragma Unreferenced (File); - begin null; end AFCB_Close; @@ -110,8 +108,8 @@ package body System.Direct_IO is is Dummy_File_Control_Block : Direct_AFCB; pragma Warnings (Off, Dummy_File_Control_Block); - -- Yes, we know this is never assigned a value, only the tag - -- is used for dispatching purposes, so that's expected. + -- Yes, we know this is never assigned a value, only the tag is used for + -- dispatching purposes, so that's expected. begin FIO.Open (File_Ptr => AP (File), @@ -156,8 +154,8 @@ package body System.Direct_IO is is Dummy_File_Control_Block : Direct_AFCB; pragma Warnings (Off, Dummy_File_Control_Block); - -- Yes, we know this is never assigned a value, only the tag - -- is used for dispatching purposes, so that's expected. + -- Yes, we know this is never assigned a value, only the tag is used for + -- dispatching purposes, so that's expected. begin FIO.Open (File_Ptr => AP (File), @@ -254,10 +252,9 @@ package body System.Direct_IO is pragma Warnings (Off, File); -- File is actually modified via Unrestricted_Access below, but -- GNAT will generate a warning anyway. - -- Note that we do not use pragma Unmodified here, since in -gnatc - -- mode, GNAT will complain that File is modified for - -- "File.Index := 1;" - + -- + -- Note that we do not use pragma Unmodified here, since in -gnatc mode, + -- GNAT will complain that File is modified for "File.Index := 1;" begin FIO.Reset (AP (File)'Unrestricted_Access, Mode); File.Index := 1; @@ -267,7 +264,6 @@ package body System.Direct_IO is procedure Reset (File : in out File_Type) is pragma Warnings (Off, File); -- See above (other Reset procedure) for explanations on this pragma - begin FIO.Reset (AP (File)'Unrestricted_Access); File.Index := 1; |