2008-03-24 Robert Dewar <dewar@adacore.com>

	* s-tpopsp-posix.adb, s-tpopsp-solaris.adb, s-tpopsp-posix-foreign.adb,
	s-tpopsp-lynxos.adb, s-tpopde-vms.ads, s-tpopde-vms.adb,
	s-tpopsp-vxworks.adb, s-casi16.adb, s-caun16.adb, s-inmaop.ads,
	s-tadeca.adb, s-tadeca.ads, s-tadert.adb, s-tadert.ads, s-tpinop.adb,
	s-tpinop.ads, s-tporft.adb, a-rbtgso.adb, a-crbtgo.ads, a-crbtgo.adb,
	a-crbtgk.ads, a-crbtgk.adb, a-ciorse.adb, a-cihama.ads, a-cihama.adb,
	a-cidlli.ads, a-cidlli.adb, a-chtgop.ads, a-chtgop.adb, a-cgcaso.ads,
	a-cgcaso.adb, a-cgaaso.adb, a-ciormu.adb, a-cihase.adb, a-swuwha.ads,
	a-rbtgso.ads, a-cgaaso.ads, a-cgaaso.ads, a-ciorma.adb, a-chtgke.ads,
	a-chtgke.adb, a-llfzti.ads, a-ztenau.adb, a-ztenau.ads, a-stzhas.ads,
	a-szbzha.ads, a-szbzha.adb, a-crdlli.ads, a-crdlli.ads, a-crdlli.adb,
	i-forbla-darwin.adb, i-forbla.ads, s-regexp.adb, a-nllrar.ads,
	a-nlrear.ads, a-nucoar.ads, a-nurear.ads, i-forlap.ads, s-gearop.adb,
	s-gearop.ads, s-gecobl.adb, s-gecobl.ads, s-gecola.adb, s-gecola.ads,
	s-gerebl.adb, s-gerela.ads, a-swuwha.adb, i-forbla-unimplemented.ads,
	double spaced if it fits on one line and otherwise single spaced.

From-SVN: r133476

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index f0e35f9..5fd023e 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,22 @@
+2008-03-24  Robert Dewar  <dewar@adacore.com>
+
+       * s-tpopsp-posix.adb, s-tpopsp-solaris.adb, s-tpopsp-posix-foreign.adb,
+       s-tpopsp-lynxos.adb, s-tpopde-vms.ads, s-tpopde-vms.adb,
+       s-tpopsp-vxworks.adb, s-casi16.adb, s-caun16.adb, s-inmaop.ads,
+       s-tadeca.adb, s-tadeca.ads, s-tadert.adb, s-tadert.ads, s-tpinop.adb,
+       s-tpinop.ads, s-tporft.adb, a-rbtgso.adb, a-crbtgo.ads, a-crbtgo.adb,
+       a-crbtgk.ads, a-crbtgk.adb, a-ciorse.adb, a-cihama.ads, a-cihama.adb,
+       a-cidlli.ads, a-cidlli.adb, a-chtgop.ads, a-chtgop.adb, a-cgcaso.ads,
+       a-cgcaso.adb, a-cgaaso.adb, a-ciormu.adb, a-cihase.adb, a-swuwha.ads,
+       a-rbtgso.ads, a-cgaaso.ads, a-cgaaso.ads, a-ciorma.adb, a-chtgke.ads,
+       a-chtgke.adb, a-llfzti.ads, a-ztenau.adb, a-ztenau.ads, a-stzhas.ads,
+       a-szbzha.ads, a-szbzha.adb, a-crdlli.ads, a-crdlli.ads, a-crdlli.adb,
+       i-forbla-darwin.adb, i-forbla.ads, s-regexp.adb, a-nllrar.ads,
+       a-nlrear.ads, a-nucoar.ads, a-nurear.ads, i-forlap.ads, s-gearop.adb,
+       s-gearop.ads, s-gecobl.adb, s-gecobl.ads, s-gecola.adb, s-gecola.ads,
+       s-gerebl.adb, s-gerela.ads, a-swuwha.adb, i-forbla-unimplemented.ads,
+       double spaced if it fits on one line and otherwise single spaced.
+
 2008-03-24  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 
        PR documentation/15479

diff --git a/gcc/ada/a-cgaaso.adb b/gcc/ada/a-cgaaso.adb
index 5c2e22d..4010628 100644 (file)
--- a/gcc/ada/a-cgaaso.adb
+++ b/gcc/ada/a-cgaaso.adb
@@ -2,12 +2,11 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---        G E N E R I C _ A N O N Y M O U S _ A R R A Y _ S O R T           --
+--              ADA.CONTAINERS.GENERIC_ANONYMOUS_ARRAY_SORT                 --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 2004-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/a-cgaaso.ads b/gcc/ada/a-cgaaso.ads
index 0870512..fe2e922 100644 (file)
--- a/gcc/ada/a-cgaaso.ads
+++ b/gcc/ada/a-cgaaso.ads
@@ -2,12 +2,11 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---        G E N E R I C _ A N O N Y M O U S _ A R R A Y _ S O R T           --
+--              ADA.CONTAINERS.GENERIC_ANONYMOUS_ARRAY_SORT                 --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2004-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2007, 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 --
@@ -34,6 +33,8 @@
 -- This unit was originally developed by Matthew J Heaney.                  --
 ------------------------------------------------------------------------------
 
+--  Documentation of this unit is needed ???
+
 generic
    type Index_Type is (<>);
    with function Less (Left, Right : Index_Type) return Boolean is <>;

diff --git a/gcc/ada/a-cgcaso.adb b/gcc/ada/a-cgcaso.adb
index e61ae71..ff7cdba 100644 (file)
--- a/gcc/ada/a-cgcaso.adb
+++ b/gcc/ada/a-cgcaso.adb
@@ -2,12 +2,11 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---       G E N E R I C _ C O N S T R A I N E D _ A R R A Y _ S O R T        --
+--              ADA.CONTAINERS.GENERIC_CONSTRAINED_ARRAY_SORT               --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 2004-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/a-cgcaso.ads b/gcc/ada/a-cgcaso.ads
index 6841f93..39ebee6 100644 (file)
--- a/gcc/ada/a-cgcaso.ads
+++ b/gcc/ada/a-cgcaso.ads
@@ -2,8 +2,7 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---       G E N E R I C _ C O N S T R A I N E D _ A R R A Y _ S O R T        --
+--              ADA.CONTAINERS.GENERIC_CONSTRAINED_ARRAY_SORT               --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --

diff --git a/gcc/ada/a-chtgke.adb b/gcc/ada/a-chtgke.adb
index 2667871..3d2446a 100644 (file)
--- a/gcc/ada/a-chtgke.adb
+++ b/gcc/ada/a-chtgke.adb
@@ -2,8 +2,7 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---             H A S H _ T A B L E S . G E N E R I C _ K E Y S              --
+--                 ADA.CONTAINERS.HASH_TABLES.GENERIC_KEYS                  --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --

diff --git a/gcc/ada/a-chtgke.ads b/gcc/ada/a-chtgke.ads
index 833976a..e7ccbb1 100644 (file)
--- a/gcc/ada/a-chtgke.ads
+++ b/gcc/ada/a-chtgke.ads
@@ -2,12 +2,11 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---             H A S H _ T A B L E S . G E N E R I C _ K E Y S              --
+--                 ADA.CONTAINERS.HASH_TABLES.GENERIC_KEYS                  --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2004-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/a-chtgop.adb b/gcc/ada/a-chtgop.adb
index dd97c2e..91c153e 100644 (file)
--- a/gcc/ada/a-chtgop.adb
+++ b/gcc/ada/a-chtgop.adb
@@ -2,12 +2,11 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                       A D A . C O N T A I N E R S .                      --
---       H A S H _ T A B L E S . G E N E R I C _ O P E R A T I O N S        --
+--              ADA.CONTAINERS.HASH_TABLES.GENERIC_OPERATIONS               --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2008, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -38,9 +37,8 @@ with System;  use type System.Address;
 package body Ada.Containers.Hash_Tables.Generic_Operations is
 
    type Buckets_Allocation is access all Buckets_Type;
-   --  Used for allocation and deallocation (see New_Buckets and
-   --  Free_Buckets). This is necessary because Buckets_Access has an empty
-   --  storage pool.
+   --  Used for allocation and deallocation (see New_Buckets and Free_Buckets).
+   --  This is necessary because Buckets_Access has an empty storage pool.
 
    ------------
    -- Adjust --

diff --git a/gcc/ada/a-chtgop.ads b/gcc/ada/a-chtgop.ads
index 9e05810..1389e2f 100644 (file)
--- a/gcc/ada/a-chtgop.ads
+++ b/gcc/ada/a-chtgop.ads
@@ -2,8 +2,7 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                       A D A . C O N T A I N E R S .                      --
---       H A S H _ T A B L E S . G E N E R I C _ O P E R A T I O N S        --
+--              ADA.CONTAINERS.HASH_TABLES.GENERIC_OPERATIONS               --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
@@ -165,11 +164,11 @@ package Ada.Containers.Hash_Tables.Generic_Operations is
 
    function New_Buckets (Length : Hash_Type) return Buckets_Access;
    pragma Inline (New_Buckets);
-   --  Allocate a new Buckets_Type array with bounds 0..Length-1.
+   --  Allocate a new Buckets_Type array with bounds 0..Length-1
 
    procedure Free_Buckets (Buckets : in out Buckets_Access);
    pragma Inline (Free_Buckets);
-   --  Unchecked_Deallocate Buckets.
+   --  Unchecked_Deallocate Buckets
 
    --  Note: New_Buckets and Free_Buckets are needed because Buckets_Access has
    --  an empty pool.

diff --git a/gcc/ada/a-cidlli.adb b/gcc/ada/a-cidlli.adb
index 4bd0db7..2649be6 100644 (file)
--- a/gcc/ada/a-cidlli.adb
+++ b/gcc/ada/a-cidlli.adb
@@ -2,8 +2,7 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---        I N D E F I N I T E _ D O U B L Y _ L I N K E D _ L I S T S       --
+--               ADA.CONTAINERS.INDEFINITE_DOUBLY_LINKED_LISTS              --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --

diff --git a/gcc/ada/a-cidlli.ads b/gcc/ada/a-cidlli.ads
index 4cde43d..b1d4d16 100644 (file)
--- a/gcc/ada/a-cidlli.ads
+++ b/gcc/ada/a-cidlli.ads
@@ -2,12 +2,11 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---        I N D E F I N I T E _ D O U B L Y _ L I N K E D _ L I S T S       --
+--               ADA.CONTAINERS.INDEFINITE_DOUBLY_LINKED_LISTS              --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2008, 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 --
@@ -34,8 +33,8 @@
 -- This unit was originally developed by Matthew J Heaney.                  --
 ------------------------------------------------------------------------------
 
-with Ada.Finalization;
-with Ada.Streams;
+private with Ada.Finalization;
+private with Ada.Streams;
 
 generic
    type Element_Type (<>) is private;
@@ -223,8 +222,10 @@ private
         Lock   : Natural := 0;
      end record;
 
+   overriding
    procedure Adjust (Container : in out List);
 
+   overriding
    procedure Finalize (Container : in out List) renames Clear;
 
    use Ada.Streams;

diff --git a/gcc/ada/a-cihama.adb b/gcc/ada/a-cihama.adb
index 0eb49b1..34a3e65 100644 (file)
--- a/gcc/ada/a-cihama.adb
+++ b/gcc/ada/a-cihama.adb
@@ -2,8 +2,7 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---               I N D E F I N I T E _ H A S H E D _ M A P S                --
+--                  ADA.CONTAINERS.INDEFINITE_HASHED_MAPS                   --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --

diff --git a/gcc/ada/a-cihama.ads b/gcc/ada/a-cihama.ads
index 5e0aea0..a9171bd 100644 (file)
--- a/gcc/ada/a-cihama.ads
+++ b/gcc/ada/a-cihama.ads
@@ -2,8 +2,7 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---               I N D E F I N I T E _ H A S H E D _ M A P S                --
+--                  ADA.CONTAINERS.INDEFINITE_HASHED_MAPS                   --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --

diff --git a/gcc/ada/a-cihase.adb b/gcc/ada/a-cihase.adb
index 235f6e3..4094227 100644 (file)
--- a/gcc/ada/a-cihase.adb
+++ b/gcc/ada/a-cihase.adb
@@ -2,8 +2,7 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---               I N D E F I N I T E _ H A S H E D _ S E T S                --
+--                  ADA.CONTAINERS.INDEFINITE_HASHED_SETS                   --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --

diff --git a/gcc/ada/a-ciorma.adb b/gcc/ada/a-ciorma.adb
index 7eb57d1..3b1515f 100644 (file)
--- a/gcc/ada/a-ciorma.adb
+++ b/gcc/ada/a-ciorma.adb
@@ -2,8 +2,7 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---             I N D E F I N I T E _ O R D E R E D _ M A P S                --
+--                 ADA.CONTAINERS.INDEFINITE_ORDERED_MAPS                   --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --

diff --git a/gcc/ada/a-ciormu.adb b/gcc/ada/a-ciormu.adb
index 93e1c84..4ee897d 100644 (file)
--- a/gcc/ada/a-ciormu.adb
+++ b/gcc/ada/a-ciormu.adb
@@ -2,8 +2,7 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---         I N D E F I N I T E _ O R D E R E D _ M U L T I S E T S          --
+--               ADA.CONTAINERS.INDEFINITE_ORDERED_MULTISETS                --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --

diff --git a/gcc/ada/a-ciorse.adb b/gcc/ada/a-ciorse.adb
index e12abac..85f1b73 100644 (file)
--- a/gcc/ada/a-ciorse.adb
+++ b/gcc/ada/a-ciorse.adb
@@ -2,8 +2,7 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                      A D A . C O N T A I N E R S .                       --
---              I N D E F I N I T E _ O R D E R E D _ S E T S               --
+--                 ADA.CONTAINERS.INDEFINITE_ORDERED_SETS                   --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --

diff --git a/gcc/ada/a-crbtgk.adb b/gcc/ada/a-crbtgk.adb
index f90568d..0fb78be 100644 (file)
--- a/gcc/ada/a-crbtgk.adb
+++ b/gcc/ada/a-crbtgk.adb
@@ -2,12 +2,11 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---        A D A . C O N T A I N E R S . R E D _ B L A C K _ T R E E S .     --
---                          G E N E R I C _ K E Y S                         --
+--                ADA.CONTAINERS.RED_BLACK_TREES.GENERIC_KEYS               --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 2004-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/a-crbtgk.ads b/gcc/ada/a-crbtgk.ads
index 1e8c4fd..5dfe851 100644 (file)
--- a/gcc/ada/a-crbtgk.ads
+++ b/gcc/ada/a-crbtgk.ads
@@ -2,12 +2,11 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---        A D A . C O N T A I N E R S . R E D _ B L A C K _ T R E E S .     --
---                          G E N E R I C _ K E Y S                         --
+--                ADA.CONTAINERS.RED_BLACK_TREES.GENERIC_KEYS               --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2004-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/a-crbtgo.adb b/gcc/ada/a-crbtgo.adb
index 83c980d..d7ec3d6 100644 (file)
--- a/gcc/ada/a-crbtgo.adb
+++ b/gcc/ada/a-crbtgo.adb
@@ -2,8 +2,7 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---        A D A . C O N T A I N E R S . R E D _ B L A C K _ T R E E S .     --
---                    G E N E R I C _ O P E R A T I O N S                   --
+--             ADA.CONTAINERS.RED_BLACK_TREES.GENERIC_OPERATIONS            --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --

diff --git a/gcc/ada/a-crbtgo.ads b/gcc/ada/a-crbtgo.ads
index a55e65f..78dc023 100644 (file)
--- a/gcc/ada/a-crbtgo.ads
+++ b/gcc/ada/a-crbtgo.ads
@@ -2,12 +2,11 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---        A D A . C O N T A I N E R S . R E D _ B L A C K _ T R E E S .     --
---                    G E N E R I C _ O P E R A T I O N S                   --
+--             ADA.CONTAINERS.RED_BLACK_TREES.GENERIC_OPERATIONS            --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2004-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/a-crdlli.adb b/gcc/ada/a-crdlli.adb
index b5b22bd..6d740c8 100644 (file)
--- a/gcc/ada/a-crdlli.adb
+++ b/gcc/ada/a-crdlli.adb
@@ -2,8 +2,7 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                       A D A . C O N T A I N E R S .                      --
---        R E S R I C T E D  _ D O U B L Y _ L I N K E D _ L I S T S        --
+--              ADA.CONTAINERS.RESTRICTED_DOUBLY_LINKED_LISTS               --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --

diff --git a/gcc/ada/a-crdlli.ads b/gcc/ada/a-crdlli.ads
index 0e768a4..00f17eb 100644 (file)
--- a/gcc/ada/a-crdlli.ads
+++ b/gcc/ada/a-crdlli.ads
@@ -2,12 +2,11 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---                       A D A . C O N T A I N E R S .                      --
---        R E S R I C T E D  _ D O U B L Y _ L I N K E D _ L I S T S        --
+--              ADA.CONTAINERS.RESTRICTED_DOUBLY_LINKED_LISTS               --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2004-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2007, 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 --
@@ -34,6 +33,8 @@
 -- This unit was originally developed by Matthew J Heaney.                  --
 ------------------------------------------------------------------------------
 
+--  Documentation required for this unit ???
+
 generic
    type Element_Type is private;
 

diff --git a/gcc/ada/a-llfzti.ads b/gcc/ada/a-llfzti.ads
index fa92ef4..6bc9792 100644 (file)
--- a/gcc/ada/a-llfzti.ads
+++ b/gcc/ada/a-llfzti.ads
@@ -2,7 +2,7 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
---A D A . L O N G _ L O N G _ F L O A T _ W I D E _ W I D E _ T E X T _ I O --
+--                  ADA.LONG_LONG_FLOAT_WIDE_WIDE_TEXT_IO                   --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --

diff --git a/gcc/ada/a-nllrar.ads b/gcc/ada/a-nllrar.ads
index 8a1713b..62a2457 100644 (file)
--- a/gcc/ada/a-nllrar.ads
+++ b/gcc/ada/a-nllrar.ads
@@ -2,7 +2,7 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
---                    ADA.NUMERICS.LONG_LONG_REAL_ARRAYS                    --
+--    A D A . N U M E R I C S . L O N G _ L O N G _R E A L _ A R R A Y S    --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --

diff --git a/gcc/ada/a-nlrear.ads b/gcc/ada/a-nlrear.ads
index 252c5d2..990c39b 100644 (file)
--- a/gcc/ada/a-nlrear.ads
+++ b/gcc/ada/a-nlrear.ads
@@ -2,7 +2,7 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
---                       ADA.NUMERICS.LONG_REAL_ARRAYS                      --
+--        A D A . N U M E R I C S . L O N G _ R E A L _ A R R A Y S         --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --

diff --git a/gcc/ada/a-nucoar.ads b/gcc/ada/a-nucoar.ads
index 938e70a..665d02d 100644 (file)
--- a/gcc/ada/a-nucoar.ads
+++ b/gcc/ada/a-nucoar.ads
@@ -2,7 +2,7 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
---                       ADA.NUMERICS.COMPLEX_ARRAYS                        --
+--          A D A . N U M E R I C S . C O M P L E X _ A R R A Y S           --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --

diff --git a/gcc/ada/a-nurear.ads b/gcc/ada/a-nurear.ads
index 5141a16..0197599 100644 (file)
--- a/gcc/ada/a-nurear.ads
+++ b/gcc/ada/a-nurear.ads
@@ -2,7 +2,7 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
---                         ADA.NUMERICS.REAL_ARRAYS                         --
+--             A D A . N U M E R I C S . R E A L _ A R R A Y S              --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --

diff --git a/gcc/ada/a-rbtgso.adb b/gcc/ada/a-rbtgso.adb
index ad4f76f..d340400 100644 (file)
--- a/gcc/ada/a-rbtgso.adb
+++ b/gcc/ada/a-rbtgso.adb
@@ -2,8 +2,7 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---       A D A . C O N T A I N E R S . R E D _ B L A C K _ T R E E S .      --
---               G E N E R I C _ S E T _ O P E R A T I O N S                --
+--           ADA.CONTAINERS.RED_BLACK_TREES.GENERIC_SET_OPERATIONS          --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --

diff --git a/gcc/ada/a-rbtgso.ads b/gcc/ada/a-rbtgso.ads
index c39dc6e..7326c1f 100644 (file)
--- a/gcc/ada/a-rbtgso.ads
+++ b/gcc/ada/a-rbtgso.ads
@@ -2,12 +2,11 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---       A D A . C O N T A I N E R S . R E D _ B L A C K _ T R E E S .      --
---               G E N E R I C _ S E T _ O P E R A T I O N S                --
+--           ADA.CONTAINERS.RED_BLACK_TREES.GENERIC_SET_OPERATIONS          --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2004-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/a-stzhas.ads b/gcc/ada/a-stzhas.ads
index dea0ff1..f7060e7 100644 (file)
--- a/gcc/ada/a-stzhas.ads
+++ b/gcc/ada/a-stzhas.ads
@@ -13,6 +13,8 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
+--  Is this really an RM unit? Doc needed???
+
 with Ada.Containers;
 
 function Ada.Strings.Wide_Wide_Hash

diff --git a/gcc/ada/a-swuwha.adb b/gcc/ada/a-swuwha.adb
index 0790faa..6172969 100644 (file)
--- a/gcc/ada/a-swuwha.adb
+++ b/gcc/ada/a-swuwha.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 2004-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/a-swuwha.ads b/gcc/ada/a-swuwha.ads
index 69cf762..8da567a 100644 (file)
--- a/gcc/ada/a-swuwha.ads
+++ b/gcc/ada/a-swuwha.ads
@@ -13,6 +13,8 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
+--  Is this really an RM unit? Doc needed ???
+
 with Ada.Containers;
 
 function Ada.Strings.Wide_Unbounded.Wide_Hash

diff --git a/gcc/ada/a-szbzha.adb b/gcc/ada/a-szbzha.adb
index 641edca..e465a62 100644 (file)
--- a/gcc/ada/a-szbzha.adb
+++ b/gcc/ada/a-szbzha.adb
@@ -2,12 +2,11 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---        A D A . S T R I N G S . W I D E _ W I D E _ B O U N D E D .       --
---                      W I D E _ W I D E _ H A S H                         --
+--              ADA.STRINGS.WIDE_WIDE_BOUNDED.WIDE_WIDE_HASH                --
 --                                                                          --
 --                                B o d y                                   --
 --                                                                          --
---          Copyright (C) 2004-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/a-szbzha.ads b/gcc/ada/a-szbzha.ads
index 42c6452..d7911de 100644 (file)
--- a/gcc/ada/a-szbzha.ads
+++ b/gcc/ada/a-szbzha.ads
@@ -2,8 +2,7 @@
 --                                                                          --
 --                         GNAT LIBRARY COMPONENTS                          --
 --                                                                          --
---        A D A . S T R I N G S . W I D E _ W I D E _ B O U N D E D .       --
---                      W I D E _ W I D E _ H A S H                         --
+--              ADA.STRINGS.WIDE_WIDE_BOUNDED.WIDE_WIDE_HASH                --
 --                                                                          --
 --                                S p e c                                   --
 --                                                                          --
@@ -14,6 +13,8 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
+--  Is this really an RM unit? doc needed ???
+
 with Ada.Containers;
 
 generic

diff --git a/gcc/ada/a-ztenau.adb b/gcc/ada/a-ztenau.adb
index b7d2375..0a761c1 100644 (file)
--- a/gcc/ada/a-ztenau.adb
+++ b/gcc/ada/a-ztenau.adb
@@ -2,11 +2,11 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
--- A D A . W I D E _ W I D E _ T E X T _ I O . E N U M E R A T I O N _ A U X--
+--                  ADA.WIDE_WIDE_TEXT_IO.ENUMERATION_AUX                   --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/a-ztenau.ads b/gcc/ada/a-ztenau.ads
index b24184d..f13f43f 100644 (file)
--- a/gcc/ada/a-ztenau.ads
+++ b/gcc/ada/a-ztenau.ads
@@ -2,11 +2,11 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
--- A D A . W I D E _ W I D E _ T E X T _ I O . E N U M E R A T I O N _ A U X--
+--                  ADA.WIDE_WIDE_TEXT_IO.ENUMERATION_AUX                   --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/i-forbla-darwin.adb b/gcc/ada/i-forbla-darwin.adb
index 81464aa..4857896 100644 (file)
--- a/gcc/ada/i-forbla-darwin.adb
+++ b/gcc/ada/i-forbla-darwin.adb
@@ -2,11 +2,11 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
---                         INTERFACES.FORTRAN.BLAS                          --
+--               I N T E R F A C E S . F O R T R A N . B L A S              --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---            Copyright (C) 2006, Free Software Foundation, Inc.            --
+--          Copyright (C) 2006-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/i-forbla-unimplemented.ads b/gcc/ada/i-forbla-unimplemented.ads
index c082727..eacb118 100644 (file)
--- a/gcc/ada/i-forbla-unimplemented.ads
+++ b/gcc/ada/i-forbla-unimplemented.ads
@@ -2,7 +2,7 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
---                         INTERFACES.FORTRAN.BLAS                          --
+--               I N T E R F A C E S . F O R T R A N . B L A S              --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --

diff --git a/gcc/ada/i-forbla.ads b/gcc/ada/i-forbla.ads
index c405478..7c088df 100644 (file)
--- a/gcc/ada/i-forbla.ads
+++ b/gcc/ada/i-forbla.ads
@@ -2,7 +2,7 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
---                         INTERFACES.FORTRAN.BLAS                          --
+--               I N T E R F A C E S . F O R T R A N . B L A S              --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --

diff --git a/gcc/ada/i-forlap.ads b/gcc/ada/i-forlap.ads
index 3e8f2be..37447de 100644 (file)
--- a/gcc/ada/i-forlap.ads
+++ b/gcc/ada/i-forlap.ads
@@ -2,11 +2,11 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
---                        INTERFACES.FORTRAN.LAPACK                         --
+--             I N T E R F A C E S . F O R T R A N . L A P A C K            --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---            Copyright (C) 2006, Free Software Foundation, Inc.            --
+--          Copyright (C) 2006-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/s-casi16.adb b/gcc/ada/s-casi16.adb
index 7647f6b..3980ce7 100644 (file)
--- a/gcc/ada/s-casi16.adb
+++ b/gcc/ada/s-casi16.adb
@@ -2,7 +2,7 @@
 --                                                                          --
 --                    GNAT RUN-TIME LIBRARY COMPONENTS                      --
 --                                                                          --
---        S Y S T E M . C O M P A R E _ A R R A Y _ S I G N E D _ 16        --
+--       S Y S T E M . C O M P A R E _ A R R A Y _ S I G N E D _ 1 6        --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --

diff --git a/gcc/ada/s-caun16.adb b/gcc/ada/s-caun16.adb
index 3f3d83e..9bbbb96 100644 (file)
--- a/gcc/ada/s-caun16.adb
+++ b/gcc/ada/s-caun16.adb
@@ -2,7 +2,7 @@
 --                                                                          --
 --                    GNAT RUN-TIME LIBRARY COMPONENTS                      --
 --                                                                          --
---      S Y S T E M . C O M P A R E _ A R R A Y _ U N S I G N E D _ 16      --
+--     S Y S T E M . C O M P A R E _ A R R A Y _ U N S I G N E D _ 1 6      --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --

diff --git a/gcc/ada/s-gearop.adb b/gcc/ada/s-gearop.adb
index 8d5d39b..5917d20 100644 (file)
--- a/gcc/ada/s-gearop.adb
+++ b/gcc/ada/s-gearop.adb
@@ -2,7 +2,7 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
---                     SYSTEM.GENERIC_ARRAY_OPERATIONS                      --
+--       S Y S T E M . G E N E R I C _ A R R A Y _ O P E R A T I O N S      --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --

diff --git a/gcc/ada/s-gearop.ads b/gcc/ada/s-gearop.ads
index b922871..e642707 100644 (file)
--- a/gcc/ada/s-gearop.ads
+++ b/gcc/ada/s-gearop.ads
@@ -2,11 +2,11 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
---                     SYSTEM.GENERIC_ARRAY_OPERATIONS                      --
+--       S Y S T E M . G E N E R I C _ A R R A Y _ O P E R A T I O N S      --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---            Copyright (C) 2006, Free Software Foundation, Inc.            --
+--          Copyright (C) 2006-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/s-gecobl.adb b/gcc/ada/s-gecobl.adb
index 789b0af..6db41c0 100644 (file)
--- a/gcc/ada/s-gecobl.adb
+++ b/gcc/ada/s-gecobl.adb
@@ -2,7 +2,7 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
---                       SYSTEM.GENERIC_COMPLEX_BLAS                        --
+--           S Y S T E M . G E N E R I C _ C O M P L E X _ B L A S          --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --

diff --git a/gcc/ada/s-gecobl.ads b/gcc/ada/s-gecobl.ads
index 533e7ae..d09cca7 100644 (file)
--- a/gcc/ada/s-gecobl.ads
+++ b/gcc/ada/s-gecobl.ads
@@ -2,7 +2,7 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
---                       SYSTEM.GENERIC_COMPLEX_BLAS                        --
+--           S Y S T E M . G E N E R I C _ C O M P L E X _ B L A S          --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --

diff --git a/gcc/ada/s-gecola.adb b/gcc/ada/s-gecola.adb
index ef3ea1c..ebcf682 100644 (file)
--- a/gcc/ada/s-gecola.adb
+++ b/gcc/ada/s-gecola.adb
@@ -2,11 +2,11 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
---                      SYSTEM.GENERIC_COMPLEX_LAPACK                       --
+--         S Y S T E M . G E N E R I C _ C O M P L E X _ L A P A C K        --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---            Copyright (C) 2006, Free Software Foundation, Inc.            --
+--          Copyright (C) 2006-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/s-gecola.ads b/gcc/ada/s-gecola.ads
index 2597a90..e9f8d2e 100644 (file)
--- a/gcc/ada/s-gecola.ads
+++ b/gcc/ada/s-gecola.ads
@@ -2,11 +2,11 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
---                      SYSTEM.GENERIC_COMPLEX_LAPACK                       --
+--         S Y S T E M . G E N E R I C _ C O M P L E X _ L A P A C K        --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---            Copyright (C) 2006, Free Software Foundation, Inc.            --
+--          Copyright (C) 2006-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/s-gerebl.adb b/gcc/ada/s-gerebl.adb
index 810a167..725a94f 100644 (file)
--- a/gcc/ada/s-gerebl.adb
+++ b/gcc/ada/s-gerebl.adb
@@ -2,11 +2,11 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
---                         SYSTEM.GENERIC_REAL_BLAS                         --
+--             S Y S T E M . G E N E R I C _ R E A L _ B L A S              --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---            Copyright (C) 2006, Free Software Foundation, Inc.            --
+--          Copyright (C) 2006-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/s-gerela.ads b/gcc/ada/s-gerela.ads
index 7b2a562..130fb40 100644 (file)
--- a/gcc/ada/s-gerela.ads
+++ b/gcc/ada/s-gerela.ads
@@ -2,11 +2,11 @@
 --                                                                          --
 --                         GNAT RUN-TIME COMPONENTS                         --
 --                                                                          --
---                        SYSTEM.GENERIC_REAL_LAPACK                        --
+--           S Y S T E M . G E N E R I C _ R E A L _ L A P A C K            --
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---            Copyright (C) 2006, Free Software Foundation, Inc.            --
+--          Copyright (C) 2006-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/s-inmaop.ads b/gcc/ada/s-inmaop.ads
index 0fd1e00..1bd660e 100644 (file)
--- a/gcc/ada/s-inmaop.ads
+++ b/gcc/ada/s-inmaop.ads
@@ -2,12 +2,11 @@
 --                                                                          --
 --                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
 --                                                                          --
---            S Y S T E M . I N T E R R U P T _ M A N A G E M E N T .       --
---                             O P E R A T I O N S                          --
+--                  SYSTEM.INTERRUPT_MANAGEMENT.OPERATIONS                  --
 --                                                                          --
 --                                  S p e c                                 --
 --                                                                          --
---          Copyright (C) 1992-2005, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/s-regexp.adb b/gcc/ada/s-regexp.adb
index ab74807..c548199 100755 (executable)
--- a/gcc/ada/s-regexp.adb
+++ b/gcc/ada/s-regexp.adb
@@ -2,7 +2,7 @@
 --                                                                          --
 --                         GNAT COMPILER COMPONENTS                         --
 --                                                                          --
---                          G N A T . R E G E X P                           --
+--                        S Y S T E M . R E G E X P                         --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
@@ -32,7 +32,7 @@
 ------------------------------------------------------------------------------
 
 with Ada.Unchecked_Deallocation;
-with Ada.Exceptions;
+--  with Ada.Exceptions;
 
 with System.Case_Util;
 
@@ -177,9 +177,7 @@ package body System.Regexp is
       --  add a third pass to reduce the number of states in the machine, with
       --  no speed improvement...
 
-      procedure Raise_Exception
-        (M     : String;
-         Index : Integer);
+      procedure Raise_Exception (M : String; Index : Integer);
       pragma No_Return (Raise_Exception);
       --  Raise an exception, indicating an error at character Index in S
 
@@ -1223,13 +1221,9 @@ package body System.Regexp is
       -- Raise_Exception --
       ---------------------
 
-      procedure Raise_Exception
-        (M     : String;
-         Index : Integer)
-      is
+      procedure Raise_Exception (M : String; Index : Integer) is
       begin
-         Ada.Exceptions.Raise_Exception
-           (Error_In_Regexp'Identity, M & " at offset " & Index'Img);
+         raise Error_In_Regexp with M & " at offset " & Index'Img;
       end Raise_Exception;
 
    --  Start of processing for Compile

diff --git a/gcc/ada/s-tadeca.adb b/gcc/ada/s-tadeca.adb
index c2d0fee..a83bb9d 100644 (file)
--- a/gcc/ada/s-tadeca.adb
+++ b/gcc/ada/s-tadeca.adb
@@ -2,12 +2,11 @@
 --                                                                          --
 --                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
 --                                                                          --
---           S Y S T E M . T A S K I N G . A S Y N C _ D E L A Y S .        --
---                      E N Q U E U E _ C A L E N D A R                     --
+--               SYSTEM.TASKING.ASYNC_DELAYS.ENQUEUE_CALENDAR               --
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --
---          Copyright (C) 1998-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1998-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/s-tadeca.ads b/gcc/ada/s-tadeca.ads
index 1635825..8b1077b 100644 (file)
--- a/gcc/ada/s-tadeca.ads
+++ b/gcc/ada/s-tadeca.ads
@@ -2,12 +2,11 @@
 --                                                                          --
 --                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
 --                                                                          --
---           S Y S T E M . T A S K I N G . A S Y N C _ D E L A Y S .        --
---                      E N Q U E U E _ C A L E N D A R                     --
+--               SYSTEM.TASKING.ASYNC_DELAYS.ENQUEUE_CALENDAR               --
 --                                                                          --
 --                                  S p e c                                 --
 --                                                                          --
---          Copyright (C) 1998-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1998-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/s-tadert.adb b/gcc/ada/s-tadert.adb
index 2bd3fc7..5c38256 100644 (file)
--- a/gcc/ada/s-tadert.adb
+++ b/gcc/ada/s-tadert.adb
@@ -2,12 +2,11 @@
 --                                                                          --
 --                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
 --                                                                          --
---           S Y S T E M . T A S K I N G . A S Y N C _ D E L A Y S .        --
---                          E N Q U E U E _ R T                             --
+--                  SYSTEM.TASKING.ASYNC_DELAYS.ENQUEUE_RT                  --
 --                                                                          --
 --                                B o d y                                   --
 --                                                                          --
---          Copyright (C) 1998-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 1998-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/s-tadert.ads b/gcc/ada/s-tadert.ads
index 97432f3..0af8780 100644 (file)
--- a/gcc/ada/s-tadert.ads
+++ b/gcc/ada/s-tadert.ads
@@ -2,12 +2,11 @@
 --                                                                          --
 --                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
 --                                                                          --
---           S Y S T E M . T A S K I N G . A S Y N C _ D E L A Y S .        --
---                          E N Q U E U E _ R T                             --
+--                  SYSTEM.TASKING.ASYNC_DELAYS.ENQUEUE_RT                  --
 --                                                                          --
 --                                S p e c                                   --
 --                                                                          --
---          Copyright (C) 1998-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1998-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/s-tpinop.adb b/gcc/ada/s-tpinop.adb
index 2f7d01c..f424651 100644 (file)
--- a/gcc/ada/s-tpinop.adb
+++ b/gcc/ada/s-tpinop.adb
@@ -2,12 +2,11 @@
 --                                                                          --
 --                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
 --                                                                          --
---                S Y S T E M . T A S K _ P R I M I T I V E S .             --
---                   I N T E R R U P T _ O P E R A T I O N S                --
+--               SYSTEM.TASK_PRIMITIVES.INTERRUPT_OPERATIONS                --
 --                                                                          --
---                                  B o d y                                 --
+--                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1998-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1998-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/s-tpinop.ads b/gcc/ada/s-tpinop.ads
index 90a5c1d..1a166cc 100644 (file)
--- a/gcc/ada/s-tpinop.ads
+++ b/gcc/ada/s-tpinop.ads
@@ -2,12 +2,11 @@
 --                                                                          --
 --                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
 --                                                                          --
---               S Y S T E M . T A S K _ P R I M I T I V E S .              --
---                  I N T E R R U P T _ O P E R A T I O N S                 --
+--               SYSTEM.TASK_PRIMITIVES.INTERRUPT_OPERATIONS                --
 --                                                                          --
---                                  S p e c                                 --
+--                                 S p e c                                  --
 --                                                                          --
---           Copyright (C) 1998-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1998-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -42,12 +41,12 @@ package System.Task_Primitives.Interrupt_Operations is
    package ST renames System.Tasking;
 
    procedure Set_Interrupt_ID (Interrupt : IM.Interrupt_ID; T : ST.Task_Id);
-   --  Associate an Interrupt_ID with a task.
+   --  Associate an Interrupt_ID with a task
 
    function Get_Interrupt_ID (T : ST.Task_Id) return IM.Interrupt_ID;
-   --  Return the Interrupt_ID associated with a task.
+   --  Return the Interrupt_ID associated with a task
 
    function Get_Task_Id (Interrupt : IM.Interrupt_ID) return ST.Task_Id;
-   --  Return the Task_Id associated with an Interrupt.
+   --  Return the Task_Id associated with an Interrupt
 
 end System.Task_Primitives.Interrupt_Operations;

diff --git a/gcc/ada/s-tpopde-vms.adb b/gcc/ada/s-tpopde-vms.adb
index b26b274..c222c0c 100644 (file)
--- a/gcc/ada/s-tpopde-vms.adb
+++ b/gcc/ada/s-tpopde-vms.adb
@@ -2,8 +2,7 @@
 --                                                                          --
 --                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
 --                                                                          --
---    S Y S T E M . T A S K _ P R I M I T I V E S . O P E R A T I O N S .   --
---                                   D E C                                  --
+--                  SYSTEM.TASK_PRIMITIVES.OPERATIONS.DEC                   --
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --

diff --git a/gcc/ada/s-tpopde-vms.ads b/gcc/ada/s-tpopde-vms.ads
index 3e2c742..36211f7 100644 (file)
--- a/gcc/ada/s-tpopde-vms.ads
+++ b/gcc/ada/s-tpopde-vms.ads
@@ -2,8 +2,7 @@
 --                                                                          --
 --                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
 --                                                                          --
---    S Y S T E M . T A S K _ P R I M I T I V E S . O P E R A T I O N S .   --
---                                   D E C                                  --
+--                  SYSTEM.TASK_PRIMITIVES.OPERATIONS.DEC                   --
 --                                                                          --
 --                                  S p e c                                 --
 --                                                                          --
@@ -39,18 +38,18 @@ package System.Task_Primitives.Operations.DEC is
 
    procedure Interrupt_AST_Handler (ID : Address);
    pragma Convention (C, Interrupt_AST_Handler);
-   --  Handles the AST for Ada95 Interrupts.
+   --  Handles the AST for Ada95 Interrupts
 
    procedure RMS_AST_Handler (ID : Address);
-   --  Handles the AST for RMS_Asynch_Operations.
+   --  Handles the AST for RMS_Asynch_Operations
 
    function Self return System.Aux_DEC.Unsigned_Longword;
-   --  Returns the task identification for the AST.
+   --  Returns the task identification for the AST
 
    procedure Starlet_AST_Handler (ID : Address);
-   --  Handles the AST for Starlet Tasking_Services.
+   --  Handles the AST for Starlet Tasking_Services
 
    procedure Task_Synch;
-   --  Synchronizes the task after the system service completes.
+   --  Synchronizes the task after the system service completes
 
 end System.Task_Primitives.Operations.DEC;

diff --git a/gcc/ada/s-tpopsp-lynxos.adb b/gcc/ada/s-tpopsp-lynxos.adb
index 3c79755..3207079 100644 (file)
--- a/gcc/ada/s-tpopsp-lynxos.adb
+++ b/gcc/ada/s-tpopsp-lynxos.adb
@@ -2,12 +2,11 @@
 --                                                                          --
 --                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
 --                                                                          --
---    S Y S T E M . T A S K _ P R I M I T I V E S . O P E R A T I O N S .   --
---                              S P E C I F I C                             --
+--                SYSTEM.TASK_PRIMITIVES.OPERATIONS.SPECIFIC                --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---         Copyright (C) 1992-2005, Free Software Foundation, Inc.          --
+--         Copyright (C) 1992-2007, Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/s-tpopsp-posix-foreign.adb b/gcc/ada/s-tpopsp-posix-foreign.adb
index 5fe9ac9..ae26a5a 100644 (file)
--- a/gcc/ada/s-tpopsp-posix-foreign.adb
+++ b/gcc/ada/s-tpopsp-posix-foreign.adb
@@ -2,12 +2,11 @@
 --                                                                          --
 --                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
 --                                                                          --
---    S Y S T E M . T A S K _ P R I M I T I V E S . O P E R A T I O N S .   --
---                             S P E C I F I C                              --
+--                SYSTEM.TASK_PRIMITIVES.OPERATIONS.SPECIFIC                --
 --                                                                          --
 --                                B o d y                                   --
 --                                                                          --
---         Copyright (C) 1992-2005, Free Software Foundation, Inc.          --
+--         Copyright (C) 1992-2007, Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/s-tpopsp-posix.adb b/gcc/ada/s-tpopsp-posix.adb
index 39a1120..0b7f277 100644 (file)
--- a/gcc/ada/s-tpopsp-posix.adb
+++ b/gcc/ada/s-tpopsp-posix.adb
@@ -2,12 +2,11 @@
 --                                                                          --
 --                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
 --                                                                          --
---    S Y S T E M . T A S K _ P R I M I T I V E S . O P E R A T I O N S .   --
---                             S P E C I F I C                              --
+--                SYSTEM.TASK_PRIMITIVES.OPERATIONS.SPECIFIC                --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---            Copyright (C) 1992-2005, Free Software Fundation, Inc.        --
+--          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/s-tpopsp-solaris.adb b/gcc/ada/s-tpopsp-solaris.adb
index 176b186..d74796d 100644 (file)
--- a/gcc/ada/s-tpopsp-solaris.adb
+++ b/gcc/ada/s-tpopsp-solaris.adb
@@ -2,12 +2,11 @@
 --                                                                          --
 --                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
 --                                                                          --
---    S Y S T E M . T A S K _ P R I M I T I V E S . O P E R A T I O N S .   --
---                             S P E C I F I C                              --
+--                SYSTEM.TASK_PRIMITIVES.OPERATIONS.SPECIFIC                --
 --                                                                          --
 --                                B o d y                                   --
 --                                                                          --
---         Copyright (C) 1992-2005, Free Software Foundation, Inc.          --
+--         Copyright (C) 1992-2007, Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/s-tpopsp-vxworks.adb b/gcc/ada/s-tpopsp-vxworks.adb
index e05ed7d..61dbe36 100644 (file)
--- a/gcc/ada/s-tpopsp-vxworks.adb
+++ b/gcc/ada/s-tpopsp-vxworks.adb
@@ -2,12 +2,11 @@
 --                                                                          --
 --                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
 --                                                                          --
---    S Y S T E M . T A S K _ P R I M I T I V E S . O P E R A T I O N S .   --
---                             S P E C I F I C                              --
+--                SYSTEM.TASK_PRIMITIVES.OPERATIONS.SPECIFIC                --
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---         Copyright (C) 1992-2005, Free Software Foundation, Inc.          --
+--         Copyright (C) 1992-2007, Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --

diff --git a/gcc/ada/s-tporft.adb b/gcc/ada/s-tporft.adb
index eedfa29..fed08d3 100644 (file)
--- a/gcc/ada/s-tporft.adb
+++ b/gcc/ada/s-tporft.adb
@@ -2,8 +2,7 @@
 --                                                                          --
 --                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
 --                                                                          --
---    S Y S T E M . T A S K _ P R I M I T I V E S . O P E R A T I O N S .   --
---               R E G I S T E R _ F O R E I G N _ T H R E A D              --
+--         SYSTEM.TASK_PRIMITIVES.OPERATIONS.REGISTER_FOREIGN_THREAD        --
 --                                                                          --
 --                                B o d y                                   --
 --                                                                          --