old-autovect-branch/gcc/ada/a-cgcaso.ads

   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --                         GNAT LIBRARY COMPONENTS                          --
   4 --                                                                          --
   5 --                      A D A . C O N T A I N E R S .                       --
   6 --       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        --
   7 --                                                                          --
   8 --                                 S p e c                                  --
   9 --                                                                          --
  10 -- This specification is adapted from the Ada Reference Manual for use with --
  11 -- GNAT.  In accordance with the copyright of that document, you can freely --
  12 -- copy and modify this specification,  provided that if you redistribute a --
  13 -- modified version,  any changes that you have made are clearly indicated. --
  14 --                                                                          --
  15 ------------------------------------------------------------------------------
  16
  17 generic
  18    type Index_Type is (<>);
  19    type Element_Type is private;
  20    type Array_Type is array (Index_Type) of Element_Type;
  21
  22    with function "<" (Left, Right : Element_Type)
  23      return Boolean is <>;
  24
  25 procedure Ada.Containers.Generic_Constrained_Array_Sort
  26   (Container : in out Array_Type);
  27
  28 pragma Pure (Ada.Containers.Generic_Constrained_Array_Sort);