OSDN Git Service

2007-04-20 Vincent Celier <celier@adacore.com>
[pf3gnuchains/gcc-fork.git] / gcc / ada / g-heasor.ads
index 67c3ebe..a30d0b6 100644 (file)
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                     Copyright (C) 1995-2005, AdaCore                     --
+--                     Copyright (C) 1995-2006, AdaCore                     --
 --                                                                          --
 -- 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- --
 --  subprogram parameters, so that it can be used with different types with
 --  shared sorting code.
 
---  See also GNAT.Heap_Sort_G and GNAT.Heap_Sort_A. These are older versions
---  of this routine. In some cases GNAT.Heap_Sort_G may be a little faster
---  than GNAT.Heap_Sort, at the expense of generic code duplication and a
---  less convenient interface. The generic version also has the advantage
---  of being Pure, while this unit can only be Preelaborate.
-
 --  This heapsort algorithm uses approximately N*log(N) compares in the
 --  worst case and is in place with no additional storage required. See
 --  the body for exact details of the algorithm used.
 
+--  See also GNAT.Heap_Sort_G which is a generic version that will be faster
+--  since the overhead of the indirect calls is avoided, at the expense of
+--  generic code duplication and less convenient interface. The generic version
+--  also has the advantage of being Pure, while this unit can only be
+--  Preelaborate, because of the access types.
+
+--  Note: GNAT.Heap_Sort replaces and obsoletes GNAT.Heap_Sort_A, which is
+--  retained in the GNAT library for backwards compatibility.
+
 package GNAT.Heap_Sort is
-   pragma Preelaborate;
+   pragma Pure;
 
    --  The data to be sorted is assumed to be indexed by integer values
    --  from 1 to N, where N is the number of items to be sorted.