From d70d22d5709ec81d325fa38c103db443d4c12d4a Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 9 Apr 2009 08:52:04 +0000 Subject: 2009-04-09 Javier Miranda * sem_ch3.adb (Build_Derived_Record_Type): Fix typo. (Derive_Progenitor_Subprograms): Handle interfaces in subtypes of tagged types. 2009-04-09 Robert Dewar * 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 --- gcc/ada/s-direio.adb | 18 +++++++----------- 1 file changed, 7 insertions(+), 11 deletions(-) (limited to 'gcc/ada/s-direio.adb') 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; -- cgit v1.2.1