diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-24 10:57:32 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-24 10:57:32 +0000 |
| commit | 2ada93f30687cfcbfdaef6df0734e3910d5ae9f2 (patch) | |
| tree | 6ad4b066aec3ef5f94e1249875ae6bdabc5e9799 /gcc/ada | |
| parent | b78d43240ad381f46da4f4b7c9a2045d78d96cdc (diff) | |
| download | ppe42-gcc-2ada93f30687cfcbfdaef6df0734e3910d5ae9f2.tar.gz ppe42-gcc-2ada93f30687cfcbfdaef6df0734e3910d5ae9f2.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133476 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
67 files changed, 148 insertions, 165 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f0e35f942d6..5fd023e5ae5 100644 --- 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 5c2e22d3b0d..4010628e00d 100644 --- 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 0870512d49e..fe2e9226adb 100644 --- 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 e61ae71d0c5..ff7cdba1723 100644 --- 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 6841f934dcf..39ebee61b5f 100644 --- 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 2667871b9bc..3d2446a8d21 100644 --- 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 833976acace..e7ccbb1015b 100644 --- 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 dd97c2ebb05..91c153eff7b 100644 --- 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 9e0581093ed..1389e2fb03e 100644 --- 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 4bd0db77b03..2649be6bc1b 100644 --- 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 4cde43dd860..b1d4d166795 100644 --- 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 0eb49b19d03..34a3e65186c 100644 --- 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 5e0aea0119a..a9171bdb7d5 100644 --- 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 235f6e36806..40942273afd 100644 --- 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 7eb57d1434a..3b1515fd135 100644 --- 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 93e1c841efa..4ee897d8cfe 100644 --- 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 e12abaca00b..85f1b7350cb 100644 --- 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 f90568d33ec..0fb78beb366 100644 --- 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 1e8c4fd9eb2..5dfe8513689 100644 --- 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 83c980dc182..d7ec3d68de6 100644 --- 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 a55e65f8e89..78dc0235687 100644 --- 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 b5b22bdf82d..6d740c815c7 100644 --- 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 0e768a4557e..00f17eb6890 100644 --- 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 fa92ef40a65..6bc9792f30c 100644 --- 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 8a1713bc413..62a24570e36 100644 --- 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 252c5d2ab45..990c39b1aeb 100644 --- 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 938e70a50cc..665d02d6a9f 100644 --- 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 5141a16e6ef..01975991744 100644 --- 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 ad4f76f5df6..d3404000175 100644 --- 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 c39dc6e3fce..7326c1ff7d6 100644 --- 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 dea0ff14670..f7060e76d56 100644 --- 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 0790faa19b9..61729697ceb 100644 --- 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 69cf76227a4..8da567aae61 100644 --- 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 641edca2331..e465a6239e2 100644 --- 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 42c6452d4f1..d7911defb19 100644 --- 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 b7d23759d7a..0a761c14c40 100644 --- 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 b24184d01f8..f13f43f588f 100644 --- 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 81464aa1cb0..48578963f7c 100644 --- 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 c0827270276..eacb11885ff 100644 --- 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 c405478b5d9..7c088df8471 100644 --- 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 3e8f2be07c3..37447deae8e 100644 --- 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 7647f6beeb6..3980ce7d74f 100644 --- 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 3f3d83e459b..9bbbb968c83 100644 --- 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 8d5d39b9c0e..5917d208d7f 100644 --- 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 b922871979d..e64270703d0 100644 --- 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 789b0afce67..6db41c01c3b 100644 --- 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 533e7ae5875..d09cca7425a 100644 --- 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 ef3ea1cceca..ebcf682bfd1 100644 --- 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 2597a902178..e9f8d2ea30b 100644 --- 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 810a167cf80..725a94f5212 100644 --- 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 7b2a5628038..130fb40cf4e 100644 --- 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 0fd1e00612d..1bd660ef875 100644 --- 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 ab748075650..c548199b49f 100755 --- 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 c2d0fee7ad0..a83bb9d59da 100644 --- 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 1635825dd10..8b1077b1048 100644 --- 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 2bd3fc78c2f..5c38256e30d 100644 --- 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 97432f33625..0af87804391 100644 --- 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 2f7d01c358d..f4246517429 100644 --- 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 90a5c1d1916..1a166cc472f 100644 --- 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 b26b274a39a..c222c0cdad9 100644 --- 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 3e2c742caa9..36211f746c5 100644 --- 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 3c797558eb3..32070796643 100644 --- 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 5fe9ac912f5..ae26a5a2537 100644 --- 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 39a1120e07f..0b7f2779822 100644 --- 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 176b186ae9c..d74796d808d 100644 --- 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 e05ed7df611..61dbe369e55 100644 --- 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 eedfa290fab..fed08d3b9ed 100644 --- 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 -- -- -- |
