Re: Question Exception with Ada.Containers.Generic_Constrained_Array_Sort

[Marc C <mc.provisional@gmail.com>]

On Monday, August 13, 2012 3:05:51 PM UTC-5, awdorrin wrote:

> The comparison function is:
>
>   function DevName_Less_Than( L,R : Device_Object_Type) return Boolean is
>   begin
>     if GetDeviceName(L) < GetDeviceName(R)
>     then
>       return TRUE;
>     else
>       return FALSE;
>     end if;
>   end DevName_Less_Than;

Just a pet peeve of mine... :-)

function DevName_Less_Than( L,R : Device_Object_Type) return Boolean is
begin
   return GetDeviceName(L) < GetDeviceName(R);
end DevName_Less_Than;