diff options
Diffstat (limited to 'gcc/ada/g-busorg.ads')
| -rw-r--r-- | gcc/ada/g-busorg.ads | 31 |
1 files changed, 20 insertions, 11 deletions
diff --git a/gcc/ada/g-busorg.ads b/gcc/ada/g-busorg.ads index 76ccda75122..e8f7648b7b5 100644 --- a/gcc/ada/g-busorg.ads +++ b/gcc/ada/g-busorg.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1995-2000 Ada Core Technologies, Inc. -- +-- Copyright (C) 1995-2002 Ada Core Technologies, 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- -- @@ -26,17 +26,25 @@ -- however invalidate any other reasons why the executable file might be -- -- covered by the GNU Public License. -- -- -- --- GNAT is maintained by Ada Core Technologies Inc (http://www.gnat.com). -- +-- GNAT was originally developed by the GNAT team at New York University. -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ -- Bubblesort generic package using formal procedures -- This package provides a generic bubble sort routine that can be used with --- different types of data. See also GNAT.Bubble_Sort_A, a version that works --- with subprogram parameters, allowing code sharing. The generic version --- is slightly more efficient but does not allow code sharing. The generic --- version is also Pure, while the access version can only be Preelaborate. +-- different types of data. + +-- 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. + +-- 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 bacwards compatibility with old versions of GNAT. generic -- The data to be sorted is assumed to be indexed by integer values from @@ -44,9 +52,10 @@ generic -- index value zero is used for a temporary location used during the sort. with procedure Move (From : Natural; To : Natural); - -- A procedure that moves the data item with index From to the data item - -- with Index To. An index value of zero is used for moves from and to a - -- single temporary location used by the sort. + -- A procedure that moves the data item with index value From to the data + -- item with index value To (the old value in To being lost). An index + -- value of zero is used for moves from and to a single temporary location + -- used by the sort. with function Lt (Op1, Op2 : Natural) return Boolean; -- A function that compares two items and returns True if the item with @@ -60,7 +69,7 @@ pragma Pure (Bubble_Sort_G); -- This procedures sorts items in the range from 1 to N into ascending -- order making calls to Lt to do required comparisons, and Move to move -- items around. Note that, as described above, both Move and Lt use a - -- single temporary location with index value zero. This sort is not - -- stable, i.e. the order of equal elements in the input is not preserved. + -- single temporary location with index value zero. This sort is stable, + -- that is the order of equal elements in the input is preserved. end GNAT.Bubble_Sort_G; |