2010-01-04 Tobias Burnus <burnus@net-b.de>

[pf3gnuchains/gcc-fork.git] / gcc / ada / g-busorg.ads

diff --git a/gcc/ada/g-busorg.ads b/gcc/ada/g-busorg.ads
index af4552c..0556680 100644 (file)
--- a/gcc/ada/g-busorg.ads
+++ b/gcc/ada/g-busorg.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                     Copyright (C) 1995-2005 AdaCore                      --
+--                     Copyright (C) 1995-2008, 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- --
@@ -39,12 +39,11 @@
 --  See also GNAT.Bubble_Sort, a version that works with subprogram access
 --  parameters, allowing code sharing. The generic version is slightly more
 --  efficient but does not allow code sharing and has an interface that is
---  more awkward to use. The generic version is also Pure, while the access
---  subprograqm version can only be Preelaborate.
+--  more awkward to use.
 
 --  There is also GNAT.Bubble_Sort_A, which is now considered obsolete, but
 --  was an older version working with subprogram parameters. This version
---  is retained for baccwards compatibility with old versions of GNAT.
+--  is retained for backwards compatibility with old versions of GNAT.
 
 generic
    --  The data to be sorted is assumed to be indexed by integer values from
@@ -63,7 +62,7 @@ generic
    --  item is greater than or equal to the Op1 item.
 
 package GNAT.Bubble_Sort_G is
-pragma Pure (Bubble_Sort_G);
+   pragma Pure;
 
    procedure Sort (N : Natural);
    --  This procedures sorts items in the range from 1 to N into ascending