2005-09-01 Robert Dewar <dewar@adacore.com>

	* a-dirval-mingw.adb, a-direct.adb, a-coinve.adb,
	g-dynhta.adb, g-dynhta.ads, cstand.adb, exp_smem.adb, g-debuti.ads,
	g-dirope.adb, g-table.adb, lib-sort.adb, sem_maps.adb,
	exp_fixd.adb, exp_aggr.adb, a-intnam-mingw.ads, a-intnam-vxworks.ads,
	g-arrspl.adb, g-arrspl.ads, g-awk.adb, g-awk.ads, g-boubuf.ads,
	g-boubuf.ads, g-boubuf.ads, g-bubsor.ads, g-bubsor.adb, g-busora.adb,
	g-busora.ads, g-busorg.adb, g-busorg.ads, g-calend.adb, g-calend.ads,
	g-casuti.adb, g-casuti.ads, g-catiio.adb, g-catiio.ads, g-cgi.adb,
	g-cgi.ads, g-cgicoo.adb, g-cgicoo.ads, g-cgideb.adb, g-cgideb.ads,
	g-comlin.adb, g-comver.ads, g-semaph.ads, g-socthi.ads,
	sem_ch7.adb, a-direio.adb, a-caldel.ads, i-cstrea-vms.adb,
	a-ztedit.adb, a-ztenau.adb, g-socthi-vms.adb, g-socthi-vms.ads,
	g-socthi-mingw.adb, g-socthi-mingw.ads, g-socthi-vxworks.ads,
	a-intnam-irix.ads, a-intnam-irix.ads, a-intnam-hpux.ads,
	a-intnam-os2.ads, a-intnam-os2.ads, a-caldel-vms.adb, a-calend-vms.adb,
	a-calend-vms.ads, g-heasor.adb, g-heasor.ads, g-hesora.adb,
	g-hesora.ads, g-hesorg.adb, g-hesorg.ads, g-htable.adb, g-htable.ads,
	g-io.adb, g-io.ads, g-io_aux.adb, g-io_aux.ads, g-locfil.ads,
	g-memdum.adb, g-memdum.ads, g-traceb.adb, g-traceb.ads, i-cobol.adb,
	i-cobol.ads, i-cstrea.ads, i-cstrin.adb, a-wtedit.adb, a-tifiio.adb,
	a-wtenau.adb, a-wtenau.adb, a-teioed.adb: Minor reformatting


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103894 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 13 insertions, 22 deletions

diff --git a/gcc/ada/i-cobol.ads b/gcc/ada/i-cobol.ads
index 43b46276ac4..f474d69cc05 100644
--- a/gcc/ada/i-cobol.ads
+++ b/gcc/ada/i-cobol.ads
@@ -7,7 +7,7 @@
 --                                 S p e c                                  --
 --                             (ASCII Version)                              --
 --                                                                          --
---          Copyright (C) 1993-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1993-2005 Free Software Foundation, Inc.          --
 --                                                                          --
 -- This specification is derived from the Ada Reference Manual for use with --
 -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -386,12 +386,10 @@ package Interfaces.COBOL is
 
       function Valid
         (Item   : Numeric;
-         Format : Display_Format)
-         return   Boolean;
+         Format : Display_Format) return Boolean;
 
       function Length
-        (Format : Display_Format)
-         return   Natural;
+        (Format : Display_Format) return Natural;
 
       function To_Decimal
         (Item   : Numeric;
@@ -400,36 +398,30 @@ package Interfaces.COBOL is
 
       function To_Display
         (Item   : Num;
-         Format : Display_Format)
-         return   Numeric;
+         Format : Display_Format) return Numeric;
 
       --  Packed Formats: data values are represented as Packed_Decimal
 
       function Valid
         (Item   : Packed_Decimal;
-         Format : Packed_Format)
-         return   Boolean;
+         Format : Packed_Format) return Boolean;
 
       function Length
-        (Format : Packed_Format)
-         return   Natural;
+        (Format : Packed_Format) return Natural;
 
       function To_Decimal
         (Item   : Packed_Decimal;
-         Format : Packed_Format)
-         return   Num;
+         Format : Packed_Format) return Num;
 
       function To_Packed
         (Item   : Num;
-         Format : Packed_Format)
-         return   Packed_Decimal;
+         Format : Packed_Format) return Packed_Decimal;
 
       --  Binary Formats: external data values are represented as Byte_Array
 
       function Valid
         (Item   : Byte_Array;
-         Format : Binary_Format)
-         return   Boolean;
+         Format : Binary_Format) return Boolean;
 
       function Length
         (Format : Binary_Format)
@@ -441,8 +433,7 @@ package Interfaces.COBOL is
 
       function To_Binary
         (Item   : Num;
-         Format : Binary_Format)
-         return   Byte_Array;
+         Format : Binary_Format) return Byte_Array;
 
       --  Internal Binary formats: data values are of type Binary/Long_Binary
 
@@ -517,14 +508,14 @@ private
 
    type Packed_Format is (U, S);
 
-   Packed_Unsigned   : constant Packed_Format := U;
-   Packed_Signed     : constant Packed_Format := S;
+   Packed_Unsigned : constant Packed_Format := U;
+   Packed_Signed   : constant Packed_Format := S;
 
    type Packed_Representation_Type is (IBM);
    --  Indicator for format used for packed decimal
 
    Packed_Representation : constant Packed_Representation_Type := IBM;
-   --  This version of the spec uses IBM internal format, as described above.
+   --  This version of the spec uses IBM internal format, as described above
 
    -----------------------------
    -- Display Decimal Formats --