+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
-- --
-- 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- --
-- --
-- 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 --
-- 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 <>;
-- --
-- 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- --
-- --
-- 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 --
-- --
-- --
-- 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 --
-- --
-- --
-- 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- --
-- --
-- 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- --
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 --
-- --
-- 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 --
-- --
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.
-- --
-- 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 --
-- --
-- --
-- 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 --
-- 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;
Lock : Natural := 0;
end record;
+ overriding
procedure Adjust (Container : in out List);
+ overriding
procedure Finalize (Container : in out List) renames Clear;
use Ada.Streams;
-- --
-- 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 --
-- --
-- --
-- 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 --
-- --
-- --
-- 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 --
-- --
-- --
-- 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 --
-- --
-- --
-- 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 --
-- --
-- --
-- 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 --
-- --
-- --
-- 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- --
-- --
-- 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- --
-- --
-- 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 --
-- --
-- --
-- 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- --
-- --
-- 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 --
-- --
-- --
-- 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 --
-- This unit was originally developed by Matthew J Heaney. --
------------------------------------------------------------------------------
+-- Documentation required for this unit ???
+
generic
type Element_Type is private;
-- --
-- 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 --
-- --
-- --
-- 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 --
-- --
-- --
-- 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 --
-- --
-- --
-- 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 --
-- --
-- --
-- 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 --
-- --
-- --
-- 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 --
-- --
-- --
-- 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- --
-- --
------------------------------------------------------------------------------
+-- Is this really an RM unit? Doc needed???
+
with Ada.Containers;
function Ada.Strings.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- --
-- --
------------------------------------------------------------------------------
+-- Is this really an RM unit? Doc needed ???
+
with Ada.Containers;
function Ada.Strings.Wide_Unbounded.Wide_Hash
-- --
-- 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- --
-- --
-- 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 --
-- --
-- --
------------------------------------------------------------------------------
+-- Is this really an RM unit? doc needed ???
+
with Ada.Containers;
generic
-- --
-- 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- --
-- --
-- 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- --
-- --
-- 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- --
-- --
-- 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 --
-- --
-- --
-- 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 --
-- --
-- --
-- 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- --
-- --
-- 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 --
-- --
-- --
-- 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 --
-- --
-- --
-- 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 --
-- --
-- --
-- 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- --
-- --
-- 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 --
-- --
-- --
-- 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 --
-- --
-- --
-- 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- --
-- --
-- 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- --
-- --
-- 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- --
-- --
-- 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- --
-- --
-- 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- --
-- --
-- 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 --
-- --
------------------------------------------------------------------------------
with Ada.Unchecked_Deallocation;
-with Ada.Exceptions;
+-- with Ada.Exceptions;
with System.Case_Util;
-- 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
-- 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
-- --
-- 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- --
-- --
-- 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- --
-- --
-- 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- --
-- --
-- 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- --
-- --
-- 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- --
-- --
-- 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- --
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;
-- --
-- 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 --
-- --
-- --
-- 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 --
-- --
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;
-- --
-- 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- --
-- --
-- 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- --
-- --
-- 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- --
-- --
-- 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- --
-- --
-- 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- --
-- --
-- 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 --
-- --